VB程序设计试题库
VB程序设计试题库
《VB程序设计》试卷二_______________________________ 2参考答案2：_______________________________________ 6《VB程序设计》试卷三_______________________________ 9参考答案3：______________________________________ 13《VB程序设计》试卷四______________________________ 16参考答案4：______________________________________ 21《VB程序设计》试卷五______________________________ 23参考答案5：______________________________________ 28《VB程序设计》试卷六______________________________ 30参考答案6：______________________________________ 34《VB程序设计》试卷七______________________________ 36参考答案7：______________________________________ 40《VB程序设计》试卷八______________________________ 42参考答案8：______________________________________ 47
《VB程序设计》试卷二
学号＿＿＿＿姓名＿＿＿＿得分＿＿＿＿
题号一二三四五六总分
分值10 10 20 18 18 24 100
得分
一、选择题（每小题1分，共10分）
1、改变控件在窗体中的上下位置，应修改控件的__（1）_____属性
A .Top B. Left C.Width D. Right
2、将通用对话框类型，设置为字体对话框，可修改该控件的____（2）_____属性
A. font
B. filename
C. filter
D. action
3、标签控件最重要的属性是__（3）______
A. caption
B. text
C. name
D. width
4、文本框中选定的内容，由下列____（4）_____属性反映。
A. Text
B.Caption
C. Seltext
D. sellenght
5、选中复选框控件时，value属性的值，可以是_ （5）______
A.true
B. false
C. 0
D.1
6、设置列表框选中的文本用____（6）____属性
A. selected
B. caption
C. text
D. list
7、简单组合框的style值为____（7）_____
A .0 B. 1 C. 2 D. 3
8、在文件列表框的实现文件的多重选择，应修改该控件的___（8）______属性
A. filename
B. pattem
C. path
D. multiselect
9、语句listl.removeitem 1 将删除list.listindext等于___（9）______的项目。
A. 0
B. 2
C. 3
D. 1
10、计时器的interval属性伪时，表示____（10）_____。
A. 计时器失效 C. 相隔0 毫秒
B. 相隔0秒 D. 计时器的enable属性为false
二、判断题：（每小题1 分，共10 分）
1、全局变量用global或public关键字声明，且仅在通用声明处可以定义。（11）
2、如果某子程序add用public static sub add（）定义，则该子程序的变量都是局部变量。（12）
3、*.bmp格式的图片，如果在autosize设为False的图片框，它会以图片框大小完整显示出来。（13）
4、已知窗体的fillcolor=rgb（255，0，0）红，forecolor=rgb（0，255，0）绿，fillstyle=
0（solid）语句circle（200，100），500，，，，2的输出结果是红边绿心的长椭圆。（14）
5、move方法的一般形式是：对象名.move A，B[，C，D]，其中A指Left，C 指width。（15）
6、清除list1列表框对象的内容的语句是list1.cls。（16）
7、清除combo1对象的内容是combo1.clear。（17）
8、对象的可见性用enabled属性设置，可用性用visible属性设置。（18）
9、若要新建一个磁盘上的顺序文件，可用output，append方式打开文件。（19）
10、滚动条控件不可作为用户输入数据的一种方法。（20）
1．F 2. F 3. F 4. F 5. F
6. F
7. T
8. F
9. T 10. F
三、填空题
1. 如果要指明mystring为固定15个字长的全局变量，应该在标准模块中用以下说明语句定义：___（21）________
2.大于X 的最小整数的VB 表示形式为____（22）____。
3.设X$ =“abc123456”则“a”+str$(val(right(X$,4)))的值是____ （23）____________
4.数学表达式对应的VB表达式为：_______（24）____________
5.拖动滚动条中的滚动框将会产生_______（25）____________、___（26）______________
6.请写出清除以下对象内容的语句：
文本框____（27）_______,窗体___（28）_________,列表框__（29）_______,组合框___（30）_______
四、程序阅读（假如所有的变量类型都已定义）（每小题6分，共18分）
1、程序1
FOR J=10 TO 5 step –2
K=J+1
If K<6 then exit for
NEXT J
PRINT K；J
输出的结果______（31）____________
2、程序2
A=1：I=0
SELECT CASE A*2
CASE 1
A=A+1
CASE 2
A=A+2
CASE ELSE
A=A+3
END SELECT
A的值为______（32）__________
3、程序3（注：a为整型变量）
open “abc.bat” for output as #1
n=8
for I=1 to n
print #1,I+1
next I
close #1
open “abc.bat” for input as #1
for I=1 to n
input #1,a
if I mod 5=0 then print a+1
next I
close #1
输出结果：____（33）________________
五、程序填空（每题2分，共18分）
1、统计一顺序文件test.txt中的空格、字母、数字和其它字符个数。
Private Sub Command5_Click()
Dim s As String, C As String
Dim I As Integer, L As Integer, spac As Integer, character As Integer, digit As Integer,
Other As integer
Open “c:\text.txt”For___（34）__________As #1
Do Unit_____（35）________
Line Input #1,s
L=_______（36）__________
For I=l To L
C=_____（37）___________
If________（38）______________Then
Character=character+1
Elself_________（39）___________Then
Spac=spac+1
Elself________（30）____________Then
digit=digit+1
Else
other=other+1
End If
Next I
Loop
Close #1
Print “字符个数为：”；character；“数字个数为：”；digit
Print “空格个数为：”；spac；“其它个数为：”；other
End Sub
2、以下程序是单击命令按钮，将用户在组合框中输入的某一值，与组合框其他项进行比较，如有相同，则将相同表项删除，其他项，则不动。
Private Sub command1_click（）
Dim a As String , I As Integer
A$=Trim(Combo1.Text)
If a<>””Then
_____（41）__________
If Combo1.List(i)=a Then ____（42）__________
Next I
End If
Combo1.SetFocus
End Sub
六、综合编程（每题10分，共20分）
1、用自定义函数的方法求sum（x），求当-1≤x≤1时，sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!,当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数据错误。X、N都是由用户输入。
2、已知有100个正数，自小到大，存于数组A中（A（1）——A（100））编制程序，输入正数X，检查它是否存在于A中，若存在，显示对应下标，若不存在，则请将X插入到A中，且不影响A中数组序列。提示，程序开头可以是：
Private Sub Command1_Click()
Dim x As Ingeger ,I As Integer,nn As Integer,a(101) As Integer ,j As Integer
Nn=100
I=1
While (I<=nn)
A(i)=V al(InputBox(“input number”&”必须大于”& Str(a(I-1)))
If a(i)>=a(I-1) Then
I=I+1
Else
MsgBox(“请重新输入”& Str(a(i)) & Chr(13) & “必须大于”& Str(a(I-1))))
End If
Wend
For I=1 To nn
Print a ( I ),
If I Mod 4 =0 Then Print
Next I
……
End sub
正确程序是：
参考答案2：
一、判断题：
1．F 2. F 3. F 4. F 5. F
6. F
7. T
8. F
9. T 10. F
二、选择题：
11. A12. D 13. A14. C 15. D 16. D 17. B 18. D 19. D 20. A 三．填空题：
21．Public mystring as string*15
22．Int(x)+1
23．a3456
24．（2*sin(3.14159/2)+2*a*exp(b)）/sqr(a*c)
25．Scroll
26．Change
27．Text1.text=””
28. Form1.Cls
29. List1.Clear
30. combol1.Clear
四、程序阅读题：
31．7 4
32． 3
33．7
五、程序填空题：
34．Input
35．EOF(1)
36．Len(s)
37．Mid(s, I , 1)
38．c>=”a”and c<=”z”Or c>=”A”and c<=”Z”
39．c=”“
40．c>=”0”and c<=”9”
41．for I=0 to Combo1.ListCount-1
42．Combo1.RemoveItem i
六．综合编程题：
1．程序1：
Private Sub Command1_Click()
Dim s As Single
Dim n As Integer, x As Single, k As Integer
n = V al(InputBox("Please input a integer value:"))
x = V al(InputBox("Please input a single value:"))
If n <= 0 Then
k = MsgBox("数据输入错误！", vbRetryCancel + vbExclamation, "数据输入")
Exit Sub
End If
s = sum(x, n)
Print s
End Sub
Function sum(x As Single, n As Integer)
Dim i As Integer, ss As Long
ss = 1
sum = 0
If x > 1 Or x < -1 Then
sum = 0
Else
For i = 2 To n + 1
ss = ss * i
sum = sum + x ^ (i - 1) / ss
Next i
End If
End Function
程序2：
Private Sub Command1_Click()
Dim x As Integer, I As Integer, nn As Integer, a(101) As Integer, j As Integer
nn = 100
I = 1
While (I <= nn)
a(I) = V al(InputBox("input number" & "必须大于" & Str(a(I - 1))))
If a(I) >= a(I - 1) Then
I = I + 1
Else
MsgBox ("请重新输入" & Str(a(I)) & Chr(13) & "必须大于" & Str(a(I - 1))) End If
Wend
For I = 1 To nn
Print a(I),
If I Mod 4 = 0 Then Print
Next I
x = V al(InputBox("Input a Data to Check :"))
If x < a(1) Then
For I = nn + 1 To 2 Step -1
a(I) = a(I - 1)
Next I
a(1) = x
For I = 1 To nn + 1
Print a(I),
If I Mod 4 = 0 Then Print
Next I
ElseIf x > a(nn) Then
a(nn + 1) = x
For I = 1 To nn + 1
Print a(I),
If I Mod 4 = 0 Then Print
Next I
Else
For I = 1 To nn
If x = a(I) Then
Print "已经存在，序号是："; I
Exit Sub
Else
If x > a(I) And x < a(I + 1) Then
j = I + 1
Exit For
End If
End If
Next I
For I = nn + 1 To j + 1 Step -1
a(I) = a(I - 1)
Next I
a(j) = x
For I = 1 To nn + 1
Print a(I),
If I Mod 4 = 0 Then Print
Next I
End If
End Sub
《VB程序设计》试卷三
学号＿＿＿＿姓名＿＿＿＿得分＿＿＿＿
题号一二三四五六总分
分值10 10 20 18 18 24 100
得分
一、选择题（每小题1分，共10分）
1．以下的vb 常量中非法的是(1)
a. “Good Luck”
b. PI
c. 1.5E-03
d. 16.3412
2. 骰子是一个正六面体,分别用1~6 代表这六个面,掷一次骰子出现的数可表示为(2 )
a. int(rnd*6+1)
b. int(rnd*6)
c. int(rnd*7)
d. int(rnd(6)+1)
3. 要想返回文本框中输入的内容则可利用其( 3 )属性进行编程
a.caption
b. text
https://www.wendangku.net/doc/1c8785208.html,
d. righttoleft
4. 下列不能用commondialog 控件调用的对话框是( 4 )
a. open/save
b. help
c. font
d. search
5. 要使得窗体一开始运行就充满整个屏幕则须设置( 5 ) 属性
a. borderstyle
b. appearance
c. windowstate
d. drawmode
6. vb 应用程序是分层管理的,其最高的层次为( 6 )
a. 工程
b. 模块
c. 窗体
d. 过程
7. vb 中的坐标圆点位于( 7 )
a. 容器右上角
b. 容器左上角
c. 容器正中央
d. 容器右下角
8. 如果从数据文件INPUT.DA T 中读取数据时, 以下打开文件方式中,正确的是( 8 )
a. OPEN INPUT.DA T FOR INPUT AS #1
b. OPEN INPUT.DA T FOR OUTPUT AS #1
c. OPEN “INPUT.DA T” FOR INPUT AS #1
d. OPEN “I”, #1 INPUT.DA T
9. vb 程序设计中的窗体在oop 中称为( 9 )
a. 屏幕
b. 事件
c. 对象
d. 控件
10. 以下各表达式中, 计算结果为0的是(10 )
a. INT(12.4)+INT(-12.6)
b. CINT(12.4)+CINT(-12.6)
c. FIX(13.6)+FIX(-12.6)
d. FIX(12.4)+FIX(-12.6)
二、判断题（每小题1分，共10分）
1）只要用拖拽的方法，将工具箱中所需的控件拖到窗体上即可完成。（11）
2）控件是对象，而窗体不是对象，它只是控件对象的窗口。（12）
3）TextBox与Label有许多共同特点，它们都能显示和输入文本。（13）4）有的对象属性既可在属性窗口中设定又可在程序代码中设定。（14）
5）在框架控件内的几个单选按钮中，只能有一个单选按钮的V alue属性为True.(15)
6）标签没有Change事件和SetFocus方法。（16）
7）事件过程与Sub过程，它们相同点都是事件驱动，而不同的只是事件过程由控件属性
决定，而Sub过程是由户自定义。（17）
8）Function函数有参数传递，并且一定有返回值。(18)
9）滚动条控件不可作为用户输入数据的方法。（19）
10）Msgbox函数建立的信息框能显示信息又能输入用户的信息。(20）
11．F 12. F 13. F 14. T 15. T 16. T 17. F 18. F 19. T 20. F
三、填空题：（每空2分，共20分）
1．变量min@表示___（21）_____类型的变量。
2．如果：I=11：J=3：I=int(-8.6)+I\J+13/3 MOD 5，则I值是______（22）_____________ 3．请写出满足以下条件的VB表达式：0＜X＜10，______（23）____。X为[0-100]之间的数，能被2整除，但不能被3整除___（24）_____。
4．下列循环语句控制的循环次数为（25）
FOR K=1 TO 10 STEP –1
5．表达式1 and 0的值(26) 。
6．随机产生100至200（不包括100和200）之间的整数的表达式为：(27) ；如果包括100而不包括200，则表达式为：（28）。
7．写出清除图片框的文字或图形信息的语句：（29）；
写出清除标签显示信息的语句为：（30）。
四、程序阅读（每小题6分，共18分）
1．C=InputBox(“请输入字符串：”)
p=” ”
For L=Len(c) To 2 Step –2
P=Mid(C, L – 1, 2) + P
Next L
Print P
End Sub
如果输入：ABCDEFG ，则结果：（31）
2．Dim Y As Integer
Private Sub Command_Click()
Dim X As Integer
X=1
Y=1
Call AA(Y+1)
Z=BB(X)
Print X, Y, Z
End Sub
Private Sub AA(ByV al Z As Integer)
Y = Z + X
Z = X + Y
End Sub
Private Function BB (ByRef Y As Integer)
Y = Y + 1
BB=X + Y
End Function 结果：（32）
3．Private Sub Command1_Click()
Dim S As Integer, I As Integer
S = 0
For I = 1 To 10
If ZS(I) Then
If I * 2 <= 10 Then
Print Str(I * 2)
S = S + 1
Else
Exit For
End If
End If
Next 1
Prirt “S=”＆Str(S)
End Sub
Public Function ZS (ByV al X As Integer) AS Boolean
Dim J As Integer
J = 2
Do While J < X
If Int (X / J) = X / J Then Exit Do
J = J + 1
Loop
If J = X Then
ZS = True
Else
ZS = False
End If
End Function 结果：（33）
五、程序填空题
1、本题序随机产生的n个两位正整数。并进行排序的程序输出结果Private sub CreateRND(byval n as integer)
Dim temp as integer
Dim I as integer
For I=0 to n
X(I)= （34）
Lblcreat(I).caption=x(I)
Next I
For I=0 to (35)
For j = (36) to n
If x(I) (37) X(I)=x(j) (38) End if Next j (39) Next I ______(40)________ End Sub 2、下列程序用于对输入的x和n的值，进行计算 S=X/2!-X2/3!+x3/4!-x4/5!+….+(-1)n-1xn/(n+1)! Private function Fs(byval x as single.byval n as integer) as single Dim sum as single Dim remultiply as long Dim I as integer Sum=0 Remultiply=____(41)_______ I=1 Do until ____(42)_______ Remultiply=____(43)_______ Sum=sum+remultiply ______(44)________ _ __(45)________ ___ (46)_______ End function 五、综合编程（每小题12分，共24分） 1．猜数游戏：已知程序用户界面如下，程序启动后Lable1和Lable2滚动显示属于[1，100]的随机整数，当用户单击“左大”或“右大”按钮时，滚动停止，如果用户猜对了，在Lable3中显示“猜对了”，否则显示“猜错了”。试编写有关事件的程序代码。 2、挑选单数并排序程序：程序的用户界面如图示，程序启动后由计算机自动产生20个属于[100，300]之间的随机整数，单击“显示全体”按钮时，在Form1上显示这20个随机数；单击“显示单数”按钮时，在Form1上显示其中的单数；单击“排序”按钮时，在Form1上将这些单数从小到大显示。要求显示格式为每行显示5个数据。 参考答案3： 一、选择题： 1. b 2. a 3. b 4. d 5. c 6. a 7. b 8. c 9. c 10. d 二、判断题： 11．F 12. F 13. F 14. T 15. T 16. T 17. F 18. F 19. T 20. F 三、填空题： 21．货币数据变量 22．－2 23．X>0 and x<10 24．x>=0 and x<=100 and x mod 2=0 and x mod 3<>0 25．0 26．False 27．Int(101*rnd)+99 28．Int(100*rnd)+100 29．Picture1.cls 30．Label1.caption=”” 四、阅读程序 31：BCDEFG 32：2 2 2 33：6 10 S=3 五、程序填空 34：int(10+rnd()*90) 35: n-1 36：I+1 37: temp=x(j) 38: x(I)=temp 39: lblcreat(I).caption=x(I) 40: lblcreat(I) caption=x(I) 41：I 42: I>n 43: remultiply*I 44: I=I+1 45: loop 46: Fs=sum 六、综合编程 1．猜数游戏 Private Sub Command1_Click() Timer1.Enable=Flash If V al(Label1.Caption)>V al(Lable2.Caption) Then Label3.Caption=”猜对了” Else Lable3.Caption=”猜错了” End If End Sub Private Sub command2_Click() Timer1.Enable=False if V al(Label1.Caption) Else Lable3.Caption=”猜错了” End If End Sub Private Sub Timer1_Timer() Randomize Label1.Caption=Int(Rnd()*100+1) Label2.Caption=Int(Rnd()*100+1) End Sub 2．挑单数并排序 Option Explicit Dim a(20) As Integer, b(20) As Integer Dim k As Integer Private Sub cmdodd_Click() Dim I As integer K=0 For I= 1 To 20 If a(i)/2<>Int(a(i)/2) Then k=k+1;b(k)=a(i) Next I For I=1 To k Print b(i) If Int(i/5)=i/5 Then Print Next I Print End Sub Private Sub cmda11_Click() Randomize Dim I As Integer For I =1 To 20 A(i)=Int(Rnd()*20+100) Print a(i), If Int(i/5)=i/5 Then Print Next I Print End Sub Private Sub cmdsort_Click() Dim I As Integer Dim j As Integer For I=1 To k-1 For j= I to k If b(i)>b(j) Then temp=b(i):b(i)=b(j):b(j)=temp Next j Next I For I=1 To k Print b(i) If Int(i/5)=i/5 Then Print Next I End Sub 《VB程序设计》试卷四 学号＿＿＿＿姓名＿＿＿＿得分＿＿＿＿ 题号一二三四五六总分 分值10 10 20 18 18 24 100 得分 一、单选题（每小题1分，共10分） 1.要改变控件的宽度，应修改该控件的（1）属性。 A. Top B. Width C. Left D.Height 2.将命令按钮Command1设置为不可见，应修改该命令按钮的（2）属性。 A.Visible B.V alue C.Caption D.Enabled 3. 单击滚动条两端的任一个滚动箭头，将触发该滚动条的（3）事件。 A.Scroll B. KeyDown C.Change D.Dragover 4. (4) 对象具有Clear方法。 A.图片框 B.窗体 C.复选框 D.列表框 5．重新定义图片框控件的坐标系统，可采用该图片框的（5）方法。 A．Scale B.ScaleX C.ScaleY D.SetFocus 6.将通用对话框CommandDialog1的类型设置成另存为对话框，可调用该控件的（6）方法。 A．ShowOpen B. ShowSave C.ShowColor D.ShowFont 7. 形状控件所显示的图形不可能是（7）。 A、圆 B、椭圆 C、圆角正方形 D、等边三角形 8．由For k=10 to 0 step 3:next k循环语句控制的循环次数是（8）。 A、12 B、0 C、-11 D、-10 9．下列数据类型中，占用内存最大的是（15）。 A、Boolean B、Byte C、Integer D、Single 10. 如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（10）属性决定了该圆的颜色。 A、BackColor B、ForeColor C、FillColor D、DrawStyle 二、判断题（每小题1分，共10分） 1．Visual Basic程序的运行可以从Main()过程启动，也可以从某个窗体启动。（11） 2．同一Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。（12） 3．过程中的静态变量是局部变量，当过程再次被执行时，静态变量的初值是上一次过程调用后的值。（13） 4．事件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用。（14） 5．在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。（15）6．滚动条控件可作为用户输入数据的一种方法。（16） 7．单选钮控件和复选框控件都具有V alue属性，它们的作用完全相同。（17） 8．用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发KeyPress 事件。（18） 9．组合框兼有文本框和列表框两者的功能，用户可以通过键入文本或选择列表中的项目来进行选择。（19） 10. 在盘驱动器列表框Drive1的Change事件过程中，代码Dir1.Path=Drive1.Drive 的作用是：当Drive1的驱动器改变时，Dir1的目录列表随不同驱动器的作相应改变。（20） 11．T 12.F 13.T 14.F 15.F 16.T 17.F 18.F 19.T 20.T 三、填空题（每空2分，共20分） 1．下列代数式的Visual Basic表达式是（21）。 2．设x为大于零的实数，则大于x的最小奇数的V isual Basic表达式是（22）。3．a1和a2之中有且只有一个与a3的值相等，相应的Visual Basic逻辑表达式是：（23）。若a1和a2之中没有一个与a3的值相等，则相应的表达式是： （24） 4．设init的初值为10，则由下列循环语句控制的循环次数是（25）。 Do While init>=5 init=init-1 Loop 5.在Visual Basic 中，变量从它的作用范围来看，可分为（26）、（27）和（28）三种。 6．语句Picture1.Circle(800,1000),500的含义是（29）。 7．声明定长为10个字符变量Sstr的语句为：（30）。 四、程序阅读题（每小题6分，共18分） 阅读下列程序，写出运行结果。 a) 程序1 Private Static Sub Command1_Click() Dim x As Integer, s As Integer x = V al(InputBox("请输入一个正整数＝")) If x < 5 Then s = s * x Else s = s + x End If Text1.Text = "s=" + Str(s) End Sub 程序运行时连续三次单击Command1，且设输入的数是5，2和4时，分别写出文本框text1.text 的值。 结果：（31） b) 程序2 Private Sub Form_Click() Form1.Cls w = 3 For k = 2 To 6 Step 2 Form1.Print "w="; w, "k="; k w = w + 1 Next k Form1.Print "w="; w, "k="; k End Sub 写出程序运行时单击窗体后，Form１上输出结果。 结果为：（32） c) 程序3 Rem 在窗体的通用声明区声明两个模块级变量a和y Dim a As Integer, y As Integer Private Sub Form_Load() Open "c:\a1.dat" For Output As #1 Close #1 End Sub Private Sub Command1_Click() Open "c:\a1.dat" For Append As #1 Call aa(5) y = y + a Print #1, "y="; y, "a="; a: Close #1 End Sub Sub aa(i As Integer) x = 1 Do Until x > i a = a + x x = x + 3 Loop End Sub 写出程序运行时连续三次单击Command1后，a1.dat文件的最终结果 结果为：（33） 五、程序填空题（每小题9分，共18分） a) 程序说明:利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图１所示。单击“开始“命令按钮，秒表开始计时，单击“结束“命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行了０小时２分１０秒“。（假设对象的属性都在程序代码中设定）。 Dim x As Long Dim h As Integer, m As Integer, s As Integer Private Sub Form_Load() Form1.Caption = "动态秒表（小时：分：秒）" Command1.Caption = "开始[&S]" Command2.Caption = "结束[&E]" Label1.Alignment = 2 '居中对齐 Label1.Caption = "0:0:0" timer1.Interval =____（34）______ Timer1.Enabled = False x = 0 End Sub Private Sub Command1_Click() _________（35）________ End Sub Private Sub Command2_Click() Timer1.Enabled = False x=____（36）____ Label1.Caption = "运行了" + Str(h) + "小时" + Str(m) + "分" + Str(s) + "秒" End Sub Private Sub Timer1_Timer() x = x + 1 h=___（37）_____ m = (x Mod 3600) \ 60 s=___（38）_____ Label1.Caption = Str(h) + ":" + Str(m) + ":" + Str(s) End Sub b) 程序说明: 已知自然对数的底数e的级数表示如下: e=1+1/1!+1/2!+1/3!+......+1/n!+..... 本程序利用函数过程fact()求e，其中绝对值小于1E-8的项被忽略。 程序代码如下: Private Function fact(m As Integer) As Single ' 求Ｍ！的函数 Dim x As Single, i As Integer x = 1 for i=1 to m : x=____（39）_______ :Next i fact = x End Function Private Sub Form_Click() Dim e As Single, item As Single Dim n As Integer e=1 : n=_____（40）________ Do n = n + 1 item=____（41）___________ e = e + item Loop while __（42）_______ Form1.Print "e="; e End Sub 六、综合编程题:（每小题12分，共24分） １．随机产生n个两位正整数（n由输入对话框输入，且n>0），求出其中的偶数之和，并在标签框Label1上显示。 程序写在命令按钮command1的click事件中。 2．由输入对话框输入100个数值数据放入数组a。将其中的整数放入数组b，然后运用选择分类法将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。 注: 程序写在窗体form的Click事件中。 二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。 大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.wendangku.net/doc/1c8785208.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。 A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0 程序设计 〖第1题〗『程序设计』(5分)(题号:148) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求10~20之间所有素数的乘积并输出在窗体上。 ' 将结果存入变量L中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l) ---------------------- 〖第2题〗『程序设计』(5分)(题号:150) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。' 将结果存入变量J中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j ---------------------- 〖第3题〗『程序设计』(5分)(题号:131) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100， ' 结果输出在窗体上。 '------------------------------------------------- '将结果存入变量S中 '------------------------------------------------- 答案：---------------------- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) ---------------------- 〖第4题〗『程序设计』(5分)(题号:152) 一、程序设计 '【程序设计】 1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：'两个数为15、20，结果显示"5" '要求使用Do ... Loop语句来实现。 答案：Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 2.'题目：判断一个数是否是素数。 答案：---------------------- Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i ---------------------- 3,'题目：(事件)单击窗体。 ' (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。 答案：---------------------- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 4,'题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。 答案：---------------------- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ---------------------- 5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。 答案：---------------------- Dim y As Double y = 1 Dim i As Integer For i = 1 To m 第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。 第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C ) VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D). A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile 《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。 VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。 V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 …… | 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设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) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A", VB程序设计试题及答案（一） 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 … … Next x Next x 《VB程序设计》模拟试题 ●填空题 1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、 类模块文件的扩展名为______CLS_______ 。 2.Visual Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类，前者根据其取值的不同，可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________。 3. Abs(-6.5)= _____6.5______；Int(-9.1)= ____-10_______。 4. "程序"& "设计"运算结果为 ___程序设计____ 。 5. Dim a, b as Boolean语句显式声明变量a是___变体___变量，b是___布尔__变量。 6. MsgBox函数的返回值中， VBRetry表示单击了____重试_____按钮，VBYes表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。 7. 要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。 8.对话框分为_________对话框和________对话框两种类型，其中_____________ 对话框最 常用。 9. 对象是Visual Basic应用程序的基本单元，它是由 ___类___创建的。在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。 10. 条件判断语句可以使用___If…then____________语句、 ____If…Then…Else______语句和 ______If…Then…ElseIf______语句。Select case 语句 11. 声明一个值为3.14的常量Pi的语句为___Const pi = 3.14______。 12. Do…Loop Until 循环结构中，当条件为____真____时结束循环。 13. 要显示弹出菜单，可以在代码中使用_____________事件。 14. 参数传递有__________方式、__________方式和命名传递方式，常量默认采用__________方式；变量默认采用__________方式；表达式默认采用__________方式。 15. 名称属性必须以一个__字母标点_开始并且最长可达40个字符,不能包括__符号___ 和 ___空格___。 16.Visual Basic的程序模块有3种：____窗体模块____ 、标准模块和 ____类模块____。 17.Visual Basic程序，按其语句代码执行的先后顺序，可以分为___顺序__结构、选择__结构和___循环____ 结构。 18.数组元素下标的下界默认为是_____________，如果要改变其默认值，应使用_____________。 ●判断题 （）1. Visual Basic运行程序的方法只有编译模式。 （）2. 语句Command1.visible=false 与Command1.enabled=false 是等价的。 （）3. InputBox函数和MsgBox函数一样，返回的是字符串。 （）4. 通过类模块，我们不可以根据需要建立自己的控件。 （×）5. 2.1E+5是合法的Visual Basic数据。 （）6. 根据占用内存方式的不同，可将数组分为常规数组和动态数组两种类型。 （√）7. x2是合法的变量名。 （）8. 按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。 VB上机考试 1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。Dim a(1 To 5, 1 To 5) Private Sub Form_Click() Ran domize For i = 1 To 5 Forj = 1 To 5 a(i, j) = Int(Rnd * (999 - 100 + 1) + 100) Print a(i, j); Next j Print Next i End Sub 2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4 位四舍五入)。Private Sub Form_Click() For i = 1 To 25 a = In t(R nd * (99 - 10 + 1) + 10) Print a; s = s + a Next i Print Avg = s / 25 Print Avg End Sub 3、在窗体上按下鼠标的右键，记录其坐标。 Private Sub Form_Load() Label1.BorderStyle = 1 Label1.Alig nment = 2 End Sub Private Sub Form_MouseDow n(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle) If Butt on = 2 The n Label1.C apti on = X & "," & Y End If End Sub 4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1 （事件）单 ' （响应）用输入框输入一自然数，判断是”正数”、”负数” 或”零”，并根据输入的数用消息框显示”正数”、"负数" 或”零”。 n = lnputBox（" 输入一个自然数"） If n > 0 Then result =" 正数" Elself n < 0 Then result =" 负数" Elself n = 0 Then result =" 零" End If MsgBox"输入的数据"& n & " 为："& result 题目编写函数fun，函数的功能是：判断一个字符是 '字母字符、数字字符还是其他字符，并做相应的显示。 '字母字符显示字符串"字母" '数字字符显示字符串"数字" '其他字符显示字符串"其他" '要求使用IF语句来实现。 If UCase（n） >= "A" And UCase（n） <= "Z" Then fun =" 字母" ElseIf n >= "0" And n <= "9" Then fun =" 数字" Else fun =" 其他" End If '题目：编写函数fun，函数的功能是：根据一个百分制 '成绩mark （整数），显示对应五级制的评定。条件如下： 'mark大于等于90显示"优秀" 'mark小于90且大于等于80显示"良好" 'mark小于80且大于等于70显示"中等" 'mark小于70且大于等于60显示"及格" 'mark小于60显示"不及格" '要求使用IF语句来实现。 Private Function fun(mark As Integer) As String **********Program ********** **********End ********** End Function If mark >= 90 The n fun =" 优秀" ElseIf mark >= 80 The n 第一部分 １在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值"）。程序运行后，单击命令按钮完成以下工作： ①随机产生20个０到10０0的整数,将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上（如下图所示) ＰrivaｔｅSub Cmd1_Cｌick（) Ｄim ａ%（１9）, i%,ｓum!, avｅr! Raｎdomizｅ Foｒｉ= 0 Ｔo１9 a(i) =Int(Rｎd * 100１） sum = sum ＋a(i） Nｅxｔi ａver = suｍ/20 Print aveｒ EnｄSub 2 请在名称为Fｏrm1的窗体上添加一个名称为Ｔext１的文本框和一个名称为C1、标题为＂转换＂的命令按钮,如下图所示。在程序运行时，单击＂转换＂按钮,可以把Tｅxｔ1中的小写字母转换为大写，把大写字母转换为小写,其他字符不变。 Prｉvate Sub Ｃ1_Clｉｃｋ() Dim ｃh As String, ch１ As String, i％ cｈ= Text1 Ｆoｒ i = 1 Ｔo Len(ｃｈ） Ｉf Aｓｃ(Mｉd（ｃh，i, 1)) >= ６5 And Aｓｃ(Mid(cｈ, i, 1)) <= 9０Theｎ ｃh１= ch1 + LCａse（Mid(cｈ, i, 1）) Elｓｅ ｃｈ1 ＝ ch1 ＋ UCasｅ（Ｍid(ｃh, i, 1)） Enｄ If Neｘｔ i Text1 = Teｘｔ１＋ vｂCｒＬf Teｘt１＝ Text1 ＋ ch1 End Ｓub 3 在窗体上添加一个命令按钮(名称为MyCｍd1,标题为"输出最大值")。程序运行后,单击命令按钮完成以下工作： ①随机产生3０个0~100０的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Prｉvate SuｂMyCmｄ１_Ｃliｃk() Diｍa%(2９)， i%, max% Ｒandomize Fｏr i = 0 To ２9 a(i) ＝Ｉnt(Rｎd ＊ 1００1) Nｅxｔ i ｍａx = ａ(0) Foｒi ＝ 1 To 2９ Iｆ a(i) > max Ｔｈｅn max = a（i) Nｅｘt ｉ Pｒint mａｘ End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮,则对文本框中的文本内容做相应的设置。请编写适当的事件过程,完成上述功能。 V B程序设计题库全 Document serial number【LGGKGB-LGG98YT-LGGT8CB-LGUT- 程序设计 第一题、 题目：（事件）单击窗体 （响应）求50以内所有偶数的和，并在窗体上输出来。 将结果存入变量S中。 代码：Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Next Print (CStr(s)) 第二题 题目：（事件）双击窗体 （响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As Integer Dim k As Long k=1 s=0 For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 Next Print(CStr(s)) 第三题 题目：（事件）单击窗体 （响应）求100以内偶数的和，并将结果输出在窗体上。 将结果存入变量SUM中 代码：Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum 第四题 题目：（事件）单击窗体 （响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。将结果存入变量M中。 代码：Dim i,j As Integer Dim s As Long For i =10 To 15 s=1 For j = i To i +2 s=s*j Next m=m+s Next Print (CStr(m)) 第五题 题目：（事件）双击窗体 （响应）求100以内奇数的和，并将结果输出在窗体上。 将结果存入变量SUM中。 代码：Dim i As Integer For i=1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum 第六题VB期末考试试题及答案
大学VB考试题库
VB题库—程序设计[1]
vb题库程序设计
VB练习题(上机)含答案
vb程序设计试题(含答案)
VB考试题及答案
VB程序设计 试题与答案-1
vb试题及答案
VB程序设计试题及答案一
vb题库及答案
VB程序设计试题及答案(一)
《VB程序设计基础》模拟精彩试题
VB上机考试习题以及答案
vb题库程序设计题讲解
VB练习题(上机)含标准答案
VB程序设计题库全