vb2级.docx

1、vb2级第三套一（1）在该窗体上画一个框架控件，通过其属性窗口将名称设为Frame1，标题（Caption属性）设为“目的地”。在F1框架中画三个复选框控件，通过其属性窗口将名称分别设为Check1、Check2、Check3，标题（Caption属性）分别设为“上海”、“广州”、“巴黎”，“上海”的Value属性设为1,“巴黎”的Value属性设为2。一（2）在该窗体上画一个图片框，通过其属性窗口将名称设为Picture1，宽度（Width属性）设为1700，高度（Height属性）设为1900。 单击图片框（即运行Click事件过程），在Click事件过程中加入语句：Picture1.Pi

2、cture = LoadPicture(pic1.bmp)，即将考生目录下的图形文件pic1.bmp装入图片框中。单击窗体（即运行Click事件过程），在Click事件过程中加入语句：Picture1.Picture = LoadPicture()，即图片框中的图形消失。二（1）通过属性窗口将文本框的对齐格式（Alignment属性）均设为1。 单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() If Option1.Item(0) = True Then Text2.Text = Format(Sin(Va

3、l(Text1.Text) * 3.14159 / 180), 0.000) End If If Option1.Item(1) = True Then Text2.Text = Format(Cos(Val(Text1.Text) * 3.14159 / 180), 0.000) End IfEnd Sub二（2）在“开始”按钮的Private Sub Command1_Click()事件过程中1) 将语句 Timer1.Enabled = ? 改为 Timer1.Enabled = True 在滚动框的Private Sub HScroll1_Change()事件过程中1) 将语句 ?.I

4、nterval = HScroll1.Value 改为 Timer1.Interval = HScroll1.Value 在计时器的Private Sub Timer1_Timer()事件过程中1) 将语句 Picture1.Left = ? + 10 改为 Picture1.Left = Picture1.Left + 10三 单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() Dim f1, f2, f As Long Dim a(40) As Long f1 = 1 f2 = 1 a(1) = f1 a

5、(2) = f2 For i = 3 To Val(Text1.Text) f = f1 + f2 a(i) = f f1 = f2 f2 = f Next Text2.Text = a(40)End Sub第四套一（1）在该窗体上画一个组合框控件，通过其属性窗口将名称设为Combo1，宽（Width属性）设为1200，Style属性设为1，向组合框中添加项目（List属性），添加的项目分别为“北京”、“上海”、“广州”、“深圳”，每个项目为一行。激活Form1窗体，通过其属性窗口将最大化按钮（MaxButton属性）设为False，最小化按钮（MinButton属性）设为False。一(2)

6、 在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为Text1和Text2。画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属性）分别设为“左”、“右”。 单击“左”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() Text1.SetFocusEnd Sub 单击“右”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_Click() Text2.SetFocusEnd Sub二（1）需在该窗体上画一

7、个单选按钮控件，通过对单选按钮控件的复制产生单选按钮控件数组，共有四个单选按钮，标题（Caption属性）分别设为“选项1”、“选项2”、“选项3”、“选项4”，“选项”的Value属性设为True。 在“下一个”按钮的Private Sub Command1_Click()事件过程中，有三处地方需要修改。1) 将语句 For k = 0 To ? 改为 For k = 0 To 32) 将语句 n = ? 改为 n = k3) 将语句 n = ? 改为 n = 0二（2） 在命令按钮的Private Sub Command1_Click()事件过程中1) 将语句 Select Case ?

8、改为 Select Case Combo1.ListIndex2) 将语句 tmpStr = Mid(Trim(Text1.Text), ? ) 改为 tmpStr = Mid(Trim(Text1.Text), 3, 4)3) 将语句 Text2.Text = ? 改为 Text2.Text = tmpStr三 单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() Dim f As Long a(1) = 1 a(2) = 1 For i = 3 To Val(Text1.Text) f = a(i - 2)

9、 + a(i - 1) + 1 a(i) = f Next Text2.Text = fEnd Sub第五套一（1)在该窗体上画一个复选框控件，通过对复选框控件的复制产生复选框控件数组，共有三个复选框，标题（Caption属性）分别设为“语文”、“数学”、“体育”，“数学”的Value属性设为1,“体育”的Value属性设为2。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“选课”。一(2)在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为Text1、Text2。画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属

10、性）分别设为“复制”、“删除”。 单击“复制”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() Text2 = Text1.SelTextEnd Sub 单击“删除”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_Click() Text1.SelText = End Sub二（1）对该窗体上的二个文本框，通过其属性窗口将Alignment属性都设为1。 单击“计算”按钮（即运行其Click事件过程），在该Click事件过程中加入语句：Private Sub

11、 Command1_Click() Const PI = 3.14159 Select Case Combo1.Text Case sin: a = Sin(CInt(Text1.Text) * PI / 180) Case cos: a = Cos(CInt(Text1.Text) * PI / 180) Case tg: a = Tan(CInt(Text1.Text) * PI / 180) Case ctg: a = 1 / Tan(CInt(Text1.Text) * PI / 180) End Select Text2 = Int(a * 1000) / 1000End Sub 另

12、外特别注意需在Text1中输入的值必须是40，而且结束程序时必须用窗体右上角的关闭按钮来结束程序，否则该部分将没有成绩。二（2）在窗体的Private Sub Timer1_Timer事件过程中1) 将语句 num = ? 改为 num = num + 1 2) 将语句 Text2.Text = Text2.Text + ? 改为 Text2.Text = Text2.Text + 103) 将语句 Text1.Text = Text1.Text + ? 改为 Text1.Text = Text1.Text + 1三 在窗体的Private Sub C1_Click()事件过程中1) 将语句

13、Timer2.Enabled = ? 改为 Timer2.Enabled = True 在窗体的Private Sub Timer1_Timer()事件过程中1) 将语句 P1.Picture = LoadPicture(?) 改为 P1.Picture = LoadPicture(绿灯.ico) 在窗体的Private Sub Timer2_Timer()事件过程中1) 将语句 Timer2.Enabled = ? 改为 Timer2.Enabled = False2) 将语句 P2.Move ? - 10, P2.Top, P2.Width, P2.Height 改为P2.Move P2.

14、Left - 10, P2.Top, P2.Width, P2.Height第六套一（1）在该窗体上画二个命令按钮控件，通过其属性窗口将名称分别设为C1和C2，标题（Caption属性）分别设为“命令按钮1”和“命令按钮2”，将C2的Visible属性为False。 单击命令按钮1（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C1_Clickk() C2.Visible = True C1.Visible = FalseEnd Sub 单击命令按钮2（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C2_Click

15、k() C1.Visible = True C2.Visible = FalseEnd Sub一（2）在该窗体上画一个列表框控件，通过其属性窗口将名称设为L1。画一个水平滚动条控件，通过其属性窗口将名称设为HS1，Min属性设为0，Max属性设为100，SmallChange属性设为2，LargeChange属性设为10。 单击窗体（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Form_Click() L1.AddItem Str$(Form1.HS1)End Sub二（1）由于提供的Fun()函数不完整，需添加语句，具体内容：Function Fun

16、(a() As Single) As Single Sum = 0 For i = 1 To UBound(a) Sum = Sum + a(i) / i Next i Fun = SumEnd Function二（2）在窗体的Private Sub Command1_Click()事件过程中1) 将语句 Timer1.Enabled = ? 改为 Timer1.Enabled = True2) 将语句 Command1.Enabled = ? 改为 Command1.Enabled = False 在窗体的Private Sub Command2_Click()事件过程中1) 将语句 Tim

17、er1.Enabled = ? 改为 Timer1.Enabled = False 在窗体的Private Sub Timer1_Timer()事件过程中1) 将语句 Label1.Left = ? 改为 Label1.Left = Label1.Left + 20三 单击“统计”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_Click() n = Len(Text1) For k = 1 To n ch = Mid(Text1, k, 1) If UCase(ch) = A Then an = an + 1 End If If

18、UCase(ch) = B Then bn = bn + 1 End If If UCase(ch) = C Then cn = cn + 1 End If If UCase(ch) = D Then dn = dn + 1 End If Next k Text1 = an & & bn & & cn & & dnEnd Sub第七套一(1) 在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“等级考试”，BorderStyle属性为1，标题大小自动调整（AutoSize属性）设为True。画一个命令按钮控件，通过其属性窗口将名称设为Command1

19、。 单击命令按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() Command1.Caption = Label1 Label1.Visible = FalseEnd Sub一（2） 在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，文本内容（Text属性）设为空。画三个单选按钮控件，通过属性窗口将名称设为Op1、Op2、Op3，标题（Caption属性）分别设为“北京”、“西安”、“杭州”。 选择单选按钮Op1（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Op1_

20、Click() Text1 = 颐和园End Sub 选择单选按钮Op2（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Op2_Click() Text1.Text = 兵马俑End Sub 选择单选按钮Op3（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Op3_Click() Text1.Text = 西湖End Sub二（1) 在窗体的Private Sub Command1_Click()事件过程中1) 将语句 If ? = True Then 改为 If Option1(i) = True Then2)

21、将语句 Select Case ? 改为 Select Case opt3) 将语句 ? = Str(HScroll1.Value) & & opt & Str(HScroll2.Value) & = & Str(Result) 改为 Label4 = Str(HScroll1.Value) & & opt & Str(HScroll2.Value) & = & Str(Result)二(2) 在窗体的Private Sub Command1_Click()事件过程中1) 将语句 Loop Until ? And n 0 And n 132) 将语句 Select Case ? 改为 Sele

22、ct Case n3) 将语句 Select Case ? 改为 Select Case m三 在命令按钮的Private Sub Command1_Click()事件过程中1) 将语句 RecNum = ? 改为 RecNum = RecNum + 12) 将语句 Put #1, ? 改为 Put #1, RecNum, Pers3) 将语句 Loop While UCase(asp) ? 改为 Loop While UCase(asp) N 在命令按钮的Private Sub Command2_Click()事件过程中1) 将语句 RecNum = ? 改为 RecNum = LOF(1)

23、 / Len(Pers)2) 将语句 Get #1, ? 改为Get #1, i, Pers第八套一（1）在该窗体上画一个文本框控件，通过其属性窗口将名称设为T1，高（Height属性）设为400，宽（Width属性）设为1400。画二个命令按钮控件，通过其属性窗口将名称分别设为C1、C2，标题（Caption属性）分别设为“显示”、“扩大”。 单击“显示”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C1_Click() T1 = 等级考试End Sub 单击“扩大”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Privat

24、e Sub C2_Click() T1.Height = 2 * Me.T1.Height T1.Width = 2 * T1.Width T1.FontSize = 3 * Form1.T1.FontSizeEnd Sub一（2） 在该窗体上画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“转换”。画二个文本框控件，通过其属性窗口将名称分别设为Text1、Text2，Text属性均设为空。 单击“转换”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C1_Click() Text1.Text = LCase(Text

25、1.Text) Text2.Text = UCase(Text1.Text)End Sub二（1）向列表框控件添加项目（List属性），添加的项目分别为Visual Basic，Turbo C，C+，Java，每个项目为一行。 单击“确定”命令按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() If Option1.Value And List1.Text Then Text1.Text = List1.Text & Option1.Caption Else If Option2.Value And List1.Text

26、 Then Text1.Text = List1.Text & Option2.Caption End If End IfEnd Sub 另外需注意：在结束程序运行之前，必须至少要进行一次选择操作（包括列表框和单选按钮），退出程序时需单击窗体右上角的关闭按钮，这样就运行了Private Sub Form_Unload(Cancel As Integer)事件过程。二（2）在窗体的Private Sub Command1_Click()事件过程中1) 将语句 iSum = ? 改为 iSum = 02) 将语句 iSum = ? 改为 iSum = iSum + j3) 将语句 If iSum

27、= ? Then 改为 If iSum = 1250 Then三 在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，文本内容（Text属性）设为空，多行（MultiLine属性）设为True。画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属性）分别设为“显示”、“保存”。 单击“显示”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() Dim RecNum As Long Open App.Path & in5.txt For Random As #

28、1 Len = Len(Stud) RecNum = 1 Do While Not EOF(1) Get #1, RecNum, Stud Text1.Text = Text1.Text & Stud.Name Text1.Text = Text1.Text & Stud.Sex Text1.Text = Text1.Text & Str(Stud.Age) Text1.Text = Text1.Text + vbCrLf RecNum = RecNum + 1 Loop Close 1End Sub 单击“保存”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Privat

29、e Sub Command2_Click() Open App.Path & out5.txt For Output As #1 Print #1, Text1.Text Close 1End Sub 声明部分定义一个存放“姓名”、“性别”和“年龄”纪录的结构，具体内容：Private Type StudInfo Name As String * 8 Sex As String * 4 Age As IntegerEnd Type 在声明部分还定义一个结构变量，其语句：Dim Stud As StudInfo第九套一（1）该窗体上画二个命令按钮控件，通过其属性窗口将名称分别设为Command1

30、、Command2，标题（Caption属性）分别设为“扩大”和“移动”。 单击“扩大”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() Height = 1.2 * Height Width = Width * 1.2End Sub 单击“移动”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_Click() Left = 200 + Left Top = Top + 100End Sub一(2)画一个标签控件，将名称设为Label1，标题（Caption属性）设为“计算机等级考试”，Left属性设为0。画一个水平滚动条控件，将名称设为HScroll1，Min属性设为0，Max属性设为3000，SmallChange属性设为10，