国家计算机二级VB考试上机题合辑.doc

第一套启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画二个命令按钮控件，通过其属性窗口将名称分别设为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_Clickk() C1.Visible = True C2.Visible = FalseEnd Sub启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个列表框控件，通过其属性窗口将名称设为L1。画一个水平滚动条控件，通过其属性窗口将名称设为HS1，Min属性设为0，Max属性设为100，SmallChange属性设为2，LargeChange属性设为10。 单击窗体（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Form_Click() L1.AddItem Str$(Form1.HS1)End Sub启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。 由于提供的Fun()函数不完整，需添加语句，具体内容：Function Fun(a() As Single) As Single Sum = 0 For i = 1 To UBound(a) Sum = Sum + a(i) / i Next i Fun = SumEnd Function启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体程序不完整，在窗体的Private Sub Command1_Click()事件过程中，有二处地方需要修改。1) 将语句Timer1.Enabled = ? 改为Timer1.Enabled = True2) 将语句Command1.Enabled = ? 改为Command1.Enabled = False 在窗体的Private Sub Command2_Click()事件过程中，有一处地方需要修改。1) 将语句Timer1.Enabled = ? 改为Timer1.Enabled = False 在窗体的Private Sub Timer1_Timer()事件过程中，有一处地方需要修改。1) 将语句Label1.Left = ?2) 改为Label1.Left = Label1.Left + 20启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 由于所提供的窗体程序不完整，需添加事件过程。 单击“统计”按钮（即运行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 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第二套启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“等级考试”，BorderStyle属性为1，标题大小自动调整（AutoSize属性）设为True。画一个命令按钮控件，通过其属性窗口将名称设为Command1。 单击命令按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() Command1.Caption = Label1 Label1.Visible = FalseEnd Sub启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，文本内容（Text属性）设为空。画三个单选按钮控件，通过属性窗口将名称设为Op1、Op2、Op3，标题（Caption属性）分别设为“北京”、“西安”、“杭州”。 选择单选按钮Op1（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Op1_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启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。 由于所提供的窗体程序不完整，在窗体的Private Sub Command1_Click()事件过程中，有三处地方需要修改。1) 将语句If ? = True Then 改为If Option1(i) = True Then2) 将语句Select Case ? 改为Select Case opt3) 将语句? = Str(HScroll1.Value) & & opt & Str(HScroll2.Value) & = & Str(Result) 改为Label4 = Str(HScroll1.Value) & & opt & Str(HScroll2.Value) & = & Str(Result)启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体程序不完整，在窗体的Private Sub Command1_Click()事件过程中，有三处地方需要修改。1) 将语句Loop Until ? And n 0 And n 132) 将语句Select Case ? 改为Select Case n3) 将语句 Select Case ? 改为Select Case m启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 由于所提供的窗体程序不完整，在命令按钮的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) / Len(Pers)2) 将语句Get #1, ? 改为Get #1, i, Pers第三套启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个文本框控件，通过其属性窗口将名称设为T1，高（Height属性）设为400，宽（Width属性）设为1400。画二个命令按钮控件，通过其属性窗口将名称分别设为C1、C2，标题（Caption属性）分别设为“显示”、“扩大”。 单击“显示”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C1_Click() T1 = 等级考试End Sub 单击“扩大”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C2_Click() T1.Height = 2 * Me.T1.Height T1.Width = 2 * T1.Width T1.FontSize = 3 * Form1.T1.FontSizeEnd Sub启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“转换”。画二个文本框控件，通过其属性窗口将名称分别设为Text1、Text2，Text属性均设为空。 单击“转换”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C1_Click() Text1.Text = LCase(Text1.Text) Text2.Text = UCase(Text1.Text)End Sub启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。 由于所提供的窗体控件不完整，向列表框控件添加项目（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 Then Text1.Text = List1.Text & Option2.Caption End If End IfEnd Sub 另外需注意：在结束程序运行之前，必须至少要进行一次选择操作（包括列表框和单选按钮），退出程序时需单击窗体右上角的关闭按钮，这样就运行了Private Sub Form_Unload(Cancel As Integer)事件过程。启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体程序不完整，在窗体的Private Sub Command1_Click()事件过程中，有三处地方需要修改。1) 将语句iSum = ? 改为iSum = 02) 将语句iSum = ? 改为iSum = iSum + j3) 将语句If iSum = ? Then 改为 If iSum = 1250 Then启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 在该窗体上画一个文本框控件，通过其属性窗口将名称设为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 #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事件过程中加入语句：Private 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第四套启动Visual Basic系统，创建一个Form1窗体。 该窗体上画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、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启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“计算机等级考试”，Left属性设为0。画一个水平滚动条控件，通过其属性窗口将名称设为HScroll1，Min属性设为0，Max属性设为3000，SmallChange属性设为10，LargeChange属性设为100。 移动滚动条上的滚动框（即运行Scroll事件过程），在该Scroll事件过程中加入语句：Private Sub HScroll1_Scroll() Label1.Left = Form1.HScroll1End Sub 单击滚动条上的方向按钮（即运行Click事件过程）也能实现题目所要求的功能，在该Click事件过程中加入语句：Private Sub HScroll1_Change() Label1.Left = Me.HScroll1End Sub启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个计时器控件，通过其属性窗口将名称设为Timer1。画一个图像框，通过其属性窗口将名称设为Image1，通过Picture属性将图形文件pic.ico装入。画一个水平滚动条，通过其属性窗口将名称设为HScroll1，Min属性设为100，Max属性设为1200，LargeChange属性设为100，SmallChange属性设为25。 点击滚动条（即运行Change事件过程），在Change事件过程中加入语句：Timer1.Interval = HScroll1.Value。还需在计时器的Timer事件过程中加入语句：Image1.Visible = Not Image1.Visible，即完成了图像框交替地显示和隐藏功能。启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体控件不完整，通过属性窗口向列表框中添加项目（List属性），添加的项目分别为：宋体、黑体、楷体_GB2312，每个项目为一行。通过属性窗口将文本内容（Text属性）设为“计算机”。通过属性窗口将水平滚动条最小值（Min属性）设为10，最大值（Max属性）设为50。 由于所提供的窗体程序不完整，在水平滚动条的Private Sub HScroll1_Change()事件过程中，有二处地方需要修改。1) 将语句Text1.FontSize = ? 改为Text1.FontSize = HScroll1.Value2) 将语句Text1.FontName = ? 改为Text1.FontName = List1.Text启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 在该窗体上画三个标签控件，通过其属性窗口将名称分别设为Label1、Label2和Label3，标题（Caption属性）分别设为“姓名”、“电话号码”和“邮政编码”。画三个文本框控件，通过其属性窗口将名称分别设为Text1、Text2和Text3，文本内容（Text属性）均设为空。 单击“显示第三个记录”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() Dim Pal As Paltype Open App.Path & in5.txt For Random As #1 Len = Len(Pal) Get #1, 3, Pal Text1.Text = Pal.Name Text2.Text = Pal.Tel Text3.Text = Str(Pal.Post) Close 1End Sub第五套启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个水平滚动条控件，通过其属性窗口将名称设为HScroll1，将Min属性设为1000，将Max属性设为1500，将LargeChange属性设为50，将SmallChange属性设为2。画一个文本框控件，通过其属性窗口将名称设为Text1，文本内容（Text属性）设为空白 移动滚动框（即运行Change事件过程），在该Change事件过程中加入语句：Private Sub HScroll1_Change() Text1 = HScroll1End Sub启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“移动”。 单击窗体（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Form_Click() C1.Left = 100 + C1.Left C1.Top = 100 + C1.TopEnd Sub启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。 由于所提供的窗体程序不完整，在窗体的Private Sub C1_Click()事件过程中，有四处地方需要修改。1) 将语句For i = ? To 改为 For i = 0 To2) 将语句 To ? 改为To 23) 将语句If Op1(i).? = True Then 改为If Op1(i).Value = True Then4) 将语句Print 我是 + Op1(i).? 改为Print 我是 + Op1(i).Caption启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体控件不完整，在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“请输入一个正整数”。画一个文本框控件，通过属性窗口将文本内容（Text属性）设为空。 由于所提供的窗体程序不完整，在计时器的Private Sub Timer1_Timer()事件过程中，有三处地方需要修改。1) 将语句If Val(?) = 0 Then 改为If Val(Text1.Text) = 0 Then2) 将语句Timer1.? = False 改为 Timer1.Enabled = False3) 将语句 Text1.? 改为Text1.SetFocus启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 由于所提供的窗体程序不完整，需添加事件过程。 单击“读入并显示记录”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click()考生应编写的程序 Open App.Path & in5.txt For Random As #1 Len = Len(pal) For i = 1 To 5 Get #1, i, pal Text1.Text = Text1.Text & pal.Name Text1.Text = Text1.Text & pal.Tel Text1.Text = Text1.Text & Str(pal.Post) Text1.Text = Text1.Text + vbCrLf Next Close 1End Sub第六套启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个单选按钮控件，通过对单选按钮控件的复制产生单选按钮控件数组，共有三个单选按钮，通过属性窗口将名称设为Op1，Index属性分别设为0、1、2，标题（Caption属性）分别设为“选择1”、“选择2”、“选择3”，“选择2”的Value属性设为True。启动Visual Basic系统，创建一个Form1窗体。 在该窗体上通过菜单编辑器建立二个主菜单，在菜单编辑器的标题处分别输入“编辑”、“帮助”，名称处分别输入edit、help，在“编辑”菜单下有三个子菜单，在菜单编辑器的标题处分别输入“剪切”、“复制”、“粘贴”，名称处分别输入cut、copy、paste。启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名分别为sjt31.frm和sjt32.frm。 由于所提供的Form1窗体控件不完整，通过其属性窗口将标题（Caption属性）设为“隐藏”。 提供的Form2窗体控件不完整，通过其属性窗口将标题（Caption属性）设为“显示”。 选择“工程”菜单下的“工程1属性”选项，打开该工程的属性窗口，在通用选项卡中将启动对象选为Form2即可。 由于所提供的Form1窗体程序不完整，在窗体的Private Sub C1_Click()事件过程中，有一处地方需要修改。1) 将语句Form1.Visible = ? 改为 Form1.Visible = False 由于所提供的Form2窗体程序不完整，在窗体的Private Sub C2_Click()事件过程中，有一处地方需要修改。1) 将语句 Form1.Visible = ? 改为 Form1.Visible = True启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体程序不完整，在“移动”按钮的Private Sub C1_Click()事件过程中，有三处地方需要修改。1) 将语句 If HS1.Value + Text1.Text HS1.? Then 改为If HS1.Value + Text1.Text HS1.Max Then2) 将语句 ElseIf HS1.Value + Text1.Text ? Then 改为ElseIf HS1.Value + Text1.Text HS1.Min Then3) 将语句 ? = HS1.Value + Text1.Text 改为HS1.Value = HS1.Value + Text1.Text启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个文本框，通过其属性窗口将名称设为Text1，多行显示（Multiline属性）设为True，即允许多行显示。画三个命令按钮，通过其属性窗口将名称分别设为C1、C2、C3，标题（Caption属性）分别设为“输入”、“转换”、“存盘”。 单击“输入”按钮（即运行Click事件过程），在Click事件过程中加入语句：Private Sub C1_Click() Open App.Path & in5.txt For Input As #1 Input #1, a$ Text1.Text = a$ Close #1End Sub 单击“输入”按钮（即运行Click事件过程），在Click事件过程中加入语句：Private Sub C2_Click() a$ = Text1.Text b$ = n = Len(a$) For i = 1 To n b$ = b$ + UCase$(Mid$(a$, i, 1) Next Text1.Text = b$End Sub 单击“输入”按钮（即运行Click事件过程），在Click事件过程中加入语句：Private Sub C3_Click() Open App.Path & out5.txt For Output As #1 Print #1, Text1.Text Close #1End Sub第七套启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个文本框，通过其属性窗口将名称设为Text1，字体（Font属性）设为“黑体”，文本框中的初始内容（Text属性）设为“程序设计”。另外再画一个命令按钮，通过其属性窗口将名称设为C1，标题（Caption属性）设为“改变字体”。 单击命令按钮（即运行Click等事件过程），使用（Text1.Font = 宋体）语句就能完成把文本框中文字的字体改成“宋体”功能。启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个图片框控件，通过其属性窗口将名称设为P1，高（Height属性）设为1800，宽（Width属性）设为1600。 双击窗体（即运行DblClick事件过程），在该DblClick事件过程中加入语句：Private Sub Form_DblClick() P1.Picture = LoadPictureEnd Sub启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个图片框控件，通过其属性窗口将名称设为P1，高（Height属性）设为1800，宽（Width属性）设为1600。 双击窗体（即运行DblClick事件过程），在该DblClick事件过程中加入语句：Private Sub Form_DblClick() P1.Picture = LoadPictureEnd Sub启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体控件不完整，通过列表框属性窗口将复选（MultiSelect属性）设为1。 由于所提供的窗体程序不完整，在“显示”按钮的Private Sub C1_Click()事件过程中，有三处地方需要修改。1) 将语句For i = ? To 改为 For i = 0 To2) 将语句To ? 改为To Me.l1.ListCount - 13) 将语句 If l1.? = True Then 改为If l1.Selected(i) = True Then启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 由于所提供的窗体控件不完整，在窗体上画一个文本框控件，通过其属性窗口将名称设为Text1。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“计算”。画二个单选按钮控件，通过其属性窗口将名称分别设为Op1、Op2，标题（Caption属性）分别设为“求500到600之间能被7整除的数之和”、“求500到600之间能被3整除的数之和”。 由于所提供的窗体程序不完整，需添加事件过程。 单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C1_Click() If Op1.Value Then Text1.Text = fun(7) End If If Op2.Value Then Text1.Text = fun(3) End IfEnd Sub第八套启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为Text1、Text2，ScrollBars属性均设为3，多行文本显示（Multiline属性）均设为True。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“复制”。画二个文本框控件，通过其属性窗口将名分别称设为Text1、Text2，文本内容（Text属性）均设为空。 单击“复制”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C1_Click() Text2.Text = Text1.TextEnd Sub启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。 由于所提供的窗体程序不完整，在“添加”按钮的Private Sub Command1_Click()事件过程中，有四处地方需要修改。1) 将语句S1 = ? 改为S1 = Text1.Text2) 将语句 Do While Mid(S1, I1, 1) ? And I1 = Len(S1) 改为 Do While Mid(S1, I1, 1) And I1 = Len(S1)3) 将语句 List1.AddItem ? 改为 List1.AddItem S24) 将语句S2 = ? 改为 S2 = 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体程序不完整，在命令按钮的Private Sub C1_Click()事件过程中，有三处地方需要修改。1) 将语句 For i = 0 To ? 改为For i = 0 To Cb1.ListCount - 12) 将语句If Cb1.List(i) = ? Then 改为If Cb1.List(i) = Cb1.Text Then3) 将语句Cb1.? Cb1.Text 改为Cb1.AddItem Cb1.Text启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，多行（MultiLine属性）设为True。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“存盘”。 加载窗体（即运行窗体的Load事件过程），在该Load事件过程中加入语句：Private Sub Form_Load() Open App.Path & in5.txt For Input As #1 Text1.Text = Do While Not EOF(1) Line Input #1, a$ Text1.Text = Text1.Text + a$ + Chr(13) + Chr(10) Loop Close #1End Sub 单击“存盘”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C1_Click() Open App.Path & out5.txt For Output As #1 Print #1, Text1.Text Close #1End Sub第九套】启动Visual Basic系统，创建一个Form1窗体。 在该窗体上通过菜单编辑器建立二个主菜单，在菜单编辑器的标题处分别输入“文件”、“编辑”，名称处分别输入file、edit，在“编辑”菜单下有三个子菜单，在菜单编辑器的标题处分别输入“剪切”、“复制”、“粘贴”，名称处分别输入cut、copy、paste，将“粘贴”菜单项中的“有效”单选按钮设为不选状态。启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为Text1、Text2，将文本框Text1的PasswordChar属性设为*。 文本框Text2中显示Text1内容（即运行Change事件过程），在该Change事件过程中加入语句：Private Sub Text1_Change() Text2.Text = Text1.TextEnd Sub启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画二个图片框控件，通过其属性窗口将名称分别设为P1、P2，高（Height属性）均设为1900，宽（Width属性）均设为1700，通过Picture属性将pic1.bmp装入P1图片框中、pic2.jpg装入P1图片框中。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“交换图片”。 单击“交换图片”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C1_Click() P1.Picture = LoadPicture(pic2.jpg) P2.Picture = LoadPicture(pic1.bmp)End Sub启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体控件不完整，需在该窗体上画二个复选框控件，通过其属性窗口将名称分别设为Ch1、Ch2，标题（Caption属性）分别设为“程序设计”、“数据库原理”。画一个文本框控件，通过其属性窗口将名称设为Text1。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“确定”。 单击“确定”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C1_Click() Text1.Text = 我选的课是 If Ch1.Value Then Text1.Text = Text1.Text + Ch1.Caption End If If Ch2.Value = 1 Then Text1.Text = Text1.Text + Ch2.Caption End IfEnd Sub启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 由于所提供的窗体程序不完整，需添加事件过程。 单击“输入”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C1_Click() Open App.Path & in5.txt For Input As #1 Input #1, a% Close #1 Text1.Text = a%End Sub 单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C2_Click() a% = Text1.Text Do a% = a% + 1 Loop Until isprime(a%) Text2.Text = a%End Sub 单击“存盘”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C3_Click() Open App.Path & out5.txt For Output As #1 Print #1, Text2.Text Close #1End Sub第十套启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为T1、T2，Text属性均设为空。 为实现T1中输入字符立即显示在T2中的功能（即运行T1_Change事件过程），在该Change事件过程中加入语句：Private Sub T1_Change() T2.Text = T1.TextEnd Sub启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“移动”。 单击“移动”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C1_Click() Text1.Left = 0End Sub启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。 由于所提供的窗体