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