vb大学考试试题及答案
① vb考试试题
分有点少啊,反正没事做,帮帮你吧
一、选择题
1、在VB中，用Sring来表示的数据类型是：（D ）
A．长整型 B．字符型 C．逻辑型 D． 单精度型
2、下面哪一个不是Visual Basic保留的关键字？（B ）
（A）Loop（B）More（C）Mod（D）If
3.修改窗体的颜色通过设置窗体的（）属性：（A）
（A）Backcolor（B）Forecolor（C）Caption（D）Appearance
4、Dim A=9 Dim B=10 Dim C=8 Myvars=Not (A>B and B>C) （ A）
A. True B. False
5、下面4项中合法的字符常数是：（ B）
A. ABC$ B. "ABC" C. 'ABC' D.ABC
6、在Visual Basic中，设置文本框内容的属性是：（B ）
A、Name B、Text C、Picture D、WindowState
7、在Visual Basic中，表示鼠标单击事件的是：（ C）
A、Activate B、DoubleClick C、Click D、MouseDown
8、For – Next 语句属于程序基本结构中的：（B ）
A、顺序结构 B、循环结构 C、分支结构 D、选择结构
9、保存一个VB程序时需要保存两个文件：（C ）
这个题目就是有问题的.很明显是个傻冒出的题.通常情况下会有vbp和frm,但建个DLL就没有frm了.
A、 工程文件和 .vbp B、窗体文件和 .frm文件
C、.vbp文件和 .frm文件 D、模块文件和 .bas文件
10、下列程序段的运行结果是：（ A）
Dim A As Integer , B As Integer
A = 15
B = 4
PRINT 4 + A \ B
A、7 B、 -7 C、7.75 D、8
11、下列程序段的运行结果是：（A ）
Dim A As Integer , B As Integer , X As Integer
A = 1 ：B = 2
IF A < B THEN X = A - B ELSE X = B + A
PRINT X
A、-1 B、 1 C、2 D、3
12、下列程序段的运行结果是： （ D）
Dim F As Long , I As Long
F = 0
FOR I = 3 TO -3 STEP –1
F = F + I
NEXT I
PRINT I
A、-5 B、 .5 C、0 D、. –4
13、设A=7,B=3,C=4, 则A MOD 3 + B ^ 3 / C \ 5 的值是（ A）
(A) 2 (B) 3 (C) 4 (D) 5
14、语句PRINT 25*4的输出结果是：（C ）
A、25*4 B、“25*4” C、100 D、出现错误信息
15．语句Dim x As Integer作用是:将x定义为（ ）变量。（ B ）
(A)单精度型 (B)整型 (C) 布尔型 (D)字符型
二、 完成程序
1、求任意两个数中的最大值：
Private Sub Command_Click ( )
Dim A As Single , B As Single , MIN As Single
A = Val (Text1 . Text ) ‘从文本框Text1接收第1个数
B = Val (Text2 . Text ) ‘从文本框Text2接收第2个数
IF A < B THEN
MIN=B
ELSE
MIN=A
END IF
Text3 . Text =MIN ‘用文本框Text3输出最终结果
End Sub
2、按照从大到小的顺序输出100以内能被6整除的正整数
Private Sub Form_Click ( )
Dim I As Integer
Print “ 按照从大到小的顺序输出100以内能被6整除的正整数 “
For I = 1 To 100 Step 1
IF I mod 6 =0 THEN Print I
Next I
End Sub
三、写出下列循环语句每一次循环中各变量的值及循环次数。
1、y=2
变量 1次 2次 3次 4次 ……
y
Do While y<=8
y=y+y
Loop
2、s＝ 0： t＝ l
变量 1次 2次 3次 4次 ……
k
s
t
For k＝ 1 To 4
s＝s＋k
t=t＊k
Next k
② 求VB试题答案(1)
试试，不知道能答对几道题 呵呵
2c
4a
5b
6d
7c
8a
9a
11d
12d
13c
14b
17b
18c
19a
20a
22a
24d
25a
③ 历年计算机二级vb考试试题及答案
我已经发过去了，是[email protected]这个邮箱发的。
希望不要看错了啊
④ 高分求大学VB(Visual Basic 6.0)的模拟试题,附答案,非常急,[email protected]
一、选择题（每题2分，共计70分）
1.数据的存储结构是指____。
A、存储在外存中的数据
B、数据所占的存储空间
C、数据在计算机中的顺序存储方式
D、数据的逻辑结构在计算机中的表示
2.下列关于栈的描述中错误的是：____。
A、栈是先进后出的线性表
B、栈只能顺序存储
C、栈具有记忆作用
D、对栈的插入与删除操作中，不需要改变栈底指针
3.对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是____。
A、冒泡排序为n/2
B、冒泡排序为n
C、快速排序为n
D、快速排序为n(n-1)/2
4.对长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为____。
A、log2n
B、n/2
C、n
D、n+1
5.下列对于线性链表的描述中正确的是____。
A、存储空间不一定是连续，且各元素的存储顺序是任意的
B、存储空间不一定是连续，且前件元素一定存储在后件元素的前面
C、存储空间必须连续，且前件元素一定存储在后件元素的前面
D、存储空间必须连续，且各元素的存储顺序是任意的
6.下列对于软件测试的描述中正确的是____。
A、软件测试的目的是证明程序是否正确
B、软件测试的目的是使程序运行结果正确
C、软件测试的目的是尽可能多地发现程序中的错误
D、软件测试的目的是使程序符合结构化原则
7.为了使模块尽可能独立，要求____。
A、模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强
B、模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱
C、模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱
D、模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强
8.下列描述中正确的是____。
A、程序就是软件
B、软件开发不受计算机系统的限制
C、软件既是逻辑实体，又是物理实体
D、软件是程序、数据与相关文档的集合
9.数据独立性是数据技术的重要特点之一。所谓数据独立性是指____。
A、数据与程序独立存放
B、不同的数据被存放在不同的文件中
C、不同的数据只能被对应的应用程序所使用
D、以上三种说法都不对
10.用树形结构表示实体之间联系的模型是____。
A、关系模型
B、网状模型
C、层次模型
D、以上三个都是
11.在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是
A、Private Sub Text1_Change()
Command1.Caption = "计算机等级考试"
End Sub
B、Private Sub Command1_Click()
Caption = "计算机等级考试"
End Sub
C、Private Sub Form_Click()
Text1.Caption = "计算机等级考试"
End Sub
D、Private Sub Command1_Click()
Text1.Text = "计算机等级考试"
End Sub
12.设a=5，b=4，c=3，d=2，下列表达式的值是
3>2*b Or a=c And b<>c Or c>d
A、1
B、True
C、False
D、2
13.设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是
A、b=Left(a,10)
B、b=Mid(a,10)
C、b=Right(a,10)
D、b=Mid(a,11,10)
14.假定有如下的窗体事件过程：
Private Sub Form_Click()
a$ = "Microsoft VisualBasic"
b$ = Right(a$, 5)
c$ = Mid(a$, 1, 9)
MsgBox a$, 34, b$, c$, 5
End Sub
程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是
A、Microsoft Visual
B、Microsoft
C、Basic
D、5
15.设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为
A、"a"
B、"b"
C、"B"
D、"A"
16.为了使命令按钮（名称为Command1）右移200，应使用的语句是
A、Command1.Move -200
B、Command1.Move 200
C、Command1.Left = Command1.Left + 200
D、Command1.Left = Command1.Left - 200
17.在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Click()
x = InputBox("请输入一个整数")
Print x + Text1.Text
End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为
A、123
B、456
C、579
D、123456
18.在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒中在文本框中显示一次当前的时间。以下是实现上述操作的程序：
Private Sub Command1_Click()
Timer1._______
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
在_____处应填入的内容是
A、Enabled = True
B、Enabled = False
C、Visible = True
D、Visible = False
19.假定在图片框Picture1中装入一个图形，为了清除该图形（不删除图片框），应采用的正确方法是
A、选择图片框，然后按Del键
B、执行语句 Picture1.Picture = LoadPicture("")
C、执行语句 Picture1.Picture = ""
D、选择图片框，在属性窗口中选择Picture属性条，然后按回车键
20.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是
A、Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B、Private Sub List1_Click()
Label1.Name= List1.ListIndex
End Sub
C、Private Sub List1_Click()
Label1.Name = List1.Text
End Sub
D、Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub
21.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer, x As Integer
For i = 1 To 6
If i = 1 Then x = i
If i <= 4 Then
x = x + 1
Else
x = x + 2
End If
Next i
Print x
End Sub
程序运行后，单击命令按钮，其输出结果为
A、9
B、6
C、12
D、15
22.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程，
Private Sub Command1_Click()
c = "ABCD"
For n = 1 To 4
Print ____
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
D
CD
BCD
ABCD
则在____处应填入的内容为
A、Left(c,n)
B、Right(c,n)
C、Mid(c,n,1)
D、Mid(c,n,n)
23.执行以下程序段
Dim x As Integer, i As Integer
x = 0
For i = 20 To 1 Step -2
x = x + i \ 5
Next i
后，x的值为
A、16
B、17
C、18
D、19
24.在Visual Basic工程中，可以作为“启动对象“的程序是
A、任何窗体或标准模块
B、任何窗体或过程
C、Sub Main过程或其他任何模块
D、Sub Main 过程或任何窗体
25.假定建立一个名称为Command1的命令按钮数组，则以下说法中错误的是
A、数组中每个命令按钮的名称（Name属性）均为Command1
B、数组中每个命令按钮的标题（Caption属性）都一样
C、数组中所有命令按钮可以使用同一个事件过程
D、用名称Command1（下标）可以访问数组中的每一个命令按钮
26.把窗体的KeyPreview属性设置程为True，然后编写如下事件过程
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr(KeyAscii)
KeyAscii = Asc(UCase(ch))
Print Chr(KeyAscii + 2)
End Sub
程序运行后，按键盘上的“A“键，则在窗体上显示的内容是
A、A
B、B
C、C
D、D
27.在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：
Private Sub Command1_Click()
a = InputBox("请输入日期（1～31）")
t = "旅游景点：" _
& IIf(a > 0 And a <= 10, "长城", "") _
& IIf(a >10 And a <= 20, "故宫", "") _
& IIf(a >20 And a <= 31, "颐和园", "")
Text1.Text = t
End Sub
程序运行后，如果从键盘上输入16，则在文本框中显示的内容是
A、旅游景点：长城故宫
B、旅游景点：长城颐和园
C、旅游景点：颐和园
D、旅游景点：故宫
28.在窗体上画一个名称为Label1的标签，然后编写如下事件过程：
Private Sub Form_Click()
Dim arr(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 2 To 4
For j = 2 To 4
arr(i, j) = i * j
Next j
Next i
Label1.Caption = Str(arr(2, 2) + arr(3, 3))
End Sub
程序运行后，单击窗体，在标签中显示的内容是
A、12
B、13
C、14
D、15
29.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function fun(ByVal m As Integer)
If m Mod 2 = 0 Then
fun = 2
Else
fun = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 5
s = s + fun(i)
Next i
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是
A、6
B、7
C、8
D、9
30.阅读程序：
Option Base 1
Dim arr() As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3, 2)
For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2 + j
Next j
Next i
ReDim Preserve arr(3, 4)
For j = 3 To 4
arr(3, j) = j + 9
Next j
Print arr(3, 2) + arr(3, 4)
End Sub
程序运行后，单击窗体，输出结果为
A、21
B、13
C、8
D、25
31.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim c As Integer,d As Integer
d=0
c=6
x=Array(2,4,6,8,10,12)
For i=1 To 6
If x(i)>c Then
d=d+x(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为____。
A、10
B、16
C、12
D、20
32.设有如下程序
Private Sub Command1_Click()
Dim c As Integer,d As Integer
c=4
d=InputBox("请输入一个整数")
Do While d>0
If d>c Then
c=c+1
End If
d=InputBox("请输入一个整数")
Loop
Print c+d
End Sub
程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是____。
A、12
B、11
C、10
D、9
33.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，在文本框中输入以下字符串：
Microsoft Visual Basic Programming
然后编写如下事件过程：
Private Sub Command1_Click()
Open "d:\temp\outf.txt" For Output As #1
For i=1 To Len(Text1.Text)
c=Mid(Text1.text,i,1)
If c>="A" And c<="Z" Then
Print #1,LCase(c)
End If
Next i
Close
End Sub
程序运行后，单击命令按钮，文件outf.txt中的内容是____。
A、MVBP
B、mvbp
C、M
V
B
P
D、m
v
b
p
A B C D
34.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：
Dim SW As Boolean
Function func(X As Integer)As Integer
If X<20 Then
Y=X
Else
Y=20+X
End If
func=Y
End Function
Private Sub Form_MouseDown(Button As Integer,_
Shift As Integer,X As Single,Y As Single)
SW=False
End Sub
Private Sub Form_MouseUp(Button As Integer,_
Shift As Integer,X As Single,Y As Single)
SW=True
End Sub
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox("")
If SW Then
Print func(intNum)
End If
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入 25，则程序的执行结果为____。
A、输出 0
B、输出 25
C、输出 45
D、无任何输出
35.设有如下通用过程：
Public Sub Fun(a() As Integer,x As Integer)
For i=1 To 5
x=x+a(i)
Next
End Sub
窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。然后编写如下的事件过程：
Private Sub Command1_Click()
Dim arr(5) As Integer,n As Integer
For i=1 To 5
arr(i)=i+i
Next
Fun arr,n
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是____。
A、30
B、25
C、20
D、15
二、填空题（每空2分，共计30分）
1.某二叉树中度为2的结点有18个，则该二叉树中有____个叶子结点。
输入答案，中间不含空格:
2.在面向对象方法中，类的实例称为____。
输入答案，中间不含空格:
3.诊断和改正程序中错误的工作通常称为____。
输入答案，中间不含空格:
4.在关系数据库中，把数据表示成二维表，每一个二维表称为____。
输入答案，中间不含空格:
5.问题处理方案的正确而完整的描述称为____。
输入答案，中间不含空格:
6.以下语句的输出结果是____。
Print Int(12345.6789*100+0.5)/100
输入答案，中间不含空格:
7.在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click()
Text1.text="VB程序设计"
End Sub
Private Sub Text1_Change()
Picture1.Print"VB Programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是____，而在图片框中显示的内容是____。
输入答案，中间不含空格:
8.上一题
输入答案，中间不含空格:
9.阅读下面的程序：
Private Sub Form_Click()
Dim Check As Boolean,Counter As Integer
Check=True
Counter=5
Do
Do While Counter < 20
Counter =Counter+1
If Counter=10 Then
Check=False
Exit Do
End If
Loop
Loop Until Check =False
Print Counter
End Sub
程序运行后，单击窗体，输出结果为____。
输入答案，中间不含空格:
10.设有如下程序：
Private Sub Form_Click()
Dim a As Integer,s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是____。程序运行后，单击窗体，输出结果为____。
输入答案，中间不含空格:
11.上一题
输入答案，中间不含空格:
12.设有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1
Dim Min As Integer,i As Integer
arr1=Array(12,435,76,-24,78,54,866,43)
Min=____
For i=2 To 8
If arr1(i)<Min Then ____
Next i
Print "最小值是：";Min
End Sub
以上程序的功能是：用 Array 函数建立一个含有8个元素的数组，
然后查找并输出该数组中各元素的最小值。请填空。
输入答案，中间不含空格:
13.上一题
输入答案，中间不含空格:
14.在名称为 Form1 的窗体上画一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine 属性设置为 True，然后编写如下的事件过程：
Private Sub Form_Click()
Open"d:\test\smtext1.txt"For Input As #1
Do While Not ____
Line Input #1,aspect$
whole$=whole$+aspect$+Chr$(13)+Chr&(10)
Loop
Text1.Text=whole$
Chose #1
Open "d:\test\smtext2.txt"For Output As #1
Print #1,____
Close #1
End Sub
上述程序的功能是，把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来，
然后把该文本框中的内容存入磁盘文件 smtext2.txt。请填空。
输入答案，中间不含空格:
15.上一题
输入答案，中间不含空格:
答案
1 D
2 B
3 D
4 C
5 A
6 C
7 B
8 D
9 D
10 C
11 A
12 B
13 B
14 C
15 D
16 C
17 D
18 A
19 B
20 D
21 A
22 B
23 C
24 D
25 B
26 C
27 D
28 B
29 B
30 A
31 C
32 D
33 D
34 D
35 A
36 19
37 对象
38 程序调试
39 关系
40 算法
41 12345.68
42 VB程序设计
43 VB Programming
44 10
45 计算1到8的累加 （ 意思相同的语句）
46 36
47 12
48 Min=arr1(i)
49 EOF(1)
50 Text1.text
⑤ VB期末考试题,跪求答案
For i = 0 To 20
For j = 0 To 33
If i * 5 + j * 3 + (100 - i - j) / 3 = 100 Then
Print "公鸡:"; i; "只，母鸡:"; j; "只，小鸡:"; 100 - i - j; "只。"
End If
Next j
Next i
⑥ 大学vb考试的经典例题有没有啊
VB考试没有什么经典不经典的，考了就是经典的，题目到时没有，但是有点心得，希望对你又帮助：考试其实都是最基本的，包括二级，主要的考点为：变量名的合法性，常量的表达方式（1e-5等），数组，数组下标的越界，你基本最基本的程序应该要记住，排序（冒泡、折半等），插入，查找，这个是最基本的，如果考函数，要写的话，就是把这些程序单独的写出来，没技术含量，调用也是一句话或者一个表达式，查找数值，字符串的操作等等，但是基本都是以书为前提的，不会太深入，将书看透，把课后的几个题目做做，考试肯定没问题的
⑦ 求VB考试题目答案
在窗体上有命令按钮，有如下事件代码
private sub command1_click()
static x as integer
dim y as integer
cls
x=x+5
y=y+10
print x,y
end sub
程序运行时，三次单击命令按钮后，窗体上显示的结果是（ c ）
A.5 10 B. 5 30 C.15 10 D.15 30
⑧ 求大一VB期末考试测试题及答案(北京)
??30、形参表中的各个变量之间用( )分隔。（1分）
A、. B、、
C、, D、;
?31、引用列表框（List1）最后一个数据项应使用( )。（1分）
A、List1.List(List.ListCount) B、List1.List(List.ListCount-1)
C、List1.List(ListCount) D、List1.List(ListCount-1)
?32、在下面关于常用的ActiveX控件的说法中，正确的是( )。（1分）
A、在Animation控件中，当用Open方法打开AVI文件后直接自动播放 B、Slider控件有Scroll和Change事件
C、UpDown不能与Slider“捆绑” D、选项卡只可以出现在控件的项端
？1、激活Visual Basic集成环境主菜单的按键是( )。（1分）
A、Alt 或 F10 B、F1
C、F9 D、F5
15、下列关于声明变量的说法中，错误的是( )。（1分）
A、用显示声明变量的关键字Dim,Private,Static或Public来声明变量的类型 B、用类型说明符标记变量类型，类型说明符有：%,&,!,@,$
C、用DefType语句声明变量的类型，其中Type是类型标志 D、用Type<数据类型名>/End Type语句声明记录类型变量
？18、表达式1.5+3\2>2 Or 7 Mod 3<4 And Not 1的运算结果是( )。（1分）
A、-1 B、0
C、1 D、其他
28、关于过程级过程参数的描述中，错误的描述是( )。（1分）
A、过程的参数可以是控件名称 B、用数组作为过程的参数时，使用的是“传地址”方式
C、只用函数过程能够将过程中处理的信息传回到调用的程序中 D、窗体可以作为过程的参数
30、形参表中的各个变量之间用( )分隔。（1分）
A、. B、、
C、, D、;
31、引用列表框（List1）最后一个数据项应使用( )。（1分）
A、List1.List(List.ListCount) B、List1.List(List.ListCount-1)
C、List1.List(ListCount) D、List1.List(ListCount-1)
32、在下面关于常用的ActiveX控件的说法中，正确的是( )。（1分）
A、在Animation控件中，当用Open方法打开AVI文件后直接自动播放 B、Slider控件有Scroll和Change事件
C、UpDown不能与Slider“捆绑” D、选项卡只可以出现在控件的项端
问题补充：36、若菜单项前面没有内缩符号“...”表示该菜单项是(
A、主菜单项 B、子菜单项
C、下拉式菜单 D、弹出式菜单
37、下列语句向顺序文件中写入数据，不正确的是( )。（1分）
A、print #1 "this is a test" B、print #1,"this is a test"
C、print #1,spc(5),"this is a test" D、print #1,tab(10),"this is a test"
38、line input #1,str1的意思是( )。（1分）
A、将str1写入打开的1号文件 B、从1号文件中读出一行数据赋予str1
C、将str1作为一行写入1号文件 D、从1号文件中读出一个变量赋予str1
39、在顺序文件中，写入一条记录的正确语句是( )。（1分）
A、put #1,a B、print #1,a
C、write line #1,a D、print line #1,a
40、打开一个新的顺序文件SeqOld.dat，供用户写入数据，指定文件号为2，正确的语句为( )。（1分）
A、open "seqNew.dat" for Input as #2 B、open "seqNew.dat" for Output as #2
C、open seqNew.dat for Input as #2 D、open seqNew.dat for Output as #2
答案1.A 15.D 18.A 28.B 30.C 31.B 32.B36.A 37.A 38.C 39.B 40.A
看哈子,看对你有没有帮助.
⑨ 大学VB练习题
5.1 界面图：
OptionExplicit
PrivateSubCommand1_Click()
DimiAsInteger
Text1.Text=Trim(Text1.Text)
IfText1.Text=""Then
MsgBox"请输入单词！",,"输入提示"
ExitSub
EndIf
Fori=0ToList1.ListCount-1
IfList1.List(i)=Text1.TextThen
MsgBox"单词已经存在！",,"添加提示"
ExitSub
EndIf
Nexti
List1.AddItemText1.Text
Text1.Text=""
EndSub
PrivateSubCommand2_Click()
DimiAsInteger
Fori=0ToList1.ListCount-1
IfList1.Selected(i)Then
List1.RemoveItemi
ExitFor
EndIf
Nexti
MsgBox"请选中要删除的单词！",,"删除提示"
EndSub
PrivateSubCommand3_Click()
List1.Clear
EndSub
PrivateSubCommand4_Click()
DimOdAsString
DimiAsInteger
IfText1.Text=""Then
MsgBox"请在文本框里输入正确的单词！",,"修改提示"
ExitSub
EndIf
IfList1.SelCount=0Then
MsgBox"请选中欲修改的单词！",,"修改提示"
ExitSub
EndIf
Fori=0ToList1.ListCount-1
IfList1.List(i)=Text1.TextThen
MsgBox"单词已经存在！",,"修改提示"
ExitSub
EndIf
Nexti
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
Command5.Enabled=True
EndSub
PrivateSubCommand5_Click()
DimOdAsString
DimiAsInteger
DimMsg,Style,Title,Response
Msg="是否确认修改?"'定义信息。
Style=vbYesNo+vbQuestion+vbDefaultButton2'定义按钮。
Title="修改确认提示"'定义标题。
Response=MsgBox(Msg,Style,Title)
IfResponse=vbYesThen'用户按下“是”。
Fori=0ToList1.ListCount-1
IfList1.Selected(i)Then
Od=List1.List(i)
List1.RemoveItemi
List1.AddItemText1.Text,i
MsgBox"完成将"&Od&"修改成："&Text1.Text,,"修改成功！"
Command1.Enabled=True
Command2.Enabled=True
Command3.Enabled=True
Command4.Enabled=True
Command5.Enabled=False
Text1.Text=""
ExitFor
EndIf
Nexti
EndIf
EndSub
PrivateSubForm_Load()
Form1.Caption="单词列表管理"
Command1.Caption="添加单词"
Command2.Caption="删除单词"
Command3.Caption="全部删除"
Command4.Caption="修改单词"
Command5.Caption="修改确认"
Command6.Caption="退出"
Command5.Enabled=False
EndSub