[IT认证]全国计算机二级vb机试题库2广东考区.doc

全国计算机二级vb机试题库1包含题库88套题目的第3、4道题全国计算机二级vb机试题库2包含题库88套题目的第5道题。 1.Private Sub Command1_Click() Dim a() As Long Dim i As Integer Dim n As Integer For i = 0 To Op1.Count - 1 If Op1(i).Value = True Then n = Val(Op1(i).Caption) Exit For End If Next ReDim a(n) a(1) = 1 a(2) = 1 For i = 3 To n a(i) = a(i - 1) + a(i - 2) Next Text1.Text = a(n) End Sub 2.程序提供代码 Private arr(100) As Integer Public Function prime(x As Integer) k = Int(Sqr(x) + 5) For i ＝ 2 To k 　　　　If x Mod i = 0 Then 　　　　　　prime = False 　　　　　　Exit Function 　　　　End If Next prime = True End Function Private Sub Command1_Click() Open App.Path \in5.txt For Input As #1 For i = 1 To 40 　　　　Input #1, arr(i) Next Close #1 End Sub Private Sub Command2_Click() ＝＝＝＝＝考生编写程序开始＝＝＝＝＝＝＝＝＝＝ ＝＝＝＝＝考生编写程序结束＝＝＝＝＝＝＝＝＝＝ Open App.Path \out5.txt For Output As #1 Print #1, Label3.Caption, Label4.Caption Close #1 End Sub 程序结束 参考答案 Dim a As Integer Dim b As Integer a = 0 b = arr(1) For i = 1 To 40 If prime(arr(i)) Then a = a + 1 Label3.Caption = a Next For i = 1 To 40 If prime(arr(i)) And arr(i) = b Then b = arr(i) Label4.Caption = b Next 3【操作步骤】 步骤1：打开本题工程文件，将Text3的Visible属性设置为False，然后按照题目要求建立菜单并设置其属性。 菜单属性如表3.13所示。 表3.13 控件 编辑 剪切 复制 粘贴 名称 Edit Cut Copy Paste 内缩符号 0 1 1 1 步骤2：分析并编写程序代码。 程序提供代码 Dim which As Integer Private Sub copy_Click() If which = 1 Then 　　　　Text3.Text = Text1.Text ElseIf which = 2 Then 　　　　Text3.Text = Text2.Text End If End Sub Private Sub cut_Click() If which = 1 Then 　　　　Text3.Text = Text1.Text 　　　　Text1.Text = ElseIf which = 2 Then 　　　　Text3.Text = Text2.Text 　　　　Text2.Text = End If End Sub Private Sub edit_Click() 　If which = ? Then If Text1.Text = Then 　　　　cut.Enabled = False 　　　　Copy.Enabled = False Else 　　　　cut.Enabled = True 　　　　Copy.Enabled = True End If 　ElseIf which = ? Then If Text2.Text = Then 　　　　cut.Enabled = False 　　　　Copy.Enabled = False Else