1、全国计算机二级vb机试题库1广东考区全国计算机二级vb机试题库1包含题库88套题目的第3、4道题全国计算机二级vb机试题库2包含题库88套题目的第5道题。(1a) 【操作步骤】步骤1:打开本题工程文件,在窗体中添加一个单选按钮数组,包含3个单选按钮。再添加一个文本框。步骤2:按照题目要求设置控件的属性,见表3.4。步骤3:分析并编写程序代码。Private Sub Op1 Click(Index As Integer)Dim a As String, b As String, c As Stringa = 我坐b = 我开Select Case ?Case 0Text1.Text = a Me
2、.Op1(0)Caption 去Case 1 Text1.Text = ? Me.Op1(1)Caption 去Case 2Text1.Text = b Me.Op1(2)Caption 去End SelectEnd Sub程序结束参考答案第一个?处填入:Index第二个?处填入:a(1b) 【操作步骤】步骤1:打开本题工程文件,在窗体中添加两个框架,一个命令按钮和4个单选按钮。步骤2:为步骤1建立的控件设置相关属性,程序中用到的控件及属性见表3.5和表3.6。步骤3:分析并编写程序代码。程序提供代码Private Sub Form Unload(Cancel As Integer)Open
3、out4.txt For Output As #1Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.TextClose #1End Sub程序结束参考答案Private Sub C1_Click() Text1.Text = 我是 If Op1.Value Then Text1.Text = Text1.Text & Op1.Caption Else Text1.Text = Text1.Text & Op2.Caption End If If Op3.Value Then Text1.Text = Text1.Text &
4、 Op3.Caption Else Text1.Text = Text1.Text & Op4.Caption End IfEnd Sub(2a)【操作步骤】步骤1:按题目要求打开工程文件,设置计时器属性,将Enabled属性设置为False,并将Interval属性设置为100。步骤2:分析并编写程序代码。程序提供代码Private Sub C1_Click()Timer1.Enabled = ?End SubPrivate Sub Timer1_Timer()Static a%a = a =+1If P1.Top P2.Top P2.? ThenP1.Move P1.Left, P1.To
5、p - 5 - a, P1.Width, P1.HeightElseTimer1.Enabled = ?End IfEnd Sub程序结束参考答案第1个?处填入:True第2个?处填入:Height第3个?处填入:False(2b) 【操作步骤】步骤1:打开本题工程文件。步骤2:分析并编写程序代码。程序提供代码Private Function xn(a As Single, m As Integer)Dim i As Integertmp = 1For i = 1 To mtmp = ?Nextxn = ?End FunctionPrivate Sub Command1_Click()Dim
6、n As IntegerDim i As IntegerDim t As SingleDim s, x As Singlen = Val(Text1.Text)x = Val(Text2.Text)z = 0For i = 2 To nt = x + iz = z +?NextLabel1.Caption = ?Call SaveResultEnd SubPrivate Sub SaveResult()Open App.Path & out4.dat For Output As #1Print #1, Label1.CaptionClose #1End Sub程序结束参考答案第1个?处填入:t
7、mp*a第2个?处填入:tmp第3个?处填入:xn(t, i)第4个?处填入:z(3a)【操作步骤】步骤1:打开本题工程文件。步骤2:分析并编写程序代码。程序提供代码Dim a(100) As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path & in3.dat For Input As #1For k = 1 To 100Input #1, a(k)Next kClose #1End SubPrivate Sub Command2_Click() 需考生编写End Sub以下Function 过程用于判断某数是否
8、为水仙花数Function isnarc(p As Integer)x = Fix(p / 100)y = Fix(p - x * 100) / 10)z = p - x * 100 - y * 10If p = x 3 + y 3 + z 3 Thenisnarc = TrueElseisnarc = FalseEnd IfEnd FunctionPrivate Sub Form Unload(Cancel As Integer)Open App.Path & out3.dat For Output As #1Print #1, Val(Text1.Text)Print #1, Val(Te
9、xt2.Text)Close #1End Sub程序结束参考答案 Dim i As Integer Dim max As Integer, min As Integer max = -1 min = 1000 For i = 1 To 100 If isnarc(a(i) Then If max = a(i) Then min = a(i) End If Next i Text1 = max Text2 = min(3b)【操作步骤】步骤1:打开本题工程文件,在窗体中添加一个文本框,一个组合框和一个命令按钮。步骤2:设置窗体中控件的属性,控件的属性见表3.12。 表3.12步骤3:分析并编写程
10、序代码。程序提供代码窗体代码Private Sub Form_Unload(Cancel As Integer)unload subEnd Sub模块代码Sub unload sub()Open out4.dat For Output As #1Print #1, Val(Form1.Cb1.Text), Val(Form1.Text1. Text)Close #1End Sub程序结束参考答案Private Sub C1_Click() Dim sum As Long Dim n As Integer Dim i As Integer n = Val(Cb1.Text) For i = n
11、To 5000 If i Mod n = 0 Then sum = sum + i End If Next i Text1.Text = sumEnd Sub(4a) 【操作步骤】步骤1:新建一个窗体,按照题目要求建立控件并设置控件属性。程序中用到的控件及属性设置见表3.17和3.18 步骤2:分析并编写程序代码。参考答案Private Sub Command1_Click() Combo1.AddItem Text1End SubPrivate Sub Command2_Click() Print Combo1.ListCountEnd Sub(4b)【操作步骤】步骤1:打开本题工程文件。步
12、骤2:分析并编写程序代码。程序提供代码Private Sub Command1_Click()Dim n As Integer, k As Integer, m As IntegerDim c As String, a As StringFor k = 0 To 2If Op1(k)Value Thenn = Val(Op1(k). ? )End IfNext km = Len(Text1.Text)a = For k = 1 To ?c = Mid$(Text1.Text, ? , 1)c = String(1, Asc(c) + n)If c z Or c Z And c a Then c
13、 = String(1, Asc(c) - 26)End If? = a + cNext kText2.Text = aEnd Sub程序结束参考答案第1个?处填入:Caption第2个?处填入:m第3个?处填入:k第4个?处填入:a步骤3:调试并运行程序,关闭程序后按题目要求存盘。(5a)【操作步骤】步骤1:打开本题工程文件,在窗体中添加一个列表框和一个文本框,按照表3.22所示设置控件属性。表3.22控件列表框文本框属性NameName设置值List1Text1步骤2:分析并编写程序代码。程序提供代码Private Sub Form_MouseDown(Button As Integer,
14、 Shift As Integer, X As Single, Y As Single)If Button = 1 ThenText1.Text = InputBox(请输入要添加的项目)List1.AddItem ?End IfIf Button = 2 ThenText1.Text = InputBox(请输入要删除的项目)For i = 0 To ?If List1.List(i) = ? ThenList1.RemoveItem ?End IfNext iEnd IfEnd Sub程序结束参考答案第1个?处填入:Text1.Text第2个?处填入:List1.ListCount 1第3个?处填入:Text1.Text第4个?处填入:i(5b)【操作步骤】步骤1:打开本题工程文
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1