2012vb练习题.doc

一、选择题 (1) 设有声明语句Dim b(-1 To 10, 2 To 9, 20) As Integer则数组b中全部元素的个数 13(2) 下列程序段的执行结果为A? a=5? For k=1 To 0??? a=a + k? Next k? Print k; a? A) -1 6??????? B) –1 1 ? C) 1 5??????? D) 11 21 (3)下列程序的执行结果为C? Private Sub Command1_Click() ?? Dim x As Integer, y As Integer?? x=12: y=20?? Call Values(x, y) ?? Print x; y? End Sub? Private Sub Values(ByVal m As Integer, ByVal n As Integer) ?? m=m * 2: n=n - 5?? Print m; n? End Sub? A) 20? 12??????20? 15? B) 12? 20????? 12? 25 C) 24? 15??????12? 20? D) 24? 12??????? 12? 15 (4) 当在滚动条内拖动滚动块时触发D? A) KeyUp事件?? ???B) KeyPress事件 C) Scroll事件?????? D) Change事件 (5) 下列程序段执行结果为　　x=5　　y=-6　　If Not x0 Then x=y-3 Else y=x+3　　Print x-y; y-x　　A) –3 3???????　B) 5 –9 　C) 3 -3??????? D) -6 5(6) 不能脱离控件(包括窗体) 而独立存在的过程是A　　A) 事件过程????? ?B) 通用过程 C) Sub过程?????? D) 函数过程 (7) 单击命令按钮时，下列程序的执行结果为C　Private Sub Command1_Click()?　Dim x As Integer, y As Integer?　　x=12:y=32??　　Call Proc(x,y) 　　?Print x; y　End Sub　Public Sub Proc(n As Integer, ByVal m As Integer) ?　　n=n Mod 10　　?m=m Mod 10　　End Sub　　A) 12 32??????? B) 2 32 C) 2 3??????? 　D) 12 3 (8) 下列程序段的执行结果为D? I=4? x=5? Do? I=I + 1? x=x + 2? Loop Until I=7? Print I=; I? Print x=; x? A) I＝4 x＝5?????B) I＝7 x＝15 C) I＝6 x＝8????? D) I＝7 x＝11 (9) 下列各控件不包含滚动条的控件是D　　A) ListBox??????　　B) ComboBox 　　C) TextBox?????? 　　D) LabelBox (10) 以下各项中，Visual Basic不能接收的图形文件是c　　A) .ico文件??????B) .jpg文件 C) .psd文件?????? D) .bmp文件 二、操作题： 1、在窗体上有一个文本框Text1、一个命令按钮，标题为“执行”，名称为Command1。运行程序后，向文本框中输入一个数值，然后单击命令按钮“执行”，根据输入的成绩，判断学生的成绩等级。界面如下： 答案； Private sub command1-click If text1.text””then Score=val(text1.text) Ifscore60 then Print”你的成绩不合格” Elseif score=60 and score 70 then Print”你的成绩是合格” Elseif score=70 and score 80 then Print”你的成绩是中等” Elseif score=80 and score 90 then Print”你的成绩是良好” Elseif score=90 and score =100 then Print”你的成绩是优秀” Else Print”你输入的成绩有问题” End if End if End sub 2、设计一个程序，程序界面如下图