2012VB练习1.docVIP

2012VB练习卷 满分：252分 姓名：________ 1、单项选择题(本题共计100分) 1、单击command1按钮，输出的第二行是__________ Private Sub Command1_Click() 　　　　Dim A As Integer,K As Integer 　　　　A = 2 　　　　K=Fun((A),A)+ Fun(A,A) 　　　　PrintK=;K End Sub Private Function Fun(X As Integer,Y As Integer)As Integer 　　　　Static K As Integer 　　　　K = K+X+y 　　　　X = X+Y 　　　　Y=Y+K 　　　　Fun = X+Y 　　　　Print Fun;X;Y End Function ( ) A、10 4 6 B、56 28 28 C、k=66 D、2 2、在设计列表框时，若实现输入多行文字的目的，应使用_________键实现文本的换行。 ( ) A、Enter B、Alt+Enter C、Ctrl+Shift+Enter D、Ctrl+Enter 3、下列4个表达式中，不能对Single类型变量x(正数)的第三位小数正确地进行四舍五入的是 ( ) A、Format(x,#.00) B、Int(100*(x+0.005))/100 C、CInt(100*(x+0.005))/100 D、Fix(100*(x+0.005))/100 4、如下二维数组声明语句，________正确。 ( ) A、Dim a[3，4] As Integer B、Dim a(3，4) As Integer C、Dim a(n，n) As Integer D、Dim a(34) As Integer 5、下列程序段的输出结果是____________。 Dim i As Integer Dim a(8) As Integer y = 18: i = 0 Do a(i) = y Mod 2 i = i + 1 y = y \ 2 Loop Until y 1 For j = i - 1 To 0 Step -1 Print a(j); Next j ( ) A、1 0 0 0 0 B、1 0 0 1 0 C、0 0 1 1 0 D、1 0 1 0 0 6、用Msgbox（Hello, vbokonly, 你好）显示的消息对话框窗口的标题是________。 ( ) A、你好 B、vbokonly C、OK D、Hello 7、下列语句可以用来正确地声明一个动态数组的是_____。 ( ) A、Private A(n) As Integer B、Dim A() As Integer C、Dim A(,) As Integer D、Dim A(1 to n) 8、下面是计算1~100奇数和的程序，空处应填_______。 Private Sub Command1_Click() Dim s As Long, x As Integer s = 0 For x = _______ Step -2 s = s + x Next x Print s End Sub ( ) A、100 to 1 B、1 to 10 C、99 to 1 D、1 to 99 9、下面语句运行后的输出结果是________。 Private Sub Command1_Click() x=0 Do While x10 x=x+1 x=x*x Loop Print x End Sub ( ) A、6 B、12 C、18 D、30 10、关于语句If x=1 Then y=1，下列说法正确的是________。 ( ) A、x=1和y=1均为赋值语句 B、x=1和y=l均为关系表达式 C、x=1为关系表达式，y=1为赋值语句 D、x=1为赋值语句，y=l为关系表达式 11、下面程序是一个求最大公约数的程序，执行程序后，m的值为_________ Dim m As Integer, n As Integer m=200 n=150 If n*m=0 Then Exit Sub If mn Then t=m: m=n: n=t End If Do r=m Mod n m=n n=r Loop While r0 Text3=m ( ) A、50 B、100 C、150 D、200 12、VB也提供了结构化程序设计的三种基本结构，这三种基本结构是________。 ( ) A、递归结构、选择结构、循环结构 B、选择结构、过程结构、顺序结构 C、过程结构、输入\输出结构、转向结构 D