1． 以下（）是正确的For...Next结构。
A. For x=1 To Step 10
... Next x
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
D. For x=3 To 10 Step 3
...
Next y
2.下列循环体能正常结束的是（C）。 A. i=5 Do
i=i+1 Loop Until i<0
B. i=1 Do i=i+2
Loop Until i=10 C. i=10
Do i=i+1 Loop Until i>0 D. i=6 Do i=i-2
Loop Until i=1
3.下面程序段的运行结果为（）。 label1.text= “”
For i=3 To 1 Step -1
Label1.Text &=Space(5-i)
For j=1 To 2*i-1 Label1.Text &=”*” Next j
Label1.Text &=vbCrLf Next i
A. * B. ***** C.***** D. *****
*** *** *** *** ***** * * *
4.当在文本框输入“ABCD”四个字符时，窗体上显示是（C）。 Sub TextBox1_TextChanged(.....) Handles TextBox1.TextChanged Label1.Text &=TextBox.Text
End Sub
A. ABCD B. A C.AABABCABCD D.A B AB C ABC D ABCD 5.下列程序段不能分别正确显示 1！、2！、3！、4！的值的是（）。
A. For i=1 To 4
n=1
For j=1 To i
n=n*j
Next j MsgBox(n) Next i
B. For i=1 To 4 For j=1 To i
n=1 n=n*j
Next j MsgBox(n) Next i C. n=1
For j=1 To 4
n=n*j MsgBox(n) Next j
D. n=1 j=1
Do While j<=4 n=n*j
MsgBox(n) j=j+1 Loop 二.填空题
1．要使下列For语句循环执行20次，循环变量的初值应当是： For k=____33____ To -5 Step -2 2.下面程序段显示_________个“*”。
For i=1 To 5
For j=2 To i MsgBox(“*”) Next j
Next i
3.下列第40句共执行了_____4____次，第41句共执行了__12___次。
30 For j=1 To 12 Step 3 40 For k=6 To 2 Step -2 41 MsgBox(j & “ ” & k) 42 Next k
43 Next j
4.输入任意长度的字符串，要求将字符顺序倒置。例如，将输入的“ABCDEFG”变换成“GFEDCBA”。
Sub Button1_Click(......) Handles Button1.Click Dim a$, I%, c$, d$, n%
a=InputBox$(“输入字符串”) n=_________ d=””
For I=1 To__________
c=Mid(a,I,1) d=d & c
Next I MsgBox(d)
End Sub
5．找出被3、5、7除，余数为1的最小的5个正整数。
Sub Button1_Click(......) Handles Button1.Click
Dim CountN% , n% CountN=0 n=1 Do
n=n+1
If_________ Then MsgBox(n) countN=CountN+1 End If
Loop________ End Sub
6.有个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当每步跨7阶时恰好走完，显示这个阶梯至少要有多少阶。 <提示>
利用其肯定是7的倍数这个条件，然后根据同时满足除n余m（n=2，3，4，5，6；m=1，2，3，4，5）的逻辑关系即可。
Sub Button1_Click(......) Handles Button1.Click Dim n%, m%
For n=7 To 10000 Step 7 If n Mod 2=1 And _______________________________________________ Then
MsgBox(n)
_______________
End If Next End Sub
8． ---------------------------某班在一周中6天内考三门分别为x、y、z的考试课程，规定一天只能考一门，
先考x，后考y，最后考z，最后一门最早周五考。用计算机排考试，列出满足条件的方案数。 Sub Button1_Click(......) Handles Button1.Click Dim x%, y%, z%, n%
n=0
Label1.Text= “”
For x=1 To 4
For y=________To 5 For z=5 To 6
If_______ And y Label1.Text &=x & space(9) & y & Space(9) & z & vbCrlf ____________ End If Next Next ________ “满足条件的方案为；” & n End Sub 9． 某次大奖赛，有7个评委打分，以下程序是针对一名参赛者，输入7个评委的打分分数，去掉一个最高分、一个最低分，求出平均分，为该参赛者的得分。 Sub Button1_Click(......) Handles Button1.Click Dim mark!,aver!,max1!,min1! aver=0 For i=1 To 7 mark=InputBox(“输入第”& i & “位评委的打分”) If i=1 Then max1=mark:____________ Else If mark Next ElseIf mark>max1 Then ___________ End If End If ___________ Next i aver=__________ MsgBox(aver) End Sub 第五章 数组 一.选择题 1．如下数组声明语句中正确的是（B。 A. Dim a[3,4] As Integer B. Dim a(3,4) As Integer C. Dim a{3,4} As Integer C. Dim a(3 4) As Integer 2.如下数组声明语句中正确的是（B。 A. Dim (9) As Single={1,2,3,4,5,6,7,8,9,10} B. Dim a( ) As Single={1,2,3,4,5,6,7,8,9,10} C. Dim a( ) As Single={1,“a”, “bc”2. ,4,5,6,7,8,9,10} D. Dim a(,) As Integer={1,2,3,4,5,6,7,8,9,10} 3.如下数组声明语句中，数组a包含元素的个数有（C。
相关推荐：
loading