vb练习题,电子版 第七章 Visual Basic控制结构(改)
第七章 Visual Basic控制结构
教学要求：
熟练掌握选择结构条件语句（包括单行结构条件语句、块结构条件语句）、IIf函数的特点和使用，熟练掌握多分支结构的特点和使用，熟练掌握For循环控制结构、DO循环控制结构的特点和使用，掌握多重循环控制结构，了解GOTO型控制（GOTO和ON-GOTO语句）的特点，正确使用选择结构、循环结构的嵌套。
知识点：
单行结构条件语句、块结构条件语句；IIf函数；多分支结构；For循环结构、DO循环结构、多重循环控制结构，循环控制语句的比较；选择结构、循环结构的嵌套。
熟练连续累加、累乘的算法，数列运算算法、‖遍历‖算法的程序设计；常用数值运算算法：平方根迭代公式、牛顿迭代法和二分法求方程的根、求f(x)的数值积分、泰勒公式。
内容导航：
一、选择控制结构
（一）单行结构条件语句
格式：If条件Then then部分［Else else部分］
功能：如果―条件‖为True，则执行―then部分‖，否则执行―else部分‖。
（二）块结构条件语句
格式：
If条件1 Then
语句块1
［ElseIf 条件2 Then
语句块2］
［ElseIf 条件3 Then
语句块3］
……
［Else
语句块n］
End If
功能：如果―条件1‖为True，则执行―语句块1‖;否则如果―条件2‖为True，则执行―语句块2‖……否则执行―语句块n‖，若无Else及其后面语句，则执行End If后面的语句。（三）IIf函数
IIf函数的格式：result=IIf（条件，True部分，False部分）
功能：当―条件‖为真时，IIf函数返回―True部分‖，而当―条件‖为假时返回―False部分‖。
二、多分支控制结构
格式：
Select Case 测试表达式
Case 表达式表列1
语句块1
［Case表达式表列2
［语句块2］］
……
［Case Else
［语句块n］］
End Select
执行过程：先对―测试表达式‖求值，然后测试该值与那一个Case子句中的―表达式表列‖相匹配；如果找到，就执行该Case子句有关的语句块，并把控制转移到End Select后面的语句；如果没有找到，则执行Case Else子句有关的语句块，并把控制转移到End Select。
三、For循环控制结构
一般格式：
For循环变量= 初值To终值［Step步长］
［循环体］
［Exit For］
Next［循环变量］［，循环变量］……
执行过程：首先把―初值‖赋给―循环变量‖，接着检查―循环变量‖的值是否超过―终值‖，若超过就停止执行―循环体‖，跳出循环，执行Next后面的语句；否则执行一次―循环体‖，然后把―循环变量＋步长‖的值赋给―循环变量‖，重复上述过程。
四、当循环控制结构
格式：
While
［语句块］
Wend
执行过程：如果―条件‖为True，则执行―语句块‖，当遇到Wend语句时，控制返回到While语句并对―条件‖进行测试，如仍然为True，则重复上述过程，如果―条件‖为False，则不执行―语句块‖，执行Wend后面的语句。
五、Do循环控制结构
格式：
Do
［语句块1］
［Exit Do］
Loop［While|Until循环条件］
Do［While|Until循环条件］
［语句块2］
［Exit Do］
Loop
功能：当指定的―循环条件‖为True或直到指定的―循环条件‖变为True之前重复执行一组语句（即循环体）。
训练：
一、选择题
1.VB的3中结构化程序设计的3种基本结构是________。
A) 选择结构、过程结构、顺序结构B) 递归结构、选择结构、顺序结构
C) 过程结构、转向结构、递归结构D) 选择结构、顺序结构、循环结构
2．用If语句表示分段函数
3
3
11
()
11
x x
f x
x x
?-≥
=?
+<
?
，以下________表示方法不正确。
A) f=x^3+1
If x>=1 Then f=s^3-1
B) If x>=1 Then f=x^3-1
If x<1 Then f=x^3+1
C) If x>=1 Then f=x^3-1
f=x^3+1
D) If x<1 Then f=x^3+1 Else
F=x^3-1
3．执行下面的程序段后显示结果是________。
Private Sub Form_Click()
Dim m
If m Then Print m Else Print m+1
End Sub
A) 0 B) 1 C) ‖‖D) False
4．设a=6，则执行x=IIf(a>5,-1,0)后，x的值为________。
A) 5 B) 6 C) 0 D) –1
5．下面程序段的运行结果是________。
cj=85
If cj>90 Then dj="A"
If cj>80 Then dj="B"
If cj>70 Then dj="C"
If cj>60 Then dj="D"
If cj<60 Then dj="E"
Print "dj=";dj
A) dj=B B) dj=C C) dj=D D) dj=E
6．下列语句正确的是________。
A) If K<3*N And k>N Then N=k^3
B) If K<3*N And k>N Then N=k3
C) If K<3*N : k>N Then N=k^3
D) If K<3*N And k>N Then N=k**3
7．设X=2.0，y=8.0，z=6.0，L=True，则下列V isual Basic表达式中值为True的是________。
A) X+Z>Y AND L B) NOT(Y
C) NOT L OR (L=Y+X=Z) D) Y+X>=Z+X AND (L AND FALSE)
8．要判断‖月收入在2000元以上（含2000元）且5000元以下（不含5000元）‖的职工，应使用的逻辑表达式是________。
A) M>=2000 AND M<=5000 B) M>=2000 OR M<=5000
C) M>=2000 AND M<5000 D) M>=2000 OR M<5000
9．下列程序段的执行结果为________。
x=Int((69-60)*Rnd+60)
Select Case x
Case Is>90
Print "优秀"
Case 80 To 89
Print "良好"
Case 60 To 79
Print "合格"
Case Else
Print "不合格"
End Select
A) 优秀B) 良好C) 合格D) 不合格
10．在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：运行结果________。Private Sub Command1_Click()
For I=1 To 4
For J=0 To I
Print Chr$(65+I);
Next J
Next I
End Sub
单击命令按钮后，运行结果________。
A) BB
CCC
DDDD
EEEEE
B) A
BB
CCC
DDDD
C) B
CC
DDD
EEEE
D) AA
BBB
CCCC
DDDDD
11．在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For i=0 To 50
i=i+3
n=n+1
If i>10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是________。
A) 2 B) 3 C) 4 D) 5
12．在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，输出结果是________。
A) 7 B) 15 C) 157 D) 538
13．阅读下面的程序段：
For i=1 To 3
For j=1 To i
For k=j To 3
a=a+1
Next k
Next j
Next i
执行上面的三重循环后，a的值为________。
A) 3 B) 9 C) 14 D) 21
14．在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：Private Sub Form_Load()
Text1.Text=""
Text1.SetFocus
For i=1 To 10
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是________ 。
A) 在文本框Text1中输出55 B) 在文本框Text1中输出0
C) 出错D) 在文本框Text1中输出不定值
15．有如下程序：
a=10
b=4
For j=1 To 20 Step -2
a=a+5
b=b+4
Next j
Print a;b
运行后，输出的结果是________。
A) 10 4 B) 60 24 C) 110 44D) 55 40
16．有如下程序：
d$=""
a$="abcde"
For i=Len(a$) To 1 Step -1
d$=d$+Mid(a$,i,1)
Next i
Print d$
运行后，输出的结果是________。
A) abcde B) edcba C) acebd D) ecadb
17．在Command1_Click事件程序的功能是：按顺序读入10名学生4门课程的成绩。计算出每位学生的平均分并输出，程序如下：
Dim n As Integer,k As Integer
Dim score As Single,sun As Single,ave As Single
sum=0#
For n=1 To 10
For k=1 To 4
score=InputBox("请输入一门课的成绩")
sum=sum+score
Next k
ave=sum/4
print"第";n;"个人的平均成绩为：";ave
Next n
上述程序运行后结果不正确，调试中发现有一条语句出现在程序中的位置不正确。这条语句是________。
A) sum=0# B) sum=sum+score
C) ave=sum/4 D) print"第";n;"人的均分：";ave
18．下列程序的输出结果是________。
Dim y As Integer
y=10
While y<>0
y=y-1
Wend
Print "y=" ; y
A) y=0 B) y=1 C) y=随机值D) y=-1
19．以下程序的输出结果是________。
Dim m As Integer
m=1
While m<=3
m=m+1
Print m;
Wend
A) 2 B) 2 3 C) 2 3 4 D) 2 3 4 5
20．下面的程序运行结果是________。
Private Sub Form_Click()
m=0
Do Until 0
m=m+1
If m>10 Then Exit Do
Loop
Print m
End Sub
A) 0 B) 10 C) 11 D) 出错
21．下面程序运行语句Print m执行的次数是________。
Private Sub Form_Click()
Dim m As Integer,n As Integer
m=0
Do
m=m+1
For n=10 To 1 Step -3
m=m+n
Print m
Next n
Loop While m<50
End Sub
A) 4 B) 8 C) 12 D) 16
22．在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是________。
A) 15和1 B) 27和3 C) 195和3 D) 600和4
23．在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name 属性为Command1），然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为________。
A) 1和0 B) 2和72 C) 3和50 D) 4和168
24．在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do Until x=-1
a= InputBox("请输入A的值")
a=V al(a)
b=InputBox("请输入B的值")
b=V al(b)
x=InputBox("请输入x的值")
x=V al(x)
a=a+b+x
Loop
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为________。
A) 2 B) 3 C) 14 D) 15
二、填空题
1．执行下面的程序，当输入的值为5时输出为________。
Private Sub Form_Click()
Dim x As Single
x=InputBox("X")
If x<0 Then '
y=1 : Print y
ElseIf x>=0 Then
y=2 : Print y
ElseIf x>=1 Then
y=3 : Print y
Else
y=4 : print y
End If
End Sub
2．下面的程序将从InputBox输入对话框得到的3个数按从大到小输出。阅读程序并填空。如果程序运行时分别输入12.3、35.8和25.7三个数，则输出为________。
Private Sub Form_Click()
Dim a As Integer,b As Integer,c As Integer
a=InputBox("输入一个数")
b=InputBox("输入一个数")
c=InputBox("输入一个数")
If b>a Then
d=a : a=b : b=d
End If
If c>a Then
d=a : a=c : c=d
End If
If c>b Then
End If
Print a;b;c
End Sub
3．下列程序运行时，单击窗体，执行结果为______________________________。说明：在窗体上有一个Label控件，名为lblDate。
Dim Y As Integer, D As Integer, W1 As Integer
Dim Rq As Date
Dim W2 As String
Private Sub Form_Click()
Rq = Date
Y = Y ear(Rq) : m=Month(Rq) : d=Day(Rq)
W1 = Weekday(x)
Select Case W1
Case 1
W2 = "日"
Case 2
W2 = "一"
Case 3
W2 = "二"
Case 4
W2 = "三"
Case 5
W2 = "四"
Case 6
W2 = "五"
Case 7
W2 = "六"
End Select
lbldate.Caption = "今天是" & Y & "年" & M & "月" & D & "日" & W2
End Sub
4．执行下面的程序段后，s的值为____________。
a=5
For i=2.6 To 4.9 Step 0.6
s=s+1
Next i
5．下面是一个体操评分程序。20位评委，除去一个最高分和一个最低分，计算平均分（设满分为10分）。
Max=0
Min=10
For i=1 To 20
n=V al(InputBox"请输入分数")
If ______________Then Max=n
If ______________Then Min=n
s=s+n
Next i
s=______________
p=s/18
Print"最高分";Max,"最低分";Min
Print"最后得分:";p
6．下面程序的功能是求1到100的平方和，如果平方和超过了1000则跳出循环，输出此时的和S。
For I=1 To 100
s=s+i*i
If s>1000 Then
______________
End If
next i
abc:Print s
7．以下程序段的输出结果是____________。
num=0
While num<=2
num=num+1
Print num
Wend
8．以下程序段的输出结果是____________。
Dim j As Integer,s As Integer
Do
s=s+j
j=j+1
Loop Until j=5
Print "s=";s
9．以下程序段，程序运行后，要求执行4次循环。
x=1
Do
x=x+1
print 15
loop Until___________
10．下列程序运行后，内层循环的循环总次数___________。 For x= 1 to 4 For y =1 to x Print y Next y
Next x
三、简答题
1．设计使用二分法求非线性方程f(x)=0在区间[a,b]的实根的算法。
提示：
从端点a x =0开始，以h 为步长，逐步往后进行搜索；对于每一个子区间[i x ，1+i x ]（其中1+i x ＝i x +h ）：若0)(=i x f ，则i x 为一个实根，且从2
h x i +开始再往后搜索；
若0)(1=+i x f ，则1+i x 为一个实根，且从2
1h x i +
+开始再往后搜索；若
0)()(1>+i i x f x f ，则说明当前子区间内无实根．从1+i x 开始再往后搜索；若0)()(1<+i i x f x f ，则说明在当前子区问内有实根。此时，反复将子区间减半，直到
发现一个实根或子区间长度小于ε为止。在后一种情况下，子区间的中点即取为方程的—个实根。然后再从1+i x 开始往后搜索。其中ε为预先给定的精度要求。以上过程一直进行到区间有端点b 为止。
在使用本方法时，要注意步长h 的选择。若步长h 选得过大，可能会导致某些实根的丢失；若步长h 选得过小．则会增加计算工作量。
2． 设计用变步长梯形求积法计算定积分?
=
b
a
dx x f T )(的算法
提示： 首先用梯形公式计算：
)]()([2
b f a f h T n +=
其中n=1，h=b-a
然后用下列递推公式计算：
∑-=++
=
1
2)5.0(2
21n i i n n h x f h
T T
n n ?2，h h ?05
直至ε<-n n T T 2为止
3．设计使用牛顿迭代法求方程f(x)=0的一个实根的算法。
提示：
设f(x)=0，则满足下列条件：
(1))(x f 在闭区间[a,b]上，其)('x f 与)("x f 均存在．且各自保持固定符号； (2)0)()(
(3)0)()("0>x f x f ，且∈0,x x [a,b]。
则方程f(x)=0在区间[a,b]上有且只有一个实根，取初值0x ，由牛顿迭代公式：
)(/)("
1n n n n x f x f x x -=+
计算得到的序列0x ，1x ，…，n x ，…收敛于方程f(x)=0的根。
结束迭代过程的条件为ε<+)(1n x f 与ε<-+n n x x 1同时成立，其中ε为预先给定的精度要求。
四、程序阅读题
1．写出下面程序的运行结果。
Private Sub Form_Click() Dim s As Integer,k As Integer,m As Integer,n As Integer s=1
For m=1 To 3
For n=m To 3 For k=n To m Step -1 s=s*k Next k,n,m
Print s
End Sub
2．写出下面程序的运行结果。 Private Sub Form_Click() For i=3 To 1 Step -1 Print Spc(10-i); For j=1 To 2*i-1 Print "*"; Next j
Next i End Sub
3．写出下面程序的运行结果。 Private Sub Form_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
print x
End Sub
4．写出下面程序的运行结果。
Private Sub Form_Click()
m=0
Do
m=m+1
If m>10 Then Exit Do
Loop Until m<10
Print m
End Sub
5．写出下面程序的运行结果。
Private Sub Form_Click()
Dim m As Integer,n As Integer
m=10
Do
m=m+n
For n=10 To m step -1
m=m+n
Next n
Loop While m<50
Print m;n
End Sub
6．写出下面程序的运行结果。
Private Sub Form_Click()
Dim m As Integer,n As Integer,k As Integer
m=1 : n=a : k=5
Do While m<=k*n
m=m*n
n=n+1
Print m;n
Loop
Print m;n
End Sub
7．写出下面程序的运行结果。
Dim i As Integer,a As Integer
Do While i<20
Do While True
If i Mod 10=0 Then
Exit Do
Else
i=i-1
End If
Loop
i=i+11 : a=a+i
Loop
Print a
五、程序填空题
1．下面的程序段是检查输入的文字段中大括号是否配对，并显示相应的结果。本程序在文本框中边输入，边统计大括号的个数，以输入回车符作为输入结束标志，然后显示结果。Dim count1%,str As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
str=【1 】
If str="{" Then
count1=count1+1
ElseIf str="}" Then
【2 】
End If
If KeyAscii=13 Then
If【3 】Then
Print "左右大括号配对"
ElseIf【4 】Then
Print "左大括号多"；count1;"个"
Else
Print "右大括号多"；-count1;"个"
End If
End If
End Sub
2．下列Visual Basic程序的功能是：计算一元二次方程的根，若为复根，要以R+W（为虚数单位）的形式输出，请填空。
Dim a As Single,b As Single,c As Single
Dim q As Single,q1 As Single,q2 As Single
a=InputBox("请输入第一个参数")
b=InputBox("请输入第二个参数")
c=InputBox("请输入第三个参数")
q=b^2-4#*a*c
q1=-b/2/a : q2=Sqr(Abs(q))
If(Abs(q2)<0.0000001) Then
Print "x1=x2=";q1
ElseIf(【1 】)Then
Print "x1=";q1+q2
Print "x1=";q1-q2
Else
Print"COMPLEX ROOT1=";【2 】Print"COMPLEX ROOT2=";【3 】End If
3．阅读下面分段函数及其程序，请填空：
0(10)
220(100)
20(020)
300.5(2040)
50(4050)
0(50)
x
x x
x
y
x x
x x
x
<-
?
?
+-≤
?≤<
?
=?
-≤<
?
?-≤<
?
≤
??
Dim x As Single,y As Single
x=inputBox("请输入x")
If(x<-10) Then
y=0#
ElseIf(x<0) Then
y=2*x+20
ElseIf(【1 】) Then
y=20
ElseIf(x<40) Then
【2 】
ElseIf(x<50) Then
y=50-x
【3 】
y=0
End If
Print "X=";x;"Y=";y
4．随机产生0~100的整数作为某门功课的分数，按0~59、60~69、70~89、90~100划分为不及格、及格、良好、优秀4个层次，阅读程序并填空。
Private Sub Form_Click()
Dim m
m=Int(101*Rnd)
Print m
【1 】
Print m
Select Case m
Case【2 】(此空不能超过5个字符)
Print "不及格"
Case 6
Print "良好"
Case 7,8
Print "良好"
Case Else
Print "优秀"
End Select
End Sub
5．下面的程序输入X的值，按以下公式求Y值。
1001000
1000100
400100200
X X
Y X X
X
--≤
?
=+≤≤
?
?<≤
?
Private Sub Command1_Click()
X=V al(Text1.Text)
Select Case X
Case 【1 】
Print "X<-100 OR X>200"
Case 【2 】
Y=100-X
Case 【3 】
Y=100+X
Case 【4 】
Y=400
End Select
Text2.Text=Y
End Sub
6．以下程序是利用公式
1111
4*()
1357
π=-+-+ 来计算π的值。其中，变量k表示当前
符号项，t表示当前项，n表示当前项的序号，要求精度控制在0.00001内。试分析程序，完成空格处填的内容。
Dim pi As Single,t As Single
Dim n As Single,k As Single
pi=0 : n=1
k=1 : t=1
Do While(【1 】)
pi =pi+t
k=-k
t=【2 】
n=n+1
Loop
pi=【3 】
Print "pi=";pi
7．下列程序的功能是输出的前20项，按每行5个数的形式输出。
Fibonacci数列：F1=1,F2=1,Fn=Fn-1+Fn-2(n>=2)
Dim a As Integer, b As Integer
Dim c As Integer, i As Integer
a = 1:
b = 1: i = 3
Print a, b,
Do While (i <= 20) c = a + b a = b b = c
【1 】
If 【2 】Then Print End If
【3 】 Loop
六、编程题
1．编写程序利用下列分段函数求y 的值并输出结果。用InputBox 函数输入x ，在窗体上输出y 。
2．工资调整方案：工资>=3000，增加15%；2000<=工资<3000，增加20%；工资<2000，增加25%。根据下
述工资调整方案计算调整后的工资。用InputBox 函数输入调整前的工资值，在窗体上输出调整后的工资。 3． 编程求一元二次方程ax 2+bx+c=0的根，a,b,c 为其系数，用InputBox 函数输入。
4．编写程序在键盘输入月份的数值，即1－12之间的数值，计算机打印出该月份的季节（12、1、2为冬季，其余类推）。比如输入7，输出Summer 。
5．炊事员上街采购，用500元钱买了90只鸡，其中母鸡一只15元，公鸡一只10元，小鸡一只5元，正好把钱买完。编写程序求母鸡、公鸡、小鸡各买多少只？ 6．输入正整数M 和N （M + + + + 13 218 135 83 52 31 2…前20项之和。 8．求出100－999之间的所有水仙花数（如果一个三位数，它的每位数字的立方和等于这个三位数，则称它为水仙花数。例如：153＝13＋ 53＋ 33，所以153是一个水仙花数） 9：求13的13次方的最后三位数。 算法分析与提示：由于计算机所能表示的整数范围有限，将13累乘13次方截取最后三位不可能得到正确的结果。研究乘法的规律发现：乘积的最后三位的值只与乘数和被乘数的后三位有关，与乘数和被乘数的高位无关。可利用这一规律简化程序。 10：求100!的尾数有多少个零。 算法分析与提示：由于计算机所能表示的整数范围有限，求出100!的值是不可能的。一个整数若含有一个因子5，则必然会在求100!时产生一个零。问题转化为求1到100这100个整数中包含了多少个因子5。若整数N 能被25整除，则N 包含2个因子5；若整数N 能被5整除，则N 包含1个因子5。 2x + 10 ， x<0 y = x 2—10 ， 0<=x<15 5x + 1 ， x>=15 二、选择题 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.360docs.net/doc/7c16021902.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：以下（）是正确的for….next结构。 （A）for x=1 to step 10 (B) for x=3 to –3 step -3….. ….. next x next x (C ) for x=1 to 10 (D) for x=3 to step 3 re: …. …… Next x next y If I=10 then goto re 2:下列循环语句能正常结束循环的是（） （A）I=5 (B) I=1 do do I=I+1 I=I+2 Loop until I<0 loop until I=10 (C) I=10 (D) I=6 do do I=I-1 I=I-2 Loop until I<0 loop until I=1 3:下面程序段的运行结果为（ ） for I=3 to 1 step –1 print spc(5-I); for j=1 to 2*I-1 print “*”; next j print next I 4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（ ） private sub text1_change( ) print ; end sub (A) ABCD (B) ( C ) AABABCABCD * * * * (B) * * * * * * * * (C) * * * * * * * * (D) * * * * * * * * A B C (D) A AB ABC 5哪个程序段不能分别正确显示1!,2!,3!,4!的（ ） 二：填空题 1：要使下列For 语句循环执行20次，循环变量的初值应当是： for k=( ① ) to –5 step –2 2:下面程序段显示（ ② ）个“*” 。 For I=1 to 5 For j=2 to I Print “*”; Next j Next I 3: 下列第40句共执行了（ ③ ）次，第41句共执行（④ ）次。 30 for j=1 to 12 step 3 40 for k=6 to 2 step –2 41 print j,k 42 next k （A ） for I=1 to 4 n=1 for j=1 to I （B ） for I=1 to 4 for j=1 to I n=1 (C) N=1 for j=1 to 4 (D) N=1 J=1 Do while j<=4 程序设计 〖第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) VB顺序结构及选择结构练习 一、单选题 1.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程 Private Sub Command1_Click() b=5 c=6 Print a = b + c End Sub 程序运行后，单击命令按扭，其结果为（D） A）a=11 B）a=b + c C）a= D）False 2. 在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程 Private Sub Command1_Click(D) a=11 b=5 c=6 Print a = b + c End Sub 程序运行后，单击命令按扭，其结果为（） A）a=11 B）a=b + c C）a= D）True 3.以下语句的输出结果是（B） a = Sqr(3) Print Format(a,”$$#### : ###”) A）$1.732 B）$$1.732 C）$1732 D）$$00001.732 4.以下程序段的输出结果是（D） a = Sqr(3) b = Sqr(2) c =a>b Print c A）-1 B）0 C）False D）True 5.以下语句的输出结果是（C） Print Format$ (32548.5,”000,000.00”) A）32548.5 B）32,548.5 C）032,548.50 D）32,548.50 1.假定有如下语句： answer$=MsgBox(“String1”,, “String2”, “String3”,2) 执行该语句后，将显示1个信息框，此时如果单击“确定”按扭，则answer$的值为（D）A）String1 B）String2 C）String3 D）1 一、VB 基本知识及选择、循环结构习题 一、基本概念题 （1） 说明下列哪些是Visual Basic 合法的直接常量，并分别指出它们的类型。 100.0 %100 1E1 123D3 123,456 0100 “ASDF” “1234.5” #2004/10/7# 100# π &O78 &H123 True T -1123! 345.54# （2）下列数据哪些是变量，哪些是常量？是什么类型的常量？ Name “name” False ff “11/16/99” cj “120” n #11/12/2004# 12.345 （3） 下列符号中，哪些可以是Visual Basic 的合法变量名？ A123 a12_3 123_a a,123 a 123 Integer XYZ False Sin(x) 变量名 sinx π （4）把下列数学表达式写成Visual Basic 表达式： （1）5||z y x ++ （2）6 )1(xy + （3）xy y x 310+ （4）a ac b b 242-+- （5）3211111 r r r + + （6） 110ln 45sin 10 ++++y x e ο （5）写出下列表达式的值： （1）123 + 23 Mod 10 \ 7 + Asc("A") （2）Int(68.555 * 100 + 0.4) / 100 （3）#11/22/2004# - 10 （4）"ZXY" & 123 & "abc" （6）设a=7，b=3，c=4，求下列表达式的值： （1）a + 3 * c （2）a ^ 2 / 4 （3）a / 2 + 3 \ 2 （4）a Mod 3 + b ^ 3 / c \ 5 （7）写出下列函数的值： （1）Int(-3.14159) （2）Fix(-3.14159) （3）Sqr(Sqr(81)) （4）Len("Visual Basic 程序设计") （5）Int(Abs(99 - 100) / 2) （6）Sgn(7 * 3 + 2) （7）LCase("Hellow VB!") （8）Mid("Hellow VB!", 4, 3) （9）Left("Hellow VB!", 3) （10）Val("16个加23个") （11）Str(-459.55) （12）UCase("Visual Basic") 二、 选择题 （1）可以同时删除字符串前导和尾部空格的函数是 。 A. Ltrim B. Rtrim C. Trim D. Mid （2）函数Int(Rnd(1) * 10)是在哪个范围产生随机整数 。 A. (0,1) B. (0,9) C. (1,10) D. (1,9) （3）数学式子sin25o写成Visual Basic 表达式是 。 A.Sin25 B. Sin(25) C. Sin(25o) D. Sin(25*3.14/180) （4）表达式16/4 – 2^3 * 8/4 Mod 5\2的值是 。 A. 14 B. 4 C. 20 D. 2 （5）数学关系式103<≤x 表示成正确的VB 表达式为 。 A. 3<= x <10 B. x >= 3 And x<10 C. x>=3 Or x<10 D. 3<= x And <10 （6）已知A=”12345678”，则表达式Val(Left(a, 4) + Mid(a, 4, 2))的值是 。 一、程序设计 '【程序设计】 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 《VB选择结构程序设计》教学设计 山东省临清市第二中学吴焕英 【案例背景】 高中信息技术新课程的实施，其课程目标定位于全面提升学生的信息素养，其课程的设置从知识与技能、过程与方法、情感态度与价值观三个方面实施这个课程目标。然而，众多的老师实施新课程后发现：教学内容的范围比以前更广泛了、课时远远不够、教学软硬件资源缺乏等诸多问题。因此，如何更有效地开展新课程教学，成为老师们迫切需要解决的问题。本教学案例从学生的实际情况出发，根据现有的数学、英语基础，结合简单的生活实例，引导学生进行探索式学习，问题从简单的英语口语入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。这样的教学案例，值得我们反思研究、总结与完善。 【教材分析】 算法与程序设计是普通高中信息技术课程中选修模块之一，本模块旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “选择结构”是教育科学出版社出版的高级中学课程标准实验教科书、算法与程序设计第二章第三节的内容，共分三课时，本课为第二课时。主要内容是用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高一的学生在数学课中已经有了算法和程序设计的基础，学生对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。 【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法，这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适应信息社会的公民。 因此本节课的目标有以下几项： 第一部分 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 程序设计主备：闫森审核：日期： 课题：选择结构程序设计实际应用（2） 实验目的： 1、掌握If语句的使用。 2、掌握Select Case语句的使用。 实验内容与过程 说第一步：独学（请同学们独立完成以下任务） 知识回顾： 1、单分支条件语句格式：①IF <表达式> THEN 语句块 End If ②IF <表达式> THEN 语句块 2、双分支条件语句格式： IF <表达式> THEN 语句块1 Else 语句块2 End If 任务1(基本设计题) 题目：一般网络游戏只允许成年人进入，你来编写一个根据 明 ： 本 节 课 只 完 成 任 务 1 和 任 务 2 的 题 目 要 求 及 问 年龄判断是否成年的小程序。（规定成年人年龄>18周岁） 请你根据题意，利用双分支条件语句格式2种方法（单行和 多行）编写程序代码，并上机测试。 设计界面如下： 编写程序代码： 题 。课后作业下次实训务必完成。第二步：合作（问题）探究（对学、群学） 任 务 2. （ 提 高 设 计 题） 在 “ 神州号”程序中，需要判断飞船飞行状况。当飞船速度继续 加大时，飞船将达到第二宇宙、第三宇宙速度（见下表）试 编写程序，输入不同的飞船速度V，判断它的各种飞行状况， 显示出来 飞船速度V 单位 （km/s） 飞行状况情况 程序界面如下： 补充程序代码： Private Sub command1_click() Dim V AS single, n AS integer V= VAL(InputBox(“SPEED=”,”输入速度”)) <=V< 1--Move around Earth飞船绕 地球做匀速圆周运动 1 11 19<=V< 2--Move around SUN飞船离开 地球的控制 ,围绕太阳转 2 V> 3--Break gravitate of solar 飞船挣脱太阳引力飞出太阳 系 3 其它警告出错信息0 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 循环结构测试题（四） ：选择题 1 ：以下（）是正确的for….nex结构。 (A) for x=1 to step 10 (B) for x=3 to -3 step -3 next x (C ) for x=1 to 10 re: … Next x If I=10 then goto re 2 :下列循环语句能正常结束循环的是( (A)I=5 do I=I+1 Loop until I<0 (C) I=10 do I=I-1 Loop until I<0 3 :下面程序段的运行结果为( ) for I=3 to 1 step -1 print spc(5-I); next x (D) for x=3 to step 3 next y ) (B) I=1 do I=I+2 loop until I=10 (D) I=6 do I=I-2 loop until I=1 for j=1 to 2*1-1 print “ * n ext j print next I 4下列程序在文本框输入B ）“* * ABCD ”四个字符时*窗体上显示D 是* （* * ） * * * ***** private sub text1_cha nge() print textl.text; end sub 2:下面程序段显示=i(② for j=1 to 4 For I=1 to n=n*j print n For j=2 j to I Print Next j Next I (A) ABCD (B) (D) A (C ) AABABCABCD AB 5哪个程序段不能分别正确显示 1!,2!,3!,4!的( ABC (A) 二：填空题 1:要使下列 for I=1 to 4 n=1 for j=1 to I n=n*j F(5 《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. 标签框的边框，由属性的设置值决定。 1. 下列VB程序段的基本结构是( ) If x<=12 Then y=3x Else y=4x End If A.分支结构 B.顺序结构 C.循环结构 D.树形结构 答案: A 2. 关于算法，说法不正确的是（） A.算法是程序设计的灵魂 B.解决问题的过程就是实现算法的过程 C.算法独立于任何具体的语言，VB 算法只能用VB语言来实现 D.算法的作用在于记录和交流人类解决问题的思想 答案: C 3. if x>=10 then y=5*x else y=4*x 以上程序段属于（） A.顺序结构 B.分支结构 C.循环结构 D.流程结构 答案: B 4. 在VB中,利用（）显示和编辑程序代码。 A.工程资源管理器窗口 B.窗体设计器窗口 C.代码编辑窗口 D.属性窗口 答案: C 5. 下面保存VB程序的说法正确的是（) A.只保存窗体文件 B.只保存工程文件 C.分别保存工程文件和标准模块文 件 D.分别保存窗体文件和工程文件 答案: D 6. VB中，数据类型整型用（）表示。 答案: A 7. 数学式(2a-b)/(2a+b)在VB中的正确写法是（） A.(2*a-b)/(2a+b B.(2*a-b)/2*a+b C.(2a-b)/(2a+b) D.(2*a-b)/(2*a+b) 答案: D 8. 在VB中，当a=2，b=3时，表达式a>b的值是（） A. True C. 0 D. 1 答案: B 9. 下列程序段属于( ) Select Case x Case 1 ="优秀" Case 2 ="良好" Case 3 ="一般" Case Else ="较差" End Select A.顺序结构 B.分支结构 C.循环结构 D.流程结构 答案: B 10. 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期末考试试题及答案
大学VB考试题库
VB循环结构测试题及答案
VB题库—程序设计[1]
VB顺序结构练习
VB基本学习知识及其选择,循环结构习题集
vb题库程序设计
《VB选择结构程序设计》教学设计
VB练习题(上机)含答案
vb程序设计试题(含答案)
vb选择结构教案
VB考试题及答案
VB循环结构测试题及答案
VB程序设计 试题与答案-1
vb试题及答案
微机vb选择题
VB程序设计试题及答案一