3. 语句If x=1 Then y=1，下列说法正确的是 。
A) x=1和y=1均为赋值语句 B) x=1和y=1均为关系表达式
C) x=1为关系表达式，y=1为赋值语句 D) x=1为赋值语句，y=1为关系表达式 4．结构化程序由三种控制结构组成，以下不属于三种控制结构的是 。 A) 顺序结构 B) 循环结构 C) 分支结构 D) 递归结构 5．以下程序段求两个数中的大数，不正确的是 。
A) max=iif(x>y,x,y) B) if x>y then max=x else max=y C) max=x D) if y>x then max=x If y>x then max=y max=y 6. 下列循环语句能正常结束的是 。
A) I=5 B) I=1 C) I=10 D) I=6 Do Do Do Do I=I+1 I=I+2 I=I-1 I=I-2 Loop until I<0 Loop until I=10 Loop until I<0 Loop until I=1
二、填空题
1.Visual Basic的赋值语句既可给 赋值，也可给对象的 赋值。 2.Visual Basic的注释语句采用 ；Visual Basic的续行符采用 ；若要在一行书写多条语句，则各语句间应加分隔符，Visual Basic的语句分隔符为 。
3.在VB中，用于产生输入对话框的函数是 ，其返回值类型为 ，若要利用该函数接收数值的数据则可利用 函数对其返回值进行转换而得到。
4.在VB中，若要产生一消息框，则可用语句 来实现。 5.选择结构的功能是 。 6.在Select Case语句中，关键字Case后面的取值的格式有3种：一组用逗号间隔的表达式、表达式1 To 表达式2、 。
7. 循环变量在循环体内可以引用，但 ，否则将导致循环无法正常执行。
8. 在VB中，控制结构有 、 、 。 9.下面程序的运行结果为________ Private Sub Form_Click() Dim j%, a% For j = 1 To 10 a = a + j \\ 7 Next j Print a End Sub
10.下面程序的运行结果为________
17-109
Private Sub Form_Click() Dim i%, a%, j% For i = 1 To 2 a = 0
For j = 1 To i + 1 a = a + 1 Next j Print a; Next i End Sub
11.下面程序的运行结果为________ Private Sub Form_Click() Dim a%, b% b = 1 a = 2
Do While b < 10 b = 2 * a + b Loop Print b End Sub
12.下面程序的运行结果为_______ Private Sub Form_Click() Dim i%, j%
For i=3 to 1 step -1 Print spc(5-i); For j=1 to 2*i-1 Print “*”; Next j Print Next i End Sub
13．在窗体上画一个命令按钮，名称为Command1。然后编写如下程序，程序运行后，如果单击命令按钮，则运行结果为_______
Private Sub Command1_Click() For a=1 To 4 For b=0 To a
Print Chr$(65+a); Next b Print
18-109
Next a End Sub
14．在下面的空格处填上相应的内容，使其能完成找出能被5和7整除的5个最小的正整数。
Private Sub Form_Click() Dim k%,n% k=0 n=1 Do
n=n+1
If ① then Print n k=k+1 End if
loop ② End Sub
15．在下面的空格处填上相应的内容，使其能完成输入任意长度的字符串，将字符串倒置。
Private Sub Form_Click() Dim str$,i%,t$
str=inputbox$(“输入字符串”) n= ①
For i=1 to ② t=mid(str,i,1)
mid(str,i,1)= ③ ④ =t Next i
Print str End Sub
三、程序设计题
1.将一张1元钞票换成一分、二分和五分硬币，每种至少8枚，问有多少种方案？
2. 模拟给出一系列的1～10的操作数和算术运算符，输入该题的答案，根据输入的答案判断正确与否，当结束时给出成绩。
3. 将可打印的ASCII码制成表格输出，打印每个字符及其编码值。
4. 编写程序，利用文本框检查用户的口令，验证口令的正确，并给出相应的提示信息。
19-109
5. 编写程序，任意输入一个整数，打印它的因子，并统计因子的个数。
6. 利用随机函数产生10个10-100内的随机整数，求其中的最大数、最小数，以及它们的平均数。
7. 显示所有100以内6的倍数的数，并求这些数的和。 8. 设计程序，当给定n值时，求出S＝1+(1+2)+(1+2+3)+?+(1+2+3+?n)的值。 9. 编写程序求S＝1×2×3×?×n，求S不大于32767时最大的n。 10.用Print方法输出图形，程序运行输出如图3-3-10所示。
图3-3-10 输出图形程序运行界面
习题三参考答案
一、单项选择题
1. 答：A 2. 答：D 3. 答：C 4．答：D 5．答：D 6. 答：C
二、填空题
1.答：变量，属性
2.答：单引号(’)，下划线(_)，冒号(：) 3.答：Inputbox，字符串，val 4.答：Msgbox
5.答：根据情况在不同的操作中选取其中的一种 6.答：Is 关系表达式 7.答：不应改变其值
8.答：顺序，分支，循环
20-109