VB2017模拟题精品文档Visual Basic考试模拟题 一、单项选择题(共20题，每题 2分，共 40分)1、将十进制数23转换为补码（设带符号位8位）是_ A. 10010111 B. 11101001 C. 11101010 D. 111010112. 将补码转换为十进制数，即（11111101）补=（_）10 A. 3 B. -3 C. -4 D. -53. 下列叙述中不正确的是_。 A. 队列是 “先进先出”的线性表 B. 入栈运算是指在栈顶位置插入下个新元素 C. 栈是“先进先出”的线性表 D. 栈是“后进先出”的线性表4、要想清除组合框中的所有数据项，则利用下列_方法进行。A. ListB.MoveC.ClearD. Cls5. 下列选项中，合法的变量名是_。AA#A B. 4A C.Private D. Print_16 表达式7 mod 3+35*2+2的值是_。 A. 2 B. 3 C. 4 D. 67. Private Sub Form_Load()Dim iAs Integer For i =1 To 3 List1.AddItem Str(i)Next End Sub Private Sub List1_Click() Dim ch As String ch = List1.List(List1.ListIndex) List1.RemoveItem List1.ListIndex List1.AddItem chEnd Sub单击列表框中的第二项，执行上述程序后，列表框中显示的顺序为_. A. 1 2 3 B. 1 3 2 C. 3 2 1 D.1 3 28. 下列程序段的输出结果为_。 x=1 : y=4 Do Until y4 x=x*y : y=y+1 Loop Print xA. 1B. 4C. 8D. 209. 单击命令按钮，在窗体上输出_。 Private Sub Command1_Click() Dim a, i As Integer a = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i = 1 To 3 Print a(8 - i);NextEnd Sub A. 15 13 11 B. 17 15 13 C. 11 13 15 D. 13 15 1710. 窗体上有一个Command1的命令按钮和一个Timer1的计时器，并有下面的事件过程：Private Sub Form_Load()Timer1.Interval = 100 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Command1.Top = Command1.Top + 10End Sub程序运行后，单击命令按钮，则结果是_。 A. 命令按钮每100毫秒向上移动一次 B. 命令按钮每100毫秒向下移动一次 C. 命令按钮每100毫秒向左移动一次 D. 命令按钮每100毫秒向右移动一次 思考：如果把Top换成Left，结果是什么呢？11. 运行程序，单击窗体，在窗体上显示的内容是_。 Private Sub value(ByVal m As Integer, n As Integer) m = m * 2 n = n 5 Print m=; m, n=; n End Sub Private Sub Form_Click() Dim x As Integer, y As Integer x = 10: y = 15 Call value(x, y) Print x=; x, y=; y End SubA. m=20 n=10B. m=20 n=10C. m=20 n=10 D. x=10 y=15 x=10 y=15 x=10 y=10 x=20 y=10 m=20 n=1012. 执行如下两条语句，窗体上显示的是_a = 9567.859Print Format(a, #,000.00)A. 9,567.86 B. 09,567,86 C.”09,567.86 ” D. $09,567.8613. mnu1是窗体Form1的菜单名，如果单击鼠标右键弹出此菜单，应在窗体的MouseDown事件中编写如下代码_。A. Popupmenu Form1.mnu1 B. Popupmenu mnu1 Form1C. Form1.Popupmenu mnu1 D. Form1.mnu Popupmenu14. 下面程序段,显示的结果是_。Private Sub Command1_Click()Dim x As Integerx = Int(Rnd) +4Select Case x Case 5 Print 优秀 Case 4 Print 良好 Case is3 Print 及格 Case Else Print 不及格End SelectEnd SubA、优秀 B、良好 C、及格 D、不及格15 在窗体上创建一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入字符串“Microsoft Visual Basic Programming”。然后编写如下代码：Private Sub Command1_Click()Open d:out.txt For Output As #1For i = 1 To Len(Text1.Text)c = Mid(Text1.Text, i, 1)If c = A And c 0,1,IIF(x0,-1,0)的结果是【5】。6. x 是非负数且y是奇数的表达式是_【6】_。7. 若希望每秒钟发生2个Timer事件，应设置定时器（Timer）控件的Interval属性为_【7】_