《VB2017模拟题(7页).doc》由会员分享，可在线阅读，更多相关《VB2017模拟题(7页).doc（7页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、-VB2017模拟题-第 7 页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、要想清除组合框中的所有数据项，则利用下列_方法进行
2、。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.RemoveIte
3、m 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
4、) 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.
5、命令按钮每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
6、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.
7、 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 在窗体上创建一个名
8、称为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）控件的
9、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 Sub9、在窗体上创建一个名称为Command1的命令按钮，程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，a(5)与a(6)的值互换。请填空。Option Base 1Private Sub Command1_Click() Dim a(10) As
10、Integer For i = 1 To 10 a(i) = i Next Call swap(_【9】_) For i = 1 To 10 Print a(i); NextEnd SubSub swap(b() As Integer) n = _【10】_ For i = 1 To n / 2 t = b(i) b(i) = b(n) b(n) = t _【11】_ NextEnd Sub11、完善将二进制转化为十进制的函数。Private Function btod(f As String) As Integer Dim i As Integer, j As integer, k As I
11、nteger j=_【12】_ 测试形参的长度For i=j To 1 Step -1 k=Mid(f,i,1) btod=btod+_【13】_Next i12. 建立一个文件名为“c:stud1.txt”的顺序文件，内容来自文本框，每按一次Enter键写入一条记录，然后清除文本框的内容，直到文本框内输入“END”字符串为止。完善填空。Private Sub Form_Load()Open _【14】_Text1 = End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then If Text1=”EN
12、D” Then Close #1 End Else _【15】_ Text1 = End IfEnd IfEnd Sub三、编程题(共3题，共 30分)、计算税率。收入不足3000时，税率是3%，3000至4999税率是5%，5000至7999税率是8%，8000至9999税率是10%，10000以上税率是15%，用输入函数输入一个收入值，在窗体上显示需要纳税的值是多少（6分）。、编写程序，其功能是产生20个100200之间的随机整数，然后求出这20个整数中的所有偶数之和。程序运行后，单击命令按钮，在窗体上显示所有偶数之和，并把这20个数从小到大排列显示到列表框List1中（6分） 。、计算1！+3！+5！+15!的值，要求编写一个Sub过程Fact(Byval N%, Byref Result as Long)来计算任意正整数N的阶乘。然后用事件过程Command1_Click()来调用（8分）。、磁盘上已存在文件”c:in.txt”，文件里有一段文本（文本中间无换行符，可以视为一行）。请从文件中读出这段内容，显示在文本框Text1中，并统计字母“h”出现的次数(不区分大小写)，最后把次数写入文件“c:out.txt”中（10分）。