VB2017模拟题

Visual Basic 考试模拟题考试模拟题 一 单项选择题一 单项选择题 共共 2020 题 每题题 每题 2 2 分 共分 共 4040 分分 1 将十进制数 23 转换为补码 设带符号位 8 位 是 A 10010111 B 11101001 C 11101010 D 11101011 2 将补码转换为十进制数 即 11111101 补 10 A 3 B 3 C 4 D 5 3 下列叙述中不正确的是 A 队列是 先进先出 的线性表 B 入栈运算是指在栈顶位置插入下个新元素 C 栈是 先进先出 的线性表 D 栈是 后进先出 的线性表 4 要想清除组合框中的所有数据项 则利用下列 方法进行 A List B Move C Clear D Cls 5 下列选项中 合法的变量名是 A A A B 4A C Private D Print 1 6 表达式 7 mod 3 3 5 2 2 的值是 A 2 B 3 C 4 D 6 7 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 ch End Sub 单击列表框中的第二项 执行上述程序后 列表框中显示的顺序为 A 1 2 3 B 1 3 2 C 3 2 1 D 1 3 2 8 下列程序段的输出结果为 x 1 y 4 Do Until y 4 x x y y y 1 Loop Print x A 1B 4C 8D 20 9 单击命令按钮 在窗体上输出 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 Next End Sub A 15 13 11 B 17 15 13 C 11 13 15 D 13 15 17 10 窗体上有一个 Command1 的命令按钮和一个 Timer1 的计时器 并有下面的事件过程 Private Sub Form Load Timer1 Interval 100 Timer1 Enabled True End Sub Private Sub Timer1 Timer Command1 Top Command1 Top 10 End 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 Sub A 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 10 12 执行如下两条语句 窗体上显示的是 a 9567 859 Print Format a 000 00 A 9 567 86 B 09 567 86 C 09 567 86 D 09 567 86 13 mnu1 是窗体 Form1 的菜单名 如果单击鼠标右键弹出此菜单 应在窗体的 MouseDown 事 件中编写如下代码 A Popupmenu Form1 mnu1 B Popupmenu mnu1 Form1 C Form1 Popupmenu mnu1 D Form1 mnu Popupmenu 14 下面程序段 显示的结果是 Private Sub Command1 Click Dim x As Integer x Int Rnd 4 Select Case x Case 5 Print 优秀 Case 4 Print 良好 Case is 3 Print 及格 Case Else Print 不及格 End Select End Sub A 优秀 B 良好 C 及格 D 不及格 15 在窗体上创建一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框 在文本框中 输入字符串 Microsoft Visual Basic Programming 然后编写如下代码 Private Sub Command1 Click Open d out txt For Output As 1 For i 1 To Len Text1 Text c Mid Text1 Text i 1 If c A And c 0 1 IIF x 0 1 0 的结果是 5 6 x 是非负数且 y 是奇数的表达式是 6 7 若希望每秒钟发生 2 个 Timer 事件 应设置定时器 Timer 控件的 Interval 属性为 7 8 程序运行后 单击窗体 输出结果为 8 Private Sub Form C1ick Dim k n m n 10 m 1 k 1 Do While k n m m 2 k k 1 Loop Print m End Sub 9 在窗体上创建一个名称为 Command1 的命令按钮 程序的功能是 通过调用过程 swap 调 换数组中数值的存放位置 即 a 1 与 a 10 的值互换 a 2 与 a 9 的值互换 a 5 与 a 6 的 值互换 请填空 Option Base 1 Private Sub Command1 Click Dim a 10 As Integer For i 1 To 10 a i i Next Call swap 9 For i 1 To 10 Print a i Next End Sub Sub swap b As Integer n 10 For i 1 To n 2 t b i b i b n b n t 11 Next End Sub 11 完善将二进制转化为十进制的函数 Private Function btod f As String As Integer Dim i As Integer j As integer k As Integer j 12 测试形参的长度 For i j To 1 Step 1 k Mid f i 1 btod btod 13 Next i 12 建立一个文件名为 c stud1 txt 的顺序文件 内容来自文本框 每按一次 Enter 键写入一条 记录 然后清除文本框的内容 直到文本框内输入 END 字符串为止 完善填空 Private Sub Form Load Open 14 Text1 End Sub Private Sub Text1 KeyPress KeyAscii As Integer If KeyAscii 13 Then If Text1 END Then Close 1 End Else 15 Text1 End If End If End Sub 三 编程题三 编程题 共共 3 3 题 共题 共 3030 分分 计算税率 收入不足 3000 时 税率是 3 3000 至 4999 税率是 5 5000 至 7999 税率是 8 8000 至 9999 税率是 10 10000 以上税率是 15 用输入函数输入一个收入值 在窗体 上显示需要纳税的值是多少 6 分 编写程序 其功能是产生 20 个 100 200 之间的随机整数 然后求出这 20 个整数中的所有 偶数之和 程序运行后 单击命令按钮 在窗体上显示所有偶数之和 并把这 20 个数从小到大 排列显示到列表框 List1 中 6 分 计算 1 3 5 15 的值 要求编写一个 Sub 过程 Fact Byval N