A. 0 B. 4 C. 5 D. 10
46．执行语句For i=1 To 3:i=i+1:Next i后，变量i的值是 B 。 A. 3 B. 4 C. 5 D. 6
47．For-Next循环结构中，若循环控制变量的步长为0，则 A 。
A. 形成无限循环 B. 循环体执行一次后结束循环 C. 语法错误 D. 循环体不执行即结束循环 48．下列循环语句能正常结束循环的是 C 。 A．i = 5 B．i = 1 Do
i = i + 1
Loop Until i < 0 C．i = 10
Do
i = i + 2
Loop Until i = 10 D．i = 6
Do Do i = i - 1 i = i - 2 Loop Until i < 0 Loop Until i = 1 49．执行以下程序段后，x的值为 C 。 Dim x As Integer, i As Integer x = 0
For i = 20 To 1 Step -2 x = x + i \\ 5 Next i A．16 B．17 C．18 D．19 50．执行以下程序段后，输出结果为 A 。 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
A．9 B．6 C．12 D．15
二、填空题
1．VB常用 标识符 来标记用户自定义的常量、类型、变量、控件、过程、函数等名字。
2．要从字符串”Made In China”中截取子字符串”In”可使用函数 Mid(”Made In China”,6,2) 。
3．产生从整数a到整数b之间的随机整数或使用表达式 Int(Rnd*(b-a+1)+a 。
4．若一个整数变量说明了之后没有给它赋值，则它的值为 0 。 5．把3421.79的小数部分四舍五入转换为整数，可使用函数 Cint（3421.79） 。
6．在VB中可以把类型说明符放在变量名的 未尾 来说明变量的类型。 7． 浮点数除法 算术运算符与乘法运算符具有相同的优先级。 8．默认情况下，Integer变量初始化为 0 。
9．对含有多种运算的表达式，各种运算之间的顺序为 函数运算 → 算术运算 → 关系运算
→ 逻辑运算 。
10．当声明变量时，如果没有显式说明给定变量的数据类型，则默认为 变体类型或Variant类型 。
11．在VB中，1234、123456＆、1.2346E+5、1.2346D+5四个常数分别表示 整型 、长整型 、 单精度型 、 双精度型 类型。
12．整型变量x中存放了一个两位数，要将两位数交换位置，例如，13变成31，实现的表达式是 (x Mod 10)*10+x\\10 。
13．表示x是5的倍数或是9的倍数的逻辑表达式为 x Mod 5=0 OR x Mod 9=0 。 14．已知a=3.5，b=5.0，c=2.5，d=True，则表达式：a>=0 AND a+c>b+3 OR NOT d的值是 False 。
15．表达式UCase(Mid(\的值是 CDEF 。
16．判别变量I是否为偶数，若为偶数就把它显示出来。使用单行结构条件语句 为 If i Mod 2=0 Print i 。
17．判别变量x是否大于0，若大于0，则累加到变量s1中，否则，累加到变量s2中，使用单行结构条件语句为 If x>0 Then s1=s1+x Else s2=s2+x 。 18．在循环语句中，反复执行的程序段称为 循环体 。
19．While～Wend语句是先判断 条件表达式 的值，再决定是否执行循环体。 20．如果For～Next循环中含有Exit For语句，当执行到这条语句时，将 跳出循环 ，执行Next后面的语句。
21．把循环体内含有循环语句的循环称为 多重循环 。
22．若是下列For语句循环执行20次，循环变量的初值应当是： 14 。
For k = To -5 Step -1 To -5 Step -1 （To -5 Step -1） 23．下面的程序段显示 10 个\。 For i = 1 To 5 For j = 2 To i Print “*”; Next Next
三、程序填空题
1．如下程序的功能为，利用InputBox函数从键盘上输入三个数据，然后在窗体上显示该三个数据的和与它们的平均值，请填空。
Private Sub Form_Click()
a1 = Val(InputBox(\请输入第1个数：\ a2 = Val(InputBox(\请输入第2个数：\ a3 = Val(InputBox(\请输入第3个数：\
Sum = a1 + a2 + a3 Aver = Sum / 3
Print \输入的三个数分别为：\ a1;a2;a3 Print \三个数和为：\ Sum Print \三个数平均值为：\ Aver
End Sub
2．求解鸡兔同笼问题。下面程序可以计算鸡兔各有多少只，鸡兔总头数和总脚数从键盘输入，请填空。
Private Sub Form_Click()
h = Val(InputBox(\鸡兔总头数：\ f = Val(InputBox(\鸡兔总脚数：\ y = (f - 2 * h) / 2 x = (4 * h - f) / 2 Print \鸡总头数为：\ Print \兔总头数为：\
End Sub
3．输入文本框中若干个字符，统计有多少个元音字母、有多少个其他字母，直到按Enter键结束，并显示结果，大小写不区分。其中CountY中放元音字母个数，CountC中放其他字符数。
Dim CountY%, CountC%
Private Sub Text1_KeyPress(KeyAscii As Integer) Dim C$
C = UCase(Chr(KeyAscii)) If \ Select Case C
Case \ CountY = CountY + 1 Case Else CountC = CountC + 1 End Select End If
If KeyAscii = 13 Then Print \元音字母有\个\ Print \其他字母有\个\
End If End Sub
4．输入任意长度的字符串，要求将字符顺序到置，例如，将输入的“ABCDEFG”变换成
“GFEDCBA”。
Private Sub Command1_Click() Dim a$, i%, c$, d$
a = InputBox(\输入字符串\
n = Len(a) For i = n To 1 Step -1
c = Mid(a, i, 1) d = d + c Next i Print d End Sub
5．由键盘输入一个正整数，找出大于或等于该数的第一个质数。 Private Sub Command1_Click() Dim m%, x%, Tag As Boolean Tag = False
x = Val(InputBox(\输入正整数\
Do While Not Tag
m = 2: Tag = True Do While Tag And (m < (x \\ 2))
If x Mod m = 0 Then Tag = False Else m = m + 1
Loop
If Not Tag Then x = x + 1 Loop Print x End Sub
6．下列程序功能：在窗体的3个文本框（Text1、Text2、Text3）中输入三个数，将它们从大到小排序，并在文本框（Text4）中输出排序结果。请填写程序空白处使程序完整。 Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text)
c = Val(Text3.Text) If a < b Then
t = a: a = b: b = t End If
If a <= c Then
t = a: a = c: c = t End If
If b <= c Then
t = b: b = c: c = t End If
Text4.Text = a & \
相关推荐：
loading