计算机二级VB机考题库大纲视图新

1、1【基本操作】（1）【操作步骤】 步骤1：打开Visual Basic，按照题目的要求新建窗体并添加一个水平滚动条控件。步骤2：在属性窗口中，按题照目的要求设置水平滚动条的相关属性步骤3：按照题目的要求，在窗体上添加两个标签控件。 步骤4：按照题目的要求设置两个标签的相关属性。程序中用到的控件及属性见表3.1。表3.1控件滚动条标签1标签2属性NameMinMaxLarge ChangeNameCaptionNameCaption设置值H1110010L11L2100步骤5：按下键盘上的F5键运行程序。步骤6：按题目要求保存工程和窗体文件。（2）【操作步骤】步骤1：新建窗体，按表3.2建立菜单

2、项并设置其属性。表3.2标题操作复制清除名称M1CopyClear内缩符号011图3.7步骤2：同步骤3，输入第3项的标题和名称，单击确定即可。步骤3：添加文本框控件，按照表3.3设置文本框的属性。表3.3控件文本框1文本框2属性NameName设置值Text1Text2步骤4：编写程序代码。参考答案Private Sub Clear_Click() Text2.Text = ""End SubPrivate Sub Copy_Click() Text2.Text = Text1.TextEnd Sub步骤7：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】（1）【操

3、作步骤】步骤1：打开本题工程文件，按照题目要求建立控件数组。步骤2：按照题目要求设置控件的属性，见表3.4。参考答案第一个？处填入：Index第二个？处填入：a（2）【操作步骤】步骤1：打开本题工程文件，按照题目要求建立框架控件并设置其属性。步骤2：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表3.5和表3.6。表3.6控件单选按钮1单选按钮2单选按钮3单选按钮4属性NameCaptionNameCaptionNameCaptionNameCaption设置值Op1男Op2女Op3学生Op4老师步骤4：分析并编写程序代码。程序提供代码Private Sub Form Unlo

4、ad(Cancel As Integer)Open "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.

5、Caption End If If Op3.Value Then Text1.Text = Text1.Text & Op3.Caption Else Text1.Text = Text1.Text & Op4.Caption End IfEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】步骤1：打开本题工程文件。步骤2：编写程序代码。参考答案Private Sub Command1_Click() Dim a() As Long Dim i As Integer Dim n As Integer For i = 0 To Op1.Coun

6、t - 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步骤3：调试并运行程序，关闭程序后按题目要求存盘。2【基本操作】（1）【操作步骤】步骤1：新建一个窗体，按照要求建立控件并设置其属性。步骤2：调试并运行程序。步骤3：关闭程序后按题目要求保存工程和窗体文件。（2）【操作步骤】步骤1：新建一个窗

7、体，按照题目要求建立控件并设置其属性。程序中用到的控件及属性见表3.7。表3.7控件图片框属性Name设置值P1步骤2：编写程序代码。参考答案Private Sub Form_Click() Form1.Print "单击窗体"End SubPrivate Sub P1_Click() P1.Print "单击图片框"End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】（1）【操作步骤】步骤1：按题目要求打开工程文件，设置计时器属性。步骤2：分析并编写程序代码。参考答案第1个？处填入：True第2个？处填入：Height第3个？处

8、填入：Enabled步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：tmp*a第2个？处填入：tmp第3个？处填入：xn(t, i)第4个？处填入：z步骤3：按照题目要求调试并运行程序。步骤4：关闭程序后，按照题目要求保存工程和窗体文件。【综合应用】【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案 Dim a As Integer Dim b As Integer a = 0 b = arr(1) For i = 1 To 40 If prime(arr(i) Then

9、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：按照题目要求调试并运行程序。 步骤4：关闭程序后，按题目要求存盘。3【基本操作】(1)【操作步骤】步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性步骤2：按照步骤1建立其他控件并设置相关属性，程序中涉及的控件及属性见表3.8和表3.9。 步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：新建一个窗体，按照

10、题目要求建立控件并设置图像框相应属性。步骤2：按照步骤1设置其他控件相关属性，程序中涉及的控件及属性见表3.10和3.11。表3.10控件图像框属性NameWidthHeightPictureStretch设置值Image117001900pic1.bmpTrue表3.11控件命令按钮1命令按钮2属性NameCaptionNameCaption设置值C1放大C2缩小步骤3：编写程序代码。参考答案Private Sub C1_Click() Image1.Height = Image1.Height + 100 Image1.Width = Image1.Width + 100End SubPr

11、ivate Sub C2_Click() Image1.Height = Image1.Height - 100 Image1.Width = Image1.Width - 100End Sub步骤4：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】(1)【操作步骤】步骤1：按照题目要求打开工程文件。步骤2：分析并编写程序代码。参考答案 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)

12、Then max = a(i) If min >= a(i) Then min = a(i) End If Next i Text1 = max Text2 = min步骤3：按照题目要求调试并运行程序。步骤4：关闭程序后，按题目要求存盘。(2)【操作步骤】步骤1：打开本题工程文件，按照题目要求建立控件并设置组合框控件属性。步骤2：按照步骤1设置其他控件的相关属性，程序中用到的控件及属性见表3.12。步骤3：分析并编写程序代码。参考答案Private Sub C1_Click() Dim sum As Long Dim n As Integer Dim i As Integer n =

13、Val(Cb1.Text) For i = n To 5000 If i Mod n = 0 Then sum = sum + i End If Next i Text1.Text = sumEnd Sub步骤4：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】步骤1：打开本题工程文件，按照题目要求建立菜单并设置其属性。菜单属性如表3.13所示。表3.13控件编辑剪切复制粘贴名称EditCutCopyPaste内缩符号0111步骤2：分析并编写程序代码。参考答案第1个？处填入：1第2个？处填入：2第3个？处填入：Text1.Text Text3.Text第4个？处填入：Tex

14、t2.Text Text3.Text步骤3：调试并运行程序，关闭程序后按题目要求存盘。4【基本操作】(1)【操作步骤】步骤1：新建一个窗体，按照要求建立控件并设置其属性。程序中用到的控件及属性见表3.14和3.15。表3.14控件命令按钮属性NameCaption设置值Command1打开文件步骤2：编写程序代码。参考答案Private Sub Command1_Click() CD1.ShowOpenEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：新建一个窗体，按照要求建立控件并设置相应属性。程序中用到的控件及属性见表3.16。表3.16控件命令按钮

15、属性NameCaption设置值Command1移动本按钮步骤2：编写程序代码。参考答案Private Sub Command1_Click() Command1.Left = Command1.Left - 100End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】(1)【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件并设置控件属性。程序中用到的控件及属性设置见表3.17和3.18步骤2：分析并编写程序代码。参考答案Private Sub Command1_Click() Combo1.AddItem Text1End SubPrivate Sub Comman

16、d2_Click() Print Combo1.ListCountEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2) 【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：Caption第2个？处填入：m第3个？处填入：k第4个？处填入：a步骤3：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：a(k)第2个？处填入：ch"排序"按钮的代码Private Sub C2_Click() Dim t As Integer Dim

17、 i As Integer Dim j As Integer Dim ch As String ch = "" For i = 50 To 2 Step -1 For j = 1 To 49 If a(j) > a(j + 1) Then t = a(j + 1) a(j + 1) = a(j) a(j) = t End If Next j Next i For j = 1 To 50 ch = ch + Str(a(j) + "" Next j Text2.Text = chEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。5【基本

18、操作】（1）【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件并设置标签属性。步骤2：按照步骤1设置其他控件相关属性，程序用到的控件及其属性见表3.19和3.20。表3.19控件标签1标签2属性NameCaptionNameCaption设置值Label1姓名Label2年龄步骤3：编写程序代码。参考答案Private Sub Command1_Click() Form1.Print Text1.Text & ",现年" & Text2.Text & "岁"End Sub步骤4：调试并运行程序，关闭程序后按题目要求存盘。（2）

19、【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件并设置图片框的属性步骤2：按照步骤1设置其他控件相关属性，程序中用到的控件及其属性见表3.21。 步骤3：编写程序代码。参考答案Private Sub Command1_Click() HScroll1.Max = 1500 HScroll1.Min = 100 HScroll1.LargeChange = 100 HScroll1.SmallChange = 10End SubPrivate Sub HScroll1_Change() Picture1.Width = HScroll1.ValueEnd Sub步骤4：调试并运行程序，关闭

20、程序后按题目要求存盘。【简单应用】（1）【操作步骤】步骤1：打开本题工程文件，按表3.22所列在窗体建立控件并设置其属性。表3.22控件列表框文本框属性NameName设置值List1Text1步骤2：分析并编写程序代码。参考答案第1个？处填入：Text1.Text第2个？处填入：List1.ListCount 1第3个？处填入：Text1.Text第4个？处填入：i步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：LBound第2个？处填入：UBound第3个？处填入：a第4个？处填入：<第

21、5个？处填入：a(i)第6个？处填入：arr2步骤3：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】步骤1：打开本题工程文件，利用菜单设计器，按表中的设置建立菜 单项，并在窗体Form1中添加一个文本框。其相关属性及其值见表3.23和3.24。表3.23标题控件读入数据计算并输出存盘名称ReadCalc Save内缩符号000表3.24控件文本框属性NameMultiLineScrollBarsText设置值Text1TRUE2步骤2：分析并编写程序代码。参考答案Dim sum As LongPrivate Sub Calc_Click() Text1.Text = &qu

22、ot;" For i = 2 To 100 Step 2 Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) Next i Print sumEnd SubPrivate Sub Read_Click() ReadDataEnd SubPrivate Sub Save_Click() WriteData "dataout.txt", sumEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。6【基本操作】（1）【操作步骤】步骤1：新建一个窗体，按照题目要求建立命令

23、按钮控件并设置命令按钮和窗体的相应属性。程序中用到的属性见表3.25。步骤2：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性。程序中用到的控件及属性见表3.26。表3.26控件标签属性NameBorderStyle设置值Label11步骤2：编写程序代码。参考答案Private Sub Form_Click() Label1.Top = 0 Label1.Left = Form1.Width - Label1.WidthEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】（1）【操作步骤】步

24、骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：1000第2个？处填入：Min第3个？处填入：arrN(i) < Min或Min > arrN(i)步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案Function Fun() Dim s As Integer, i As Integer For i = 0 To 1000 If i Mod 7 <> 0 Then s = s + 1 End If Next i Fun = sEnd Function步骤3：调试并

25、运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】步骤1：打开本题工程文件，按照题目要求建立命令按钮控件并设置命令按钮1的相应属性。步骤3：按照步骤1设置另一个命令按钮控件相关属性，程序中用到的控件及属性见表3.27所示。表3.27控件命令按钮1命令按钮2属性NameCaptionNameCaption设置值C1读入数据C2计算步骤4：分析并编写程序代码。参考答案Private Sub C1_Click() Call ReadData1 Call ReadData2End SubPrivate Sub C2_Click() Dim Arr3(1 To 20) As Integer D

26、im sum As Integer sum = 0 For i = 1 To 20 Arr3(i) = Arr1(i) - Arr2(i) sum = sum + Arr3(i) Next i Print "sum=" sum WriteData "dataout.txt", sumEnd Sub步骤5：调试并运行程序，关闭程序后按题目要求存盘。7【基本操作】(1)【操作步骤】步骤1：建立界面，按照题目要求建立一个名称为Ch1的复选框数组并设置其相应属性。步骤2：按照步骤1设置其他控件相关属性，程序中用到的控件及属性见表3.28和表3.29。表3.28控

27、件标签复选框1属性NameCaptionCaptionIndexValue设置值L1业余爱好体育01步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：新建一个"标准EXE"工程，在窗体中添加个文本框，在属性设置窗口中将其Name属性值设置为Text1。打开菜单设计器，按表3.30中的设置建立菜单项。表3.30标题操作显示隐藏名称M1ShowHide内缩符号011步骤2：编写程序代码。参考答案Private Sub Hide_Click() Text1.Visible = FalseEnd SubPrivate Sub Show_Click() Te

28、xt1.Visible = TrueEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】(1)【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性。步骤2：按照步骤1设置其他控件相关属性，程序中用到的控件及其属性见表3.31和表3.32。步骤3：分析并编写程序代码。程序提供代码程序结束参考答案Private Sub C1_Click() Text1.PasswordChar = ""End SubPrivate Sub C2_Click() Text1.PasswordChar = "?"End SubP

29、rivate Sub C3_Click() Text2.Text = Text1.TextEnd Sub步骤4：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：新建一个窗体，按照题目要求建立图片框及通用对话框控件并设置图片框及通用对话框相应属性。程序中用到的控件及其属性见表3.33和表3.34。表3.33控件图片框通用对话框属性NamePictureNameDialogTitle设置值P1Open.icoCD1打开文件步骤2：分析并编写程序代码。参考答案Private Sub P1_Click() CD1.ShowOpenEnd Sub步骤3：调试并运行程序，关闭程序后按题

30、目要求存盘。【综合应用】【操作步骤】步骤1：打开本题工程文件，按照题目要求建立标签控件并设置标签的Caption属性为"回文个数为"。步骤2：分析并编写程序代码。参考答案Function foundhuiwen(p As String) If StrReverse(p) = p Then foundhuiwen = TrueEnd Function步骤3：调试并运行程序，关闭程序后按题目要求存盘。8【基本操作】（1）【操作步骤】步骤1：新建窗体，按照题目要求建立控件数组并设置窗体和第一个复选框的属性。程序中用到的控件及属性见表3.35。步骤2：调试并运行程序，关闭程序后按题

31、目要求存盘。（2）【操作步骤】步骤1：新建一个窗体，按照题目要求建立滚动条控件及命令按钮控件并设置其属性。程序中用到的控件及属性见表3.36步骤2：编写程序代码。参考答案Private Sub C1_Click() HS1.Value = HS1.Value + 10End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】（1）【操作步骤】步骤1：新建一个窗体，按照题目要求建立文本框控件及一个弹出式菜单并设置菜单属性。步骤2：按照步骤1设置其他子菜单项的相关属性，程序中用到菜单属性见表3.37。表3.37标题控件(任意)加粗斜体下划线名称FormatM1M2M3内缩符号01

32、11步骤3：分析并编写程序代码。参考答案Private Sub M1_Click() Text1.FontBold = TrueEnd SubPrivate Sub M2_Click() Text1.FontItalic = TrueEnd SubPrivate Sub M3_Click() Text1.FontUnderline = TrueEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Me.PopupMe

33、nu Format End IfEnd Sub步骤4：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：打开本题工程文件，按照题目要求设置属性。步骤2：分析并编写程序代码。参考答案第1个？处填入：Show第2个？处填入：Caption第3个？处填入：k第4个？处填入：PasswordChar步骤3：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】步骤1：打开本题工程文件，将文本框Text1的PasswordChar属性设置为"*"。步骤2：分析并编写程序代码。参考答案第1个？处填入：Text1.Text第2个？处填入：PasswordCh

34、ar第3个？处填入：0第4个？处填入：False步骤3：调试并运行程序，关闭程序后按题目要求存盘。9【基本操作】【操作步骤】步骤1：新建一个窗体，按照题目要求建立图像框控件并设置其属性。程序中用到的控件及属性见表3.38。步骤2：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】（1）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：n第2个？处填入：0第3个？处填入：fun = s步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：Step 1第2个？处填

35、入：List1.List(k)第3个？处填入：k第4个？处填入：Text1或Text1.Text步骤3：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码参考答案第1个？处填入：0第2个？处填入：stepy第3个？处填入：Timer1.Enabled第4个？处填入：Timer1.Enabled第5个？处填入：stepy步骤3：调试并运行程序，关闭程序后按题目要求存盘。10【基本操作】（1）【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件并设置其属性。程序中用到的控件及属性见表3.41。步骤2：调试并运行程序

36、，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件并设置其属性。程序中用到的控件及属性见表3.42。步骤2：编写程序代码。参考答案Private Sub Form_Click() Label1.Visible = TrueEnd SubPrivate Sub Form_Load() Form1.Caption = "标签"End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】（1）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：Command1第2个？处填入：Label

37、1第3个？处填入：Control第4个？处填入：Label2.Caption步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：打开本题工程文件，将Timer1的Interval属性设置为500。步骤2：分析并编写程序代码。参考答案第1个？处填入：False第2个？处填入：True第3个？处填入：8第4个？处填入：0步骤3：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案 Max = a(i, 1) For j = 1 To 5 If Max < a(i, j) Then Max =

38、a(i, j) End If b(i) = Max If Max = a(i, j) Then c(i) = j Next j步骤3：调试并运行程序，关闭程序后按题目要求存盘。11【基本操作】（1）【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.35。步骤2：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：新建一个窗体，按照题目要求建立驱动器列表框、目录列表框、文件列表框控件并设置其属性。步骤2：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表3.44和表3.45。步骤3：编写程序代码。参考答案Private Sub Dir1_

39、Change() File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click() Label2 = File1.FileNameEnd Sub步骤4：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】（1）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：List(i).AddItem Text1.Text第2个？处填入：48第3个？处填入：0步骤3：调试并运行程序，关闭程序后按题目要求存

40、盘。（2）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：m第2个？处填入：f(i)第3个？处填入：t第4个？处填入：t * i第5个？处填入：t步骤3：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案Private Sub Command1 Click() Dim i As Integer Dim j As Integer Dim k As Integer For i = 1 To 60 For j = 1 To 60 For k = 1 To 60 If i 2 = j

41、 2 + k 2 Then m = m + 1 End If Next k Next j Next i Label1 = m / 2步骤3：调试并运行程序，关闭程序后按题目要求存盘。12【基本操作】（1）【操作步骤】步骤1：新建一个窗体，按照题目要求建立列表框控件并设置窗体及列表框属性。程序中用到的控件及属性见表3.46。步骤2：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：建立界面，添加一个命令按钮设置Name属性为Command1，Caption属性为弹出菜单。程序中用到的控件及属性见表3.47。表3.47标题文件打开关闭保存名称menu1m1m2m3内缩符号0111

42、步骤2：编写程序代码。参考答案Private Sub Command1_Click() PopupMenu menu1End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】（1）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：Text1, 1第2个？处填入：ch第3个？处填入：n步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：打开本题工程文件步骤2：分析并编写程序代码。参考答案第1个？处填入：True第2个？处填入：red color第3个？处填入：Shape1.Left第4个？处填入：Shape1.T

43、op第5个？处填入：blue color步骤3：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：2第2个？处填入：App.Path & "" & "in5.txt"第3个？处填入：s第4个？处填入：2Private Sub Command2 Click() Dim ch As String Dim s As String Dim n As Long s = Text1.Text Text1.Text = "" For n =

44、 1 To Len(s) ch = Mid(s, n, 1) If ch = "E" Or ch = "N" Or ch = "T" Then ch = LCase(ch) ElseIf ch = "e" Or ch = "n" Or ch = "t" Then ch = UCase(ch) End If Text1.Text = Text1 & ch NextEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘，如图3.58所示。13【基本操作】（1）【操

45、作步骤】步骤1：建立界面，并设置控件的属性。程序中的控件及属性见表3.48和3.49。表3.48控件框架1框架2属性NameCaptionNameCaption设置值Frame1字号Frame2修饰步骤2：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.50。步骤2：编写程序代码。参考答案Private Sub Command1_Click() Text2 = Text1.SelLengthEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】（1）【操作步骤】步骤1：打开本题工程文件步骤2：分

46、析并编写程序代码。参考答案第1个？处填入：st第2个？处填入：c第3个？处填入：word步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：打开本题工程文件， 设置计时器Interval属性为100，Enabled属性设置为False。步骤2：分析并编写程序代码。、参考答案？处填入：Left =Private Sub C1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub C2_Click() Timer1.Enabled = FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】

47、步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案 For i = 1 To Val(Text1.Text) If IsPrime(i) And IsPrime(Val(Text1.Text) - i) Then Label1 = i Label2 = Val(Text1.Text) - i Exit For End If Next i步骤3：调试并运行程序，关闭程序后按题目要求存盘。14【基本操作】（1）【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.51。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：新建一个窗体，

48、按照题目要求建立命令按钮控件及通用对话框并设置其属性。程序中用到的控件及属性见表3.52。步骤2：编写程序代码。参考答案Private Sub Command1_Click() CommonDialog1.ShowSaveEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】（1）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：Y第2个？处填入：X1第3个？处填入：radius&第4个？处填入：Label1步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：12第2个？处填入：1第3个？处填入：s s = 0 For k = 1 To n s = s + f(k) Next Text1 = s步骤3：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】