计算机2级考试答案.doc

第五十九套一（1）画一个框架控件，通过其属性窗口将名称设为Frame1，标题（Caption属性）设为“效果”。在该框架中画三个复选框控件，通过其属性窗口将名称分别设为Chk1、Chk2和Chk3，标题（Caption属性）分别设为“倾斜”、“加粗”和“下划线”。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“练习”。一（2）画一个标签控件，通过其属性窗口将名称设为Label1，标题内容（Caption属性）设为空。画二个命令按钮控件，通过其属性窗口将名称分别设为Command1和Command2，标题（Caption属性）分别设为“日期”和“时间”。 单击“日期”按钮：Private Sub Command1_Click() Label1.Caption = Date()End Sub 单击“时间”按钮：Private Sub Command2_Click() Label1.Caption = Time()End Sub二（1）单击“计算”按钮：Private Sub Command2_Click() Dim sum As Integer, Aver As Single Dim n As Integer For i = 1 To 100 If Fix(Sqr(a(i) = Sqr(a(i) Then n = n + 1 sum = sum + a(i) End If Next i Aver = sum / n Text1.Text = Fix(Aver)End Sub二（2）画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“Visual Basic程序设计”，自动调整（AutoSize属性）设为True，通过Font属性的字体对话框设置字体属性为黑体，字号属性设为小四号。 在窗体的Private Sub Command1_Click()事件过程中1) 将语句 If Command1.Caption = ? Then 改为 If Command1.Caption = 演示 Then2) 将语句 ? = True 改为 Timer1.Enabled = True3) 将语句 ? = False 改为 Timer1.Enabled = False 在窗体的Private Sub Timer1_Timer()事件过程中1) 将语句 If ? Form1.Width Then 改为 If Label1.Left Form1.Width Then2) 将语句 Label1.Left = ? + 100 改为 Label1.Left = Label1.Left + 100三 画三个命令按钮控件，通过其属性窗口将名称分别设为Cmd1、Cmd2和Cmd3，标题（Caption属性）分别设为“产生数组”、“统计”和“退出”。 在窗体的Private Sub Cmd1_Click()事件过程中，1) 将语句 a(i) = Fix(Rnd * ? + 1) 改为 a(i) = Fix(Rnd * 9 + 1) 在窗体的Private Sub Cmd2_Click()事件过程中1) 将语句 For j = 1 To ? 改为 For j = 1 To i - 12) 将语句 If b(i) ? Then fmax = b(i) 改为 If b(i) fmax Then fmax = b(i)3) 将语句 If b(i) = ? Then 改为 If b(i) = fmax Then 在窗体的Private Sub Cmd3_Click()事件过程中1) 将语句 ? 改为End第五十八套一（1）画二个框架控件，通过其属性窗口将名称分别设为Frame1和Frame2，标题（Caption属性）分别设为“字号”和“修饰”。在Frame1框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Option1和Option2，标题（Caption属性）分别设为“10号字”和“20号字”，为使标题显示在单选按钮的左边，将二个单选按钮的对齐方式（Alignment属性）都设为1。在Frame2框架中画一个复选框控件，通过其属性窗口将名称设为Check1，标题（Caption属性）设为“下划线”。一（2）画二个文本框控件，通过其属性窗口将名称分别设为Text1和Text2。画一个命令按钮控件，通过其属性窗口将名称设为Command1，标题（Caption属性）设为“选中字符数是”。 单击“显示口令”按钮：Private Sub Command1_Click() Text2.Text = Text1.SelLengthEnd Sub二（1）在窗体的Private Sub Command1_Click()事件过程中，1) 将语句 st = ? & ch 改为 st = st & ch 在窗体的Private Sub Command1_Click()事件过程中，1) 将语句 ? = Mid(st, k, 1) 改为 c = Mid(st, k, 1)2) 将语句 ? = 改为 word = 二（2）通过其属性窗口将计时器的Enabled属性设为False，Interval属性设为100（每0.1秒加1）。 单击“开始”按钮：Private Sub C1_Click() Timer1.Enabled = TrueEnd Sub 单击“停止”按钮：Private Sub C2_Click() Timer1.Enabled = FalseEnd Sub 提供的计时器程序不完整，在Private Sub Command1_Click()中1) 将语句 P1.? P1.Left + 20 改为 P1.Move P1.Left + 20三 单击分解为按钮：Private Sub Command1_Click()考生编写程序开始= Dim i As Integer Dim n As Integer n = Val(Text1.Text) If n Mod 2 0 Then MsgBox 请输入偶数！ Exit Sub End If For i = 3 To n / 2 If IsPrime(i) And IsPrime(n - i) Then Label1.Caption = i Label2.Caption = n - i Exit For End If Next=考生编写程序结束 Open App.Path & out5.dat For Output As #1 Print #1, Text1.Text, Label1.Caption, Label2.Caption Close #1 End Sub第五十七套一（1）画一个图像框控件，通过其属性窗口将名称设为Image1，高（Height属性）设为2500，宽（Width属性）设为2000，通过Picture属性装入pic1.jpg图像文件。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“图片”。一（2）画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“口令”。画一个文本框控件，通过其属性窗口将名称设为Text1。画三个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2、Command3，标题（Caption属性）分别设为“显示口令”、“隐藏口令”、“重新输入”。 单击“显示口令”按钮：Private Sub Command1_Click() Text1.PasswordChar = End Sub 单击“隐藏口令”按钮：Private Sub Command2_Click() Text1.PasswordChar = *End Sub 单击“重新输入”按钮：Private Sub Command3_Click() Text1.Text = End Sub二（1）在窗体的Private Sub Command1_Click()事件过程中1) 将语句 ? = InputBox(请输入一个整数) 改为 n = InputBox(请输入一个整数) 由于提供的Fun()函数不完整，1) 将语句 If m Mod k = ? Then 改为 If m Mod k = 0 Then2) 将语句 ? 改为 fun = s二（2）在窗体的Private Sub Command1_Click()事件过程中1) 将语句 For k = List1.ListCount - 1 To 0 ? 改为 For k = List1.ListCount - 1 To 0 Step -12) 将语句 List2.AddItem ? 改为 List2.AddItem List1.Text3) 将语句 List1.RemoveItem ? 改为 List1.RemoveItem k 在窗体的Private Sub Command2_Click()事件过程中1) 将语句 Text1 = ? & & List2.List(k) 改为 Text1 = Text1 & & List2.List(k)三 在窗体的Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)事件过程中1) 将语句 stepx = ? 改为 stepx = 02) 将语句 ? = a * stepx 改为 stepy = a * stepx3) 将语句 ? = True 改为 Timer1.Enabled = True4) 将语句 ? = False 改为 Timer1.Enabled = False 在窗体的Private Sub Timer1_Timer()事件过程中1) 将语句 Shape1.Move Shape1.Left + stepx, Shape1.Top + ? 改为 Shape1.Move Shape1.Left + stepx, Shape1.Top + stepy第五十六套一（1）画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“计算机等级考试”，点击Font属性在弹出的字体对话框中将大小均设为“四号”，标签大小自动调整（AutoSize属性）设为True，边框（BorderStyle属性）设为1。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“标签”，控制框（ControlBox属性）设为False。一（2）画一个文本框控件，通过其属性窗口将名称设为Text1，文本内容（Text属性）设为“程序设计”，点击Font属性在弹出的字体对话框中将大小设为“三号”，对齐格式（Alignment属性）设为2。画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属性）分别设为“粗体”和“斜体”。 单击“粗体”按钮：Private Sub Command1_Click() Text1.FontBold = TrueEnd Sub 单击“斜体”按钮：Private Sub Command2_Click() Text1.FontItalic = TrueEnd Sub二（1）通过计时器属性窗口将Enabled设为False。 单击开始计数按钮：Private Sub C1_Click() Timer1.Enabled = TrueEnd Sub 单击停止计数按钮：Private Sub C2_Click() Timer1.Enabled = FalseEnd Sub 在单选按钮数组的Private Sub Op1_Click(Index As Integer)事件过程中，1) 将语句 Select Case ? 改为 Select Case Index 在计时器的Private Sub Timer1_Timer()事件过程中，1) 将语句 Text1.Text = ?.Text + 1 改为 Text1.Text = Text1.Text + 1二（2）在“删除”按钮的Private Sub Command3_Click()事件过程中，1) 将语句 If num = ? Then Exit For 改为 If num = a(i) Then Exit For2) 将语句 If ? Then 改为 If i n Then3) 将语句 For j = i To ? 改为 For j = i To n4) 将语句 a(j) = ? 改为 a(j) = a(j + 1)5) 将语句 For k = 1 To ? 改为 For k = 1 To n三 在“统计”按钮的Private Sub Command2_Click()事件过程中，1) 将语句 sl = ? 改为 sl = Text1.SelLength2) 将语句 a(n) = ? 改为 a(n) = a(n) + 13) 将语句 For j = ? To 26 改为 For j = 2 To 264) 将语句 If ? Then 改为 If a(j) max_n Then5) 将语句 If ? Then 改为 If a(i) = max_n Then第五十五套一（1）画一个组合框控件，通过其属性窗口将名称设为Combo1，其初始内容（Text属性）设为空，向组合框中添加项目（List属性），添加的项目分别为“隶书”、“宋体” 、“楷体”。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“考试”。一（2）画二个文本框控件，通过其属性窗口将名称分别设为Text1、Text2，其文本内容（Text属性）均设为空，点击Font属性在弹出的字体对话框中将大小设为“三号”，Text1的Enabled属性设为False。画一个命令按钮控件，通过其属性窗口将名称设为Command1，标题（Caption属性）设为“开始”。 单击“开始”按钮：Private Sub Command1_Click() Text1.Enabled = TrueEnd Sub Text1内容改变引起Text2的改变（即运行Change事件过程），在该Change事件过程中加入语句：Private Sub Text1_Change() Text2 = UCase(Text1)End Sub二（1）单击“变换”按钮：Private Sub Command2_Click() For i = 1 To 10 temp = a(i) a(i) = a(20 - i + 1) a(20 - i + 1) = temp Next i For k = 1 To 20 Text2 = Text2 + Str(a(k) + Space(2) Next kEnd Sub二（2）在“统计”按钮的Private Sub Command2_Click()事件过程中1) 将语句 If ? Then 改为 If sl = 0 Then2) 将语句 For i = 1 To ? 改为 For i = 1 To sl3) 将语句 a(n) = ? 改为 a(n) = a(n) + 14) 将语句 For i = 1 To ? 改为 For i = 1 To 26三 在“添加”按钮的Private Sub Command1_Click()事件过程中，1) 将语句 n = ? 改为 n = n - 12) 将语句 ? = Text1 改为 stud(n).Num = Text1 在“排序”按钮的Private Sub Command2_Click()事件过程中1) 将语句 For k = ? To n 改为 For k = j + 1 To n2) 将语句 If stud(k).Average stud(j).? Then 改为 If stud(k).Average stud(j).Average Then3) 将语句 stud(k) = ? 改为 stud(k) = stud(j)第五十四套一（1）画一个形状控件，通过其属性窗口将名称设为shape1，高（Height属性）设为1000，宽（Width属性）设为2000，Shape属性设为4，FillStyle属性设为0，FillColor属性设为&HFF00&。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“圆角矩形”。一（2）画一个计时器控件，计时器开始不计时，即把（Enabled属性）设为False，Interval属性设为1000（每秒加1）。 单击“通话开始”按钮：Private Sub Command1_Click() Timer1.Enabled = TrueEnd Sub 单击“通话结束”按钮：Private Sub Command2_Click() Timer1.Enabled = FalseEnd Sub 单击“计算通话费”按钮：Private Sub Command3_Click() sub1End Sub 计时器的Timer事件过程，在该Timer事件过程中加入语句：Private Sub Timer1_Timer() Text1 = Text1 + 1End Sub二（1）在窗体的Private Sub Form_Click()事件过程中1) 将语句 For i = 1 To ? 改为 For i = 1 To 52) 将语句 For j = 1 To ? 改为 For j = 1 To 2 * i - 13) 将语句 For j = 1 To ? 改为 For j = 1 To i + 14) 将语句 For j = 1 To ? 改为 For j = 1 To 9 - 2 * i二（2）在“停止”按钮的Private Sub Command2_Click()事件过程中，1) 将语句 ? = False 改为 Timer1 = False 在计时器的Private Sub Timer1_Timer()事件过程中1) 将语句 Shape2.Top = ? + d * 50 改为 Shape2.Top = Shape2.Top + d * 502) 将语句 If Shape2.Top = Shape1.Top + Shape1.Height Then 改为 If Shape2.Top = Shape1.Top + Shape1.Height Then3) 将语句 Shape2.Left = ? + d * 50 改为 Shape2.Left = Shape2.Left + d * 50三 单击“计算运费”按钮：Private Sub Command2_Click() p = 0.3 d = Int(Text1.Text / 500) Select Case d Case 0 discount = 1 Case 1 discount = 0.98 Case 2 discount = 0.95 Case 3 discount = 0.92 Case Else discount = 0.9 End Select Text2 = Int(discount * p * Text1)End Sub 选择列表框中的某个城市（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub List1_Click() Text1 = a(List1.ListIndex + 1)End Sub 在“装入数据”按钮的Private Sub Command1_Click()事件过程中，1) 将语句 n = n + ? 改为 n = n + 12) 将语句 List1.AddItem ? 改为 List1.AddItem ch$第五十三套一（1）画一个文本框控件，通过其属性窗口将名称设为Text1，MousePointer属性设为1。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“鼠标光标形状”，MousePointer属性设为2。一（2）画二个标签控件，通过其属性窗口将名称设为Label1、Label2，标题（Caption属性）分别设为“开始位置”、“选中的字符数”。画三个文本框控件，通过其属性窗口将名称分别设为Text1、Text2、Text3。画一个命令按钮控件，通过其属性窗口将名称设为Command1，标题（Caption属性）设为“显示选中信息”。 单击“显示选中信息”按钮：Private Sub Command1_Click() Text2 = Text1.SelStart + 1 Text3 = Text1.SelLengthEnd Sub二（1）在启动窗体Private Sub Form_load()事件过程中1) 将语句 HScroll1.Max = Shape2.Width + Shape2.Left - Shape1.? 改为 HScroll1.Max = Shape2.Width + Shape2.Left - Shape1.Width2) 将语句 VScroll1.Max = Shape2.Height + ? - Shape1.Height 改为 VScroll1.Max = Shape2.Height + Shape2.Top - Shape1.Height 在水平滚动条的Private Sub HScroll1_Change()事件过程中，1) 将语句 ? = HScroll1.Value 改为 Shape1.Left = HScroll1.Value 在垂直滚动条的Private Sub VScroll1_Change()事件过程中，1) 将语句 Shape1.Top = ? 改为 Shape1.Top = VScroll1二（2）在“发射”按钮的Private Sub Command1_Click()事件过程中，1) 将语句 Timer1.? = True 改为 Timer1.Enabled = True 在计时器的Private Sub Timer1_Timer()事件过程中，1) 将语句 ? = False 改为 Timer1.Enabled = False2) 将语句 d = ? - Image1.Top 改为 d = d - Image1.Top3) 将语句 t = ? 改为 t = t + 1三 单击“合并”按钮：Private Sub Command2_Click() ia = 1: ib = 1: ic = 1 Do While ia = 30 And ib = 30 If a(ia) b(ib) Then c(ic) = a(ia): ia = ia + 1 Else c(ic) = b(ib): ib = ib + 1 End If ic = ic + 1 Loop Do While ia = 30 c(ic) = a(ia): ia = ia + 1: ic = ic + 1 Loop Do While ib = 30 c(ic) = b(ib): ib = ib + 1: ic = ic + 1 Loop 以下程序将合并后的数组C显示在Text3中 For k = 1 To 60 Text3 = Text3 + Str(c(k) + Space(2) Next kEnd Sub第五十二套一（1)画一个形状控件，通过其属性窗口将名称设为shape1，高（Height属性）设为1200，宽（Width属性）设为1200，BorderStyle属性设为2。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“正方形”，最小化按钮（MinButton属性）设为False。一（2）画一个标签控件，通过其属性窗口将名称设为Label1，AutoSize属性设为True，标题（Caption属性）设为“计算机等级考试”，点击Font属性在弹出的字体对话框中将大小设为“三号”。画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属性）分别设为“宋体”、“黑体”。 单击“宋体”按钮：Private Sub Command1_Click() Label1.FontName = 宋体End Sub 单击“黑体”按钮：Private Sub Command2_Click() Label1.FontName = 黑体End Sub二（1）通过“通话结束”的属性窗口将Enabled属性设为False。 在“通话开始”按钮的Private Sub Cmd1_Click()事件过程中1) 将语句 ? = Str(Time() 改为 Text1(0).Text = Str(Time() 在“通话结束”按钮的Private Sub Cmd2_Click()事件过程中1) 将语句 s = ? + (m - 3) * 0.15 改为 s = s + (m - 3) * 0.152) 将语句 ? = True 改为 Cmd1.Enabled = True3) 将语句 ? = False 改为 Cmd2.Enabled = False二（2）在读入数据按钮的Private Sub Command1_Click()事件过程中1) 将语句 Open App.Path & in5.txt For ? As #1 改为 Open App.Path & in5.txt For Input As #1 在计算按钮的Private Sub Command2_Click()事件过程中1) 将语句 s(i) = ? 改为 s(i) = a(i, j) + s(i)2) 将语句 ? = CInt(s(i) / 10) 改为 s(i) = CInt(s(i) / 10) 在显示图形按钮的Private Sub Command3_Click()事件过程中1) 将语句 Shape1(k - 1).Top = ? - Shape1(k - 1).Height 改为 Shape1(k - 1).Top = m - Shape1(k - 1).Height2) 将语句 Shape1(k - 1).? = True 改为 Shape1(k - 1).Visible = True三 画二个标签控件，通过其属性窗口将名称分别设为Label1、Label2，标题（Caption属性）分别设为“最长单词的长度为”、“以该长度最后一次出现的单词是”。画二个文本框控件，通过其属性窗口将名称设为Text1、Text2，文本内容（Text属性）均设为空。 单击“统计”按钮：Private Sub Command2_Click() n = Len(s): t = Dim Max_len As Integer For i = 1 To n c = Mid(s, i, 1) If c Then t = t + c Else If Len(t) Max_len Then Max_len = Len(t) Max_word = t End If t = End If Next i If Len(t) Max_len Then Max_len = Len(t) Max_word = t End If Text1.Text = Max_len Text2.Text = Max_wordEnd Sub第五十一套一（1）画一个框架控件，通过其属性窗口将名称设为Frame1，标题（Caption属性）设为“字体”。在框架内画二个单选按钮控件，通过其属性窗口将名称分别设为Opt1和Opt2，标题（Caption属性）分别设为“隶书”和“宋体”。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“测试”。一（2）画一个形状控件，通过其属性窗口将名称设为Shape1，高（Height属性）设为1000、宽（Width属性）设为1000，Shape属性设为3。画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属性）分别设为“垂直线”和“水平线”。 单击“垂直线”按钮：Private Sub Command1_Click() Shape1.FillStyle = 3End Sub 单击“水平线”按钮：Private Sub Command2_Click() Shape1.FillStyle = 2End Sub二(1）画一个文本框控件，通过其属性窗口将名称设为Text1。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“转换”。 在命令按钮的Private Sub C1_Click()事件过程中1) 将语句 n% = Asc(a) - Asc( ? ) 改为 n% = Asc(a) - Asc(A)2) 将语句 b$ = String(1, Asc(b$) ? ) 改为 b$ = String(1, Asc(b$) + 32)3) 将语句 Text1.Text = ? 改为 Text1.Text = a二（2）在“插入”按钮的Private Sub Command3_Click()事件过程中1) 将语句 If num a(i) Then ? 改为 If num a(i) Then Exit For2) 将语句 For j = 60 To i ? 改为 For j = 60 To i Step -13) 将语句 a(j + 1) = ? 改为 a(j + 1) = a(j)4) 将语句 ? = num 改为 a(i) = num5) 将语句 For k = 1 To ? 改为 For k = 1 To 61三 需画二个标签控件，通过其属性窗口将名称分别设为 Label1和Label2，标题（Caption属性）分别设为“单词的平均长度为”和“最长单词的长度为”。画二个文本框控件，通过其属性窗口将名称分别设为Text1和Text2，初始内容（Text属性）均设为空。 由于所提供的窗体程序不完整，需在“统计”命令按钮的Click事件过程中加入语句：Private Sub Command2_Click()需考生编写 n = Len(s): t = Dim word_max As Integer, word_num As Integer, word_len As Integer For i = 1 To n c = Mid(s, i, 1) If c Then t = t + c Else word_len = word_len + Len(t) word_num = word_num + 1 If Len(t) word_max Then word_max = Len(t) End If t = End If Next i Text1.Text = CInt(word_len + Len(t) / (word_num + 1) If Len(t) word_max Then word_max = Len(t) End If Text2.Text = word_maxEnd Sub第五十套一（1）画一个命令按钮控件，通过对命令按钮控件的复制产生命令按钮控件数组，共有三个命令按钮，通过其属性窗口将名称设为Command1，Index属性分别设为0、1、2，按顺序将其标题（Caption属性）分别设为“是”、“否”、“取消”，它们的高度（Height属性）均设为300，宽度（Width属性）均设为800。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“按钮窗口”。一（2)画一个形状控件，通过其属性窗口将名称设为Sha1。通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“形状”，名称处输入Shape0。在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“正方形”和“圆形”，名称处分别输入Shape1和Shape2。 选择“正方形”菜单（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Shape1_Click() Me.Sha1.Shape = 1End Sub 选择“圆形”菜单（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Shape2_Click() Form1.Sha1 = 3End Sub二（1）画二个单选按钮控件，通过其属性窗口将名称分别设为Op1、Op2，标题（Caption属性