发布时间 : 星期日 文章vb样题更新完毕开始阅读788cd1cb04a1b0717fd5dd93
图三 简单应用题一图示 图四 简单应用题二图示 要求：
(1) 使用属性窗口为组合框cboDivisor添加三个列表项，分别为数字3、7、11；
(2) 修改窗体文件的代码，将其中的注释符号去掉，并把?修改为相应的正确程序代码，保证程序能正常运行。
注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
六、编程题（共1题，10分） 试题名称 题目及输入、输出文件位置 输入文件名 输出文件名 试题类型 附加文件 时限 最后生成的可执行文件名 数字统计 考生考号下指定文件夹 in.txt Out.txt 非交互式程序题 无 1秒 Count.exe 【问题描述】 请打开指定文件夹下的工程文件Count.vbp，并在标准模块Module1中的main过程中实现如下功能：在给定的数据序列中，统计指定的关键字在序列中出现的次数，并将结果写入输出文件out.Txt中。
说明：
1.输出语句使用Print，若同一行上输出多个表达式，多个表达式采用紧凑格式输出。 2.打开文件时，使用相对路径，不使用绝对路径，即直接使用文件名即可。 【输入文件】
输入文件in.txt有2行，第1行中第1个数表示数据序列中数的个数，第1行中第2个数表示要查找的关键字，第2行表示给定的数据序列。每个数之间用空格隔开。 【输出文件】
输出文件out.Txt 是1行，表示统计结果。 【输入样例】 5 55
34 23 55 12 55 【输出样例】 2
VB样题答案
一、单项选择题
1.B 2.C 3.A 4.C 5.D 6.A 7.D 8.C 9.B 10.B 11.D 12.D 13.B 14.A 15.C 16.D 17.A 18.C 19.B 20.C 21.D 22.C 23.D 24.A 25.B 26.B 27.D 28.B 29.A 30.D
二、综合选择题
1.A 2.D 3.B 4.B 5.B
三、判断题
1. True 2. True 3. True 4. True 5. True 6. True 7. False 8. True 9. True 10. True
四、基本操作题
1. 基本操作题一
创建一个文本框对象，通过“属性窗口”设置：Text1的Height、Width、Text和Font属性，设置窗体的Caption、MaxButton、MinButton属性，按要求保存窗体文件和工程文件，否则不得分。
2. 基本操作题二
创建三个单选按钮对象，修改三个单选按钮的“名称”属性都为Op1，建立控件数组（也可通过复制方法创建控件数组）；通过通过“属性窗口”设置单选按钮的Index属性，将选项二的Value属性设置为True。按要求保存窗体文件和工程文件，否则不得分。
五、简单应用题
1. 简单应用题一参考代码 Option Explicit
Private nCount As Integer Private Sub Form_Load() nCount = 1 End Sub
Private Sub timeClock_Timer() lblClock = nCount nCount = nCount + 1 End Sub
2. 简单应用题二参考代码 Private Sub cmdCalc_Click()
Dim nDividend As Integer, nDivisor As Integer, i As Integer Dim Sum As Long Sum = 0
nDividend = Int(Val(InputBox(\请输入一个小于5000的整数作为被除数!\输入\ nDivisor = Int(Val(Trim(cboDivisor.Text))) For i = nDivisor + 1 To nDividend If nDividend Mod i = 0 Then Sum = Sum + i End If Next
txtResult.Text = Sum End Sub
六、编程题
参考代码： Sub main()
Dim a(), i As Integer, key As Integer, n As Integer, index As Integer Open \
Open \Input #1, n, key ReDim a(n - 1) For i = 0 To n - 1 Input #1, a(i) Next
index = False
For i = LBound(a) To UBound(a) If key = a(i) Then index = index + 1 End If Next i
Print #2, index; Close #1, #2 End Sub