模拟练习题（第6套） .docVIP

模拟练习题（第6套）　　 　?　 　　 1Visual Basic中，添加一个标签，在土具箱中要单击的控件是 　　 (A) 　　　　 (B) 　　　　 (C) 　　　　 (D) 　　　　　　 2Visual Basic中，如果变量a需要存储英文单词，那么变量a的数据类型应定义为　　 (A)Date (B)String (C)Integer (D)Boolean　　 3Visual Basic中，表示鼠标单击的事件名是　　 (A) Click (B) MouseClick (C) MouseMove (D) DblClick?　　 4Visual?Basic变量名的是?　　 (A) abc (B) Const (C) 9abc (D) a#x　　 5　　 a=5　　 b=a　　 a=a+b　　 If xk Then　　 Print(big)　　 End If　　 For i=1 To 10　　 j=x+1　　 s=s+j　　 Next i　　 If Int(x/2)=x/2 Then　　 Print(偶数)　　 Else　　 Print()　　 End If　　 (A) (B) ② (C) ③ (D) ④　　 6a、b、c、d是一四位整数中千、百、十、个位上的数字，这个四位数在Visual Basic程序中可表示为 　　 (A) abcd (B) a+b+c+d　　 (C) a*1000+b*100+c*10+d (D) 　　 7?5?Mod?3+3\5*2的值是　　 (A)?0??? (B)?2??? (C) 4???? (D)?6　　 8x=-25,则运行x=Abs(x): x=Sqr(x)后，x的值是 　　 (A) 5 (B) -5 (C) 25 (D) -25　　 9Visual Basic程序段运行后，变量max的值为　　 a=5: b=10: max=a　　 if bmax Then max=b 　　 (A) 5 (B) 10 (C) 510 (D) 以上都不是　　 10S的算法：　　 S的初值是0,变量I的初值为1　　 I从1循环到100，且步长为2做第③步表达式　　 S=S+I　　 S的值　　 S值的算法中，S的表达式是 　　 (A) 1+2+3++99+100 (B) 1+2+3+…+98+99　　 (C) 1+3+5++97+99 (D) 2+4+6+…+98+100　　 11Visual Basic程序段运行后，变量x的值为　　 x=3: y=50　　 Do while x sqr(y)　　 x=x+2　　 　Loop　 　　 (A) 7 (B) 8 (C) 9 (D)10　　 12n个元素进行排序，用冒泡法进行排序时，需比较的次数共为 　　 (A) n*(n-1) (B) n*(n+1) (C) n*(n-1)/2 (D) n*(n+1)/2　　 二、综合题　　 1．（2分）有如下VB程序段：　　 Dim sum as Integer,i as Integersum=0For i=1 To 20 Step 2???sum=sum+INext Isum的值是 　　 1．? 为了实现这一功能，则程序中划线处的语句应更正为：　　 ??1） ?　　 2） ?　　 n = 37006　　 c = 0　　 For i = 0 To 99　　 n = n + 10 * I 　　 If n Mod 29 = 0 and mod 47=0 then　　 c = c + 1　　 Print n　　 End If　　 Next i　　 Print ; c 　　 解决上述问题的Visual Basic程序如下，为了实现这一目标，在划线处，填入合适的语句或表达式是　　 1） 　　 2） 　　 Dim i, x As Integer　　 Private Sub Command1_Click()　　 a(1)=500:a(2)=200: a(3)=100　　 a(4)=100:a(5)=50: a(6)=20　　 a(7)=10: a(8)=10:a(9)=5