DOC《沏禫B荚饪》

24.下面___A_____是合法的变量名. (A)x_yz (B)123abc (C)integer (D)x-y 25.下面___B_____是合法的字符常数. (A)ABC$ (B) ABC (C)'

ABC'

(D)ABC 26.表达式Len( 123程序设计ABC )的值是____A____. (A)10 (B)14 (C)20 (D)17 27.下面正确的赋值语句是___C_____. (A)x y=30 (B)y= *r*r (C)y=x

30 (D)3y=x 28.为了给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 29.VB提供了结构化程序设计的三种基本结构,三种基本结构是__D______. (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 30.下面程序段运行后,显示的结果是___B_____. Dim x% http://doc.xuehai.net/b0a436b1245ca980bc0fb671c.htmlIf x=0 Then Print x Else Print x

1 (A)1 (B)0 (C)x (D)x

1 31.下面程序段运行后,显示的结果是__A______. Dim x X=Int(Rnd)

5 Select Case x Case

5 Print 优秀 Case

4 Print 良好 Case

3 Print 通过 Case Else Print 不通过 End Select (A)优秀(B)良好(C)通过(D)不通过 32.下列循环语句能正常结束循环的是 D . (A)I=5 (B)I=1 Do Do I=I

1 I=I

2 Loop Until I (C)I=10 (D)I=6 Do Do I=I

1 I=I-2 Loop Until I

二、填空题(1-8空每空1分,9-20空每空2分,共32分) 1.Visual Basic注释语句采用___(1)_____,续行符采用__(2)______,若要在一行书写多条语句,则各语句间要加分隔符,Visual Basic的语句分隔符为__(3) 2.当对命令按钮的Picture属性装入.bmp图形文件后,选项按钮上并没有显示所需的图形,原因是没有对__(4)______属性设置为1. 3.下列For语句循环执行20次,循环变量的初值:For k=__35_(5)_____ To C5 Step C2 4.在Visual Basic中,若要产生一消息框,则可利用函数___(6)_msgbox____来实现. 5.在Visual Bashttp://doc.xuehai.net/b0a436b1245ca980bc0fb671c.htmlic中,输入对话框的函数是InputBox,其返回值类型为__(7)__字符型____,若要利用该函数接收数值型数据,则可利用___(8)_____函数对其返回值进行转换得到. 6.整型变量x中存放了一个两位数(个位数非零),要将该数十位数和个位数交换位置,例如,13变成31,实现的表达式是___(9)___ab=10b a__. 7.输入任意长度的字符串,要求将字符顺序倒置,例如,将输入的 ABCD 变成 DCBA . Private Sub Command1_Click() Dim a$ , k%, c$, d$ a=InputBox$( 输入字符串 ) n=___(10)__len(a)___ For k=n To

1 Step -1 c=Mid(a, k, 1) d=___(11)_____&

c Next k Print d End Sub 8.随机产生6位学生的分数(分数范围40~100),存放在数组a中,以每2分显示一个 * ,并在 * 后面显示学生的分数. Private Sub Command1_Click() Dim a(1 To 6) For i =

1 To

6 a(i) =__(12)___int(rnd*61 40)___ Print ___(13)__String(a(i)2,a(i) Next i End Sub 9.下面程序打印杨辉三角形,下图是杨辉三角形的实例,填空使程序完整. Private Sub Command1_Click() [此处图片未下载成功] Dim a(10, 10) As Integer n =

6 For i =

0 To http://doc.xuehai.net/b0a436b1245ca980bc0fb671c.htmln a(i, 0) = 1: ___(14)_____ Next i For i =

2 To n For j =

1 To __(15)______ a(i, j) = a(i - 1, j - 1) ___(16)_____ Next j Next i For i =

0 To n For j =

0 To i Print a(i, j);

Next j Print Next i End Sub 10.下面程序利用辗转相除法求整数m和n的最大公因数和最小公倍数,填空使程序完整. Private Sub Command1_Click() m = InputBox( The first integer ) n = InputBox( The second integer ) m1=m:n1=n if ___(17)_m>