Vb试题 ─、选择题 1．函数Mid（“123456789”，3，4）的值是¬¬¬¬¬¬¬¬¬（ ）。 A） "3456 " B） "456 " C）3456 D）456 2．下面变量名不合法的是（ ）。 A）a2(2，4) B）abcd C）a$x D）CdE 3．下列表达式中，正确的Visual Basic表达式是（ ）。 A）2sin45° B）π*R2 C）x÷y×5 D）（x+1）/（x^2+1）/2 4．下面逻辑表达式的值为真的是（ ）。 A） "A "> "a " B） "9 "> "a " C） "That "> "Thank " D)12> 12.1 5．执行“PRINT 18/2*3，-3^2”命令后，屏幕显示情况为（ ）。 A）3 9 B）3 -9 C）27 -9 D）27，-9 6．执行“PRINT 9.4\3.7，9.4MOD3.7”命令后屏幕显示为（ ）。 A）2 1 B）3 0 C）2 20 D）1 2 7．下面程序输出的结果是（ ）。 X=2^ -2 Print X End A）-4 B）0.25 C）4 D）程序错误 8．运行下面的程序后，Z的结果是（ ）。 X = -36.7 Y = 4 Z = INT(X) MOD Y Print Z End A）0 B）1 C）-1 D）-9 9．在Visual Basic中，字符串常量所使用的定界符是（ ）。 A）双引号 B）单引号 C）方括号 D）花括号 10．窗体里有两个对象，分别是图片框Picture1和标签Label1。那么下面关于Print方法的使用中，错误的一条（ ）。 A）Picture1.print 147 B）Print 147 C）Printer.Print 147 D）Label1.Print 147 11．执行下面程序的输出结果是（ ）。 a = -3 ^ 2 b = 2 ^ 3 Print a> b A）True B）-1 C）0 D）False 12．阅读下面的程序： n1 = InputBox（ "请输入第一个数： "） n2 = InputBox（ "请输入第二个数： "） Print n1+n2 当输入分别为111和222时，程序输出为（ ）。 A）111222 B）222 C）333 D）程序出错 13．语句Print“25*40”输出的结果是（ ）。 A）“25*40” B）出现错误信息 C）25*40 D）1000 14．对于语句IF X=0 THEN Y=10，说法正确的是（ ）。 A）语句中有两个等于符号 B）语句中有两个赋值符号 C）语句中第一个是等于符号，第二个是赋值符号 D）语句中第一个是赋值符号，第二个是等于符号 15．执行下面的4个打印语句，将出错的是（ ）。 A）PRINT a=3+5 B）PRINT“a=”；3+5 C）PRINT“a=3+5” D）PRINT a=；3+5 16．可以用来设置窗体最小化时所显示的图表的属性是（ ）。 A）MinButton B）MaxButton C）ControlBox D）Icon 17．将命令按钮的（ ）属性设置为True后，就可以按回车键触发其Click事件。 A）Cancel B）OK C）Enabled D）Default 18．下面关于文本框的说法中，错误的说法是（ ）。 A）Text1.Caption=“Hello”，是将在文本框Text1中显示的Hello B）Text.locked=True，设置该文本框Text1不能编辑 C）Text.passwordChar=“#”，设置文本框Text1输入的字符都显示为#，但实际接收的还是输入的内容 D）Text1.Visible=False，设置该文本框Text1为不可见 19．有如下程序，运行时从键盘输入字符“-”，输出结果是 （ ）。 Op$ = InputBox(“op=”) If op$ = “+” Then a = a + 2 If op$ = “-“ Then a = a – 2 Print a A) -2 B）0 C）+2 D）+0 20．设a=1、b=2、c=3、d=4，则表达式IIf（a 6 ) n = n – 1 print n; Loop 10．有如下程序，该程序的执行结果是 。 Priate Sub Command_Click() For i = 1 To 3 Sum = Sum + i i = i – 1 Next i Print Sum End Sub 11．下面for循环语句的执行结果是 。 For j = 10 To 4 Step -1 If ( j Mod 3) = 0 Then j = j – 1 Print j; Next j 12．下面程序的执行结果是 。 For i = 1 To 10 If i Mod 5 < > 0 Then n = n + i Next i Print n 13．执行完下面程序后，k的值为 。 Private Sub Command1_Click() i = 0 j = 10 Do While i < = j i = i +1 j = j -1 k = i + j Loop Print k End Sub 14．以下程序运行后的输出结果是 。 Dim i , k , a (10), p (3) k = 5 For i = 0 To 9 a ( i ) = i Next i For i = 0 To 2 P ( i ) = a ( i * ( i + 1 )) Next i For i= 0 To 2 k = k + p ( i ) *2 Next i Print k 15．有如下Sub过程，当a=90, b=36时，执行CALL ab(a,B)语句后，输出的值是 。 Sub ab(x, y) If y = 0 Then Print x Else Call ab(y, x Mod y) End If End Sub 16．以下程序的输出结果是 。 Function fun (n) If (n = 1 or n = 2) Then s = 2 Else s = n – fun(n-1) End If fun = s End Function Private Sub Command1_Click() Print fun(3) End Sub 17．下列程序的输出结果是 。 Private Sub Command1_Click() Dim a (5) For i = 1 To 5 a (i)= i * i Next i Print a (a (2) * a(3) - a(4) * 2) + a(5) End Sub 18．在窗体上添加两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程： Private Sub Form_Load() Show Text1.Text= " " Text2.Text= " " End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) Text1.Text= Text1.Text+Chr(KeyCode-4) End Sub 四、编程序 1．编程： 求1+3+5+……+99之和。 2．编程： 有一个方盒，已知长=100，宽=50，高=30，用过程求各侧面面积。
本文档为【vb试题3】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483