2011年上VB上机模拟题

第1套模拟 基本操作题参考答案： 　　Private Sub Label1_Click() 　　 Label1.FontSize = Label1.FontSize + 1 　　 If Label1.FontSize > 20 Then Label1.FontSize = 10 　　End Sub 　　Private Sub Option1_Click() 　　 Label1.Caption = Text1.Text & "先生，您好！" 　　 Me.Caption = Text1.Text & "先生，您好！" 　　End Sub 　　Private Sub Option2_Click() 　　 Label1.Caption = Text1.Text & "女士，您好！" 　　 Me.Caption = Text1.Text & "女士，您好！" 　　End Sub 简单应用题参考答案： 　　题目要求把矩阵主对角线和次对角线上的元素赋值为1，其余元素为零。 　　主对角线上元素的行下标等于列下标；次对角线上元素的行下标与列下标之和等于6 　　参考程序如下： 　　Dim a(5, 5) As Integer, I As Integer, J As Integer 　　Private Sub C1_Click() 　　 For I = 1 To 5 　　 For J = 1 To 5 　　 a(I, J) = 0 　　 '若两个下标相等或两下标之和等于6，则该元素赋值为1 　　 If I = J Or I + J = 6 Then a(I, J) = 1 　　 Print a(I, J); " "; 　　 Next J 　　 Print 　　 Next I 　　End Sub 　　Private Sub C2_Click() 　　 Call putdata("kssj.dat", a) 　　End Sub 　　putdata过程的作用是打开指定的文件，进行写操作。 　　该过程有2个参数，一个是欲打开的文件名，一个是要保存的变量名。这里按题目要求，指定的文件名是kssj.dat，变量是数组名a，为了保证数组a能够在两个过程中均能使用，把a定义为模块级变量。 综合应用题参考答案： 　　操作步骤如下： 　　1. 打开考生文件夹中的工程Menu1.Vbp。 　　2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。 　　3.在“标题”栏中输入菜单项的标题“页面设置(&S)”，在“名称”栏中输入菜单项的名称“页面设置”。 　　4. 单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“纸张大小”；使用类似的操作，输入如下所示的菜单： 　　 页面设置(S) 数据处理 　　 纸张大小 计算 　　 ────── 　　 退 出 Ctrl+X 　　5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。 　　6. 单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。 　　该模块的功能是：用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数。填空的参考答案如下： 　　 '*****question***** 　　 n = Int(Rnd * 6 + 1) 　　 '*****question***** 　　 a(n) = a(n) + 1 　　7. 添加如下所示的菜单事件过程代码： 　　Privat

e Sub 退出_Click() 　　 End 　　End Sub 　　Private Sub 计算_Click() 　　 calculate 　　End Sub 　　8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。 第2套模拟 基本操作题参考答案： 　　Private Sub Command1_Click() 　　 Text2.Text = Text2.Text & Combo1.Text & "：" & Text1.Text & Chr(13) & Chr(10) 　　End Sub 　　Private Sub Form_Load() 　　 Combo1.AddItem "学生" 　　 Combo1.AddItem "教师" 　　 Combo1.AddItem "医生" 　　 Combo1.ListIndex = 0 　　End Sub 简单应用题参考答案： 　　Dim N As Integer, S As Single, T As Single 　　Private Sub Command1_Click() 　　 S = 0: N = 1 　　 Do 　　 T = 1 / (N * (N + 1)) 　　 S = S + T 　　 N = N + 2 　　 Loop Until T < 0.0001 　　 Text1.Text = S 　　End Sub 　　Private Sub Command2_Click() 　　 Call putdata("kssj.dat", S) 　　End Sub 　　putdata过程的作用是打开指定的文件，进行写操作。 　　该过程有2个参数，一个是欲打开的文件名，一个是要保存的变量名。这里按题目要求，指定的文件名是kssj.dat，变量是S，为了保证变量S能够在两个过程中均能使用，把S定义为模块级变量。 综合应用题参考答案： 　　操作步骤如下： 　　1. 打开考生文件夹中的工程Menu1.Vbp。 　　2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。 　　3.在“标题”栏中输入菜单项的标题“调试(&D)”，在“名称”栏中输入菜单项的名称“调试”。 　　4. 单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“逐语句”；使用类似的操作，输入如下所示的菜单： 　　 调试(D) 数据处理 　　 逐语句 计算 　　 ────── 　　 退出 Ctrl+X 　　5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。 　　6. 单击“工程”菜单的“添加模块”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。 　　该模块的功能是：求s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值。填空的参考答案如下： 　　 '*****question***** 　　 For j = 1 To i 　　 '*****question***** 　　 s = s + j 　　7. 添加如下所示的菜单事件过程代码： 　　Private Sub 退出_Click() 　　 End 　　End Sub 　　Private Sub 计算_Click() 　　 calculate 　　End Sub 　　8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。 第3套模拟 基本操作题参考答案： 　　Private Sub Command1_Click() 　　If Command1.Caption = "开始" Th

en 　　 Timer1.Enabled = True 　　 Command1.Caption = "暂停" 　　Else 　　 Timer1.Enabled = False 　　 Command1.Caption = "开始" 　　End If 　　End Sub 　　Private Sub Timer1_Timer() 　　 Text1.Text = Time() 　　End Sub 简单应用题参考答案： 　　'变量sum用于保存小写字母的个数 　　'变量str1用于保存从数据文件中读入的字符串 　　Dim sum As Integer, str1 As String 　　Private Sub C1_Click() 　　 Call getdata("INI.TXT", str1) 　　 ' 调用getdata过程读入字符数据 　　 Text1.Text = str1 ' 在文本框中显示str1的内容 　　End Sub 　　Private Sub C2_Click() 　　 Dim c As String, i As Integer 　　 sum = 0 　　 '以下逐字查找str1中的小写字母 　　 For i = 1 To Len(str1) 　　 c = Mid(str1, i, 1) 　　 If c >= "a" And c <= "z" Then 　　 sum = sum + 1 　　 End If 　　 Next i 　　 Text2.Text = Str(sum) '显示统计结果 　　End Sub 　　Private Sub C3_Click() 　　 '调用putdata过程把统计结果写入磁盘文件 　　 Call putdata("kssj.dat", sum) 　　End Sub 　　getdata过程的作用是打开指定的文件，进行读操作。 　　该过程有2个参数，一个是欲打开的文件名，一个是保存读入字符串的变量名。这里是打开INI.TXT文件，将其内容读到变量str1中。 　　putdata过程的作用是打开指定的文件，进行写操作。 　　该过程有2个参数，一个是欲打开的文件名，一个是要保存的变量名。这里按题目要求，指定的文件名是kssj.dat，变量是sum，为了保证sum能够在两个过程中均能使用，把sum定义为模块级变量。 综合应用题参考答案： 　　操作步骤如下： 　　1. 打开考生文件夹中的工程Menu1.Vbp。 　　2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。 　　3.在“标题”栏中输入菜单项的标题“工程(&P)”，在“名称”栏中输入菜单项的名称“工程”。 　　4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“窗体”；使用类似的操作，输入如下所示的菜单： 　　 工程(P) 数据处理 　　 √窗体 计算 　　 ────── 　　 退出 Ctrl+X 　　5. 说明：选中“窗体”菜单项的“复选”复选框，在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。 　　6. 单击“工程”菜单的“添加模块”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。 　　该模块的功能是：用一元纸币兑换一分、二分和五分的硬币,要求兑换硬币的总数为50枚，编程列出所有可能的兑换方案。填空的参考答案如下： 　　 '*****quest

ion***** 　　 k = 100 - 5 * i - 2 * j 　　 '*****question***** 　　 If i + j + k = 50 Then 　　7. 添加如下所示的菜单事件过程代码： 　　Private Sub 退出_Click() 　　 End 　　End Sub 　　Private Sub 计算_Click() 　　 calculate 　　End Sub 　　8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。 第4套模拟 基本操作题参考答案： 　　Dim f As Integer, h As Integer 　　'f的取值为1或-1，分别表示向上和向下移动 　　'h表示移动的幅度 　　Private Sub Form_Load() 　　 f = 1 　　 h = 100 　　End Sub 　　Private Sub HScroll1_Change() 　　 Timer1.Interval = HScroll1.Value 　　End Sub 　　Private Sub Timer1_Timer() 　　 Label1.Top = Label1.Top + f * h 　　 f = -f 　　End Sub 　　Private Sub VScroll1_Change() 　　 h = VScroll1.Value 　　End Sub 简单应用题参考答案： 　　Private Sub C1_Click() 　　 s = Day(Date) 　　 If s <= 10 Then 　　 key1 = "abc1" 　　 ElseIf s <= 20 Then 　　 key1 = "abc2" 　　 Else 　　 key1 = "abc3" 　　 End If 　　 If Text1.Text = "Bob" And Text2.Text = key1 Then 　　 MsgBox "欢迎使用本系统！" 　　 Else 　　 MsgBox "密码不正确！" 　　 End If 　　End Sub 　　Private Sub C2_Click() 　　 Call putdata("kssj.dat", Text2.Text) 　　End Sub 　　putdata过程的作用是打开指定的文件，进行写操作。 　　该过程有2个参数，一个是欲打开的文件名，一个是要保存的数据。这里按题目要求，指定的文件名是kssj.dat，保存的数据是文本框Text2的内容。 综合应用题参考答案： 　　操作步骤如下： 　　1. 打开考生文件夹中的工程Menu1.Vbp。 　　2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。 　　3. 在“标题”栏中输入菜单项的标题“查看(&V)”，在“名称”栏中输入菜单项的名称“查看”。 　　4. 单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“图标”；使用类似的操作，输入如下所示的菜单： 　　 查看(V) 数据处理 　　 图标 计算 　　 ────── 　　 退出 Ctrl+X 　　5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。 　　6. 单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。 　　该模块的功能是：编程查找5×5整型数组中所有的在行上最大、在列上也最大的元素。填空的参考答案如下： 　　 '*****question***** 　　 If a(j, Col) > max Then 　　

'*****question***** 　　 If Flag = 0 Then 　　7. 添加如下所示的菜单事件过程代码： 　　Private Sub 退出_Click() 　　 End 　　End Sub 　　Private Sub 计算_Click() 　　 calculate 　　End Sub 　　8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。 第5套模拟 基本操作题参考答案： 　　Private Sub Option1_Click() 　　 s = "" 　　 nstr = Text1.Text 　　 '把Text内容赋值给变量nstr 　　 m = Len(Text1.Text) '求字符串长度 　　 For i = m To 1 Step -1 '求字符串的反序 　　 s = s & Mid(nstr, i, 1) 　　 Next i 　　 Text2.Text = s '显示反序后的字符串 　　End Sub 　　Private Sub Option2_Click() 　　 Text2.Text = Text1.Text 　　 '直接把Text1内容显示在Text2中 　　End Sub 简单应用题参考答案： 　　Private Sub C1_Click() 　　 n = 100 　　 For i = 6 To 1 Step -1 　　 n = 2 * n 　　 Next i 　　 Text1.Text = n 　　End Sub 　　Private Sub C2_Click() 　　 putdata "kssj.dat", Text1.Text 　　End Sub 　　putdata过程的作用是打开指定的文件，进行写操作。 　　该过程有2个参数，一个是欲打开的文件名，一个是要保存的数据。这里按题目要求，指定的文件名是kssj.dat，保存的数据是文本框Text1的内容。 综合应用题参考答案： 　　操作步骤如下： 　　1. 打开考生文件夹中的工程Menu1.Vbp。 　　2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。 　　3.在“标题”栏中输入菜单项的标题“播放(&P)”，在“名称”栏中输入菜单项的名称“播放”。 　　4. 单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“打开”；使用类似的操作，输入如下所示的菜单： 　　 播放(P) 数据处理 　　 打开 计算 　　 ────── 　　 退出 Ctrl+X 　　5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。 　　6. 单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.Bas”文件添加到本工程。 　　该模块的功能是：在窗体上打印金字塔图形。填空的参考答案如下： 　　 '*****que stion***** 　　 menu1.Print Chr( 64 + j ) ; 　　 '*****question***** 　　 For j = i - 1 To 1 Step -1 　　7. 添加如下所示的菜单事件过程代码： 　　Private Sub 退出_Click() 　　 End 　　End Sub 　　Private Sub 计算_Click() 　　 calculate 　　End Sub 　　8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu