全国vb上机综合应用
国家二级VB机试(上机操作)模拟试卷243(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷243(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml，标题为“考试”的窗体上画一个名称为Combol、初始内容为空的下拉式组合框。
下拉列表中有“隶书”、“宋体”和“楷体”三个项目。
运行后的窗体如图2．188所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sitl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Forml的窗体上画两个文本框，其名称分别为Text1、Text2，初始内容都为空，显示为三号字，且Text1的初始状态为不可用；再画一个名称为Command1、标题为“开始”的命令按钮，如图2-189所示。
要求：编写适当的事件过程，使得单击“开始”按钮后，Text1文本框变为可用状态，且在Text1文本框中输入字母串时，Text2文本框中用大写字母彤式显示Text1文本框中的内容。
程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表3-99在窗体中画出控件并设置其相关属性。
步骤2：按要求将文件保存考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Forml中画两个文本框，并分别设置它们的相关属性，其属性及值如表3-100所示。
步骤2：打开代码编辑窗口，编写Text1的Change事件过程和命令按钮的单击事件过程。
参考代码：Private Sub Commandl—Click( ) Textl．Enabled=True End Sub Private Sub Textl Change( ) Text2．Text=UCase(Textl．Text) End Sub 步骤3：按要求将文件保存至考生文件夹中。
国家二级VB机试(综合应用题)模拟试卷14(题后含答案及解析)
国家二级VB机试（综合应用题）模拟试卷14(题后含答案及解析) 题型有：1.1．在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有2个标题分别是“读数据”和“统计”的命令按钮，1个名称为Text1的文本框，2个标签控件，如图3—31所示。
程序功能如下：1)单击“读数据”按钮，则将考生文件夹下in5．dat文件的内容(该文件中含有不超过800个英文单词，单词之间用1个空格隔开)显示在Text1文本框中。
2)单击“统计”按钮，则自动统计Text1中所有5字母单词的个数，并显示在右下角的Labe11标签中。
“读数据”按钮的Click事件过程已经给出，“统计”按钮的Click事件过程不完整，函数GetWords的功能是从字符串s中分离出每个单词，依次放入数组words的数组元素中，返回值为单词的总数目。
要求：1)请将程序中的注释符去掉，把?改为正确的内容；2)补全“统计”按钮Click事件过程中的代码，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“统计”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。
最后，程序按原文件名存盘。
正确答案：【操作步骤】GetWords＝mm＝GetWords(Text1．Text，ch)’－－－－－－－考生编写的程序代码从这里开始k＝0For i＝1 To m If Len(ch(i))＝5 Thenk＝k＋1End IfNext iLabe11．Caption＝k’－－－－－－－考生编写的程序代码到这里结束步骤2：按＜F5＞键运行程序，单击各个按钮测试验证。
步骤3：按要求将文件保存至考生文件夹中。
2．在考生文件夹中有一个工程文件vbsj5．vbp(相应的窗体文件为vbsj5．frm)。
窗体Form1上有两个名称为Lab1和Lab2的标签，它们的标题分别为“密码”和“允许次数”；一个名称为Cmd1的命令按钮，其标题为“确定”；两个名称分别为Txt1和Txt2的文本框。
国家二级VB机试(上机操作)模拟试卷34(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷34(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在名称为Forml的窗体上画一个文本框，其名称为Tl，宽度和高度分别为1400、400；再画两个命令按钮，其名称分别为Cl和C2，标题分别为”显示”和”扩大”，编写适当的事件过程。
程序运行后，如果单击C1命令按钮，则在文本框中显示”等级考试”，如图2-181(a)所示；如果单击C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩大到原来的3倍，如图2-181(b)所示。
注意：要求程序中不得使用变量。
存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
正确答案：步骤1：新建一个”标准EXE”工程，如表3-102在窗体中画出控件并设置其相关属性。
步骤2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。
参考代码：Private Sub C1_Click( )T1=“等级考试”End SubPrivate Sub C2_Click( )T1．Height=2*Me．T1．HeightT1．Width=2 * T1．WidthT1．ForttSize=3*Forml．T1．ForttSizeEnd Sub步骤3：按要求将文件保存至考生文件夹中。
2．在名称为Forml的窗体上画一个命令按钮，其名称为C1，标题为”转换”；然后再画两个文本框，其名称分别为Textl和Text2，初始内容均为空白，编写适当的事件过程。
程序运行后，在Textl中输入一行英文字符串，如果单击转换按钮，则Textl文本框中的字母都变为小写，而Text2中的字母都变为大写。
例如，在Textl中输入visual basicprogramming，则单击转换按钮后，结果如图2-182所示。
国家二级VB机试(上机操作)模拟试卷24(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷24(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在名称为Forml的窗体上画一个标签，其名称为Labell，然后通过属性窗口设置窗体和标签的属性，实现如下功能：①窗体标题为”设置标签属性”；②标签的位置为：距窗体左边界500，距窗体顶边界300；③标签的标题为”等级考试”；④标签可以根据标题的内容自动调整其大小；⑤标签带有边框。
程序的运行情况如图2-134所示。
要求：不编写任何代码。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
正确答案：步骤1：新建一个”标准EXE”工程，在窗体Forml中画一个标签，并设置它的相关属性，其属性及值如表3-75所示。
步骤2：按要求将文件保存至考生文件夹中。
2．在名称为Forml的窗体上画一个命令按钮和一个水平滚动条，其名称分别为Commandl和HScrolll，编写适当的事件过程。
程序运行后，如果单击命令按钮，则按如下要求设置水平滚动条的属性：Max=窗体宽度Min=0 LargeChange=50 SmallChange=1 0 而如果移动水平滚动条的滚动框，则在窗体上显示滚动框的位置值。
程序的运行情况如图2-135所示。
要求：不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：步骤1：新建一个”标准EXE”工程，在窗体Forml中画一个命令按钮和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表3-76所示。
步骤2：打开代码编辑窗口，分别编写命令按钮的Click事件过程和水平滚动条的Change事件过程。
参考代码：Private Sub Commandl_Click( )HScrolll．Max=Forml．WidthHScrolll．Min=0HScrolll．LargeChange=50 HScrolll．SmallChange=1 0End SubPriVate Sub HScrolll_Change( )Print Me．HScrolll．ValueEnd Sub步骤3：按要求将文件保存至考生文件夹中。
国家二级VB机试(上机操作)模拟试卷353(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷353(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上画两个名称分别为Framel、Frame2的框架，标题分别为“字号”、“修饰”；在Framel中画两个单选按钮，名称分别为Optionl、Option2，标题分别为“10号字”、“20号字”，且标题显示在单选按钮的左边；在Frame2中画一个名称为Checkl的复选框，标题为“下划线”。
运行后的窗体如图3．174所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Form1的窗体上从上到下画两个文本框，名称分别为Text1、Text2；再画一个命令按钮，名称为Command1，标题为“选中字符数是”。
程序运行时，在Text1中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则在Text2中显示选中的字符个数(如图3．175所示)。
请编写按钮的Click事件过程。
要求：不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
(2)步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性，步骤2：打开代码编辑窗口，编写以下事件过程。
参考代码：Private Sub Command1 Click( )Text2．Text=Form1．Text1．SelLengthEnd Sub 步骤3：按要求将文件保存至考生文件夹中。
解析：(1)本题只需按题目在窗体中画出控件，并设置相关属性即可。
(2)要在Text2中显示Text1中选中的字符个数，需编写语句将Text1的SelLength属性返回值赋值给Text2。
国家二级VB机试(上机操作)模拟试卷366(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷366(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画1个名称为Framel、标题为“项目”的框架；框架内有1个名称为opt1的控件数组，该控件数组含有三个标题分别为“篮球”“排球”“足球”的单选按钮，且标题为“排球”的单选按钮为选中状态。
运行后的窗体如图3-32所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1、标题为“字体练习”的窗体上，画1个名称为Label1的标签，该标签的标题为“程序设计语言”，字体为“宋体”，16号字，且该标签的大小可根据标题内容自动调整。
再画2个名称分别为Command1和Command2，标题分别为“粗体变换”和“斜体变换”的命令按钮。
效果如图3-33所示。
要求：编写适当的事件过程，使得单击“粗体变换”按钮时，Label1的字体在“粗体”和“非粗体”两种状态之间切换；单击“斜体变换”按钮，Label1的字体在“斜体”和“非斜体”两种状态之间切换。
注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个框架，然后在框架内加入含有3个单选按钮的控件数组。
按表4—20设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
(2)步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个标签和两个命令按钮。
按表4-21设置其相关属性。
步骤2：在打开的代码编辑窗口中，编写命令按钮的Click 事件代码。
参考代码：PriVate Sub Command1_Click( )Label1．FontBold=IIf(Label1．FontBold，False，True)End SubPriVate Sub Command2_Click( )Label1．FontItalic=IIf(Label1．ForltItalic，False，True)End Sub 步骤3：按要求将文件保存至考生文件夹中。
国家二级VB机试(上机操作)模拟试卷206(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷206(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在标题为“列表框”、名称为Forml的窗体上画一个名称为List1列表框，通过属性窗口输入四个列表项：“数学”、“语文”、“历史”、“地理”，列表项采用“复选框形式”，如图2．203所示。
列表框的宽为1100，高不限。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上建立一个名称为“menu1”、标题为“文件”的弹出式菜单，含有三个菜单项，它们的标题分别为“打开”、“关闭”、“保存”，名称分别为“m1”、“m2”、“m3”。
冉画一个命令按钮，名称为“Command1”、标题为“弹出菜单”。
要求：编写命令按钮的Click事件过程，使程序运行时，单击“弹出菜单”按钮即可弹出“文件”菜单(如图2-204所示)。
注意：程序中不得使用变量，事什过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表3-107在窗体中画出控件并设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表3-108中的设置建立菜单项。
步骤2：在窗体上画一个名为Commandl，标题为“弹出菜单”的命令按钮，打开代码编辑窗口，编写“弹出菜单”按钮的单击事件过程。
参考代码：Private Sub Commandl—Click( ) Forml，PopupMenu menul End Sub 步骤3：按要求将文件保存至学生文件夹中。
全国计算机二级考试《VB》操作试题及答案
全国计算机二级考试《VB》操作试题及答案全国计算机二级考试《VB》操作试题及答案一、基本操作题(1)请在名称为Forml的窗体上添加一个名称为H1的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，初始内容均为空;再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把Textl中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sit2.vbp，窗体文件名为sjt2.frm。
二、简单应用题(1)在考生文件夹F有一个工程文件sjt3.vbp，窗体上已经有一个标签Labell，请添加一个单选按钮数组，名称为Opl，含三个单选按钮，它们的Index 属性分别为0、1、2，标题依次为“飞机”、“火车”、“汽车”，再添加一个名称为Textl的文本框。
窗体文件中已经给出了Opl的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击“飞机”或“火车”单选按钮时，在Textl中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在Text1中显示“我开汽车去”，如图所示。
VB上机考试综合应用题选讲
VB上机考试综合应用题选讲一、素数判断与计算、输出题，并把计算与存盘部分补充完整！Private Function isprime(a As Integer) As BooleanDim flag As Booleanflag = Trueb% = 2Do While b% <= Int(a / 2) And flagIf Int(a / b%) = a / b% Thenflag = FalseElseb% = b% + 1End IfLoopisprime = flagEnd Function+++++++以下黑体字部分是程序中没有的，需要自己被充+++++++ Private Sub C1_Click()Dim i As Integeri = 18000Doi = i - 1Loop Until isprime(i)Text1.Text = iEnd SubPrivate Sub C2_Click()Open "out5.txt" For Output As #1Print #1, Text1.TextClose #1End Sub二、判断口令题，关键是一些循环语句及选择结构的综合应用：Private Sub C1_Click()If Text1.Text = "123456" ThenText1.Text = "口令正确"Text1.PasswordChar = ""ElseText2.Text = Text2.Text - 1If Text2.Text > 0 ThenMsgBox "第" & (3 - Text2.Text) & "次口令错误，请重新输入"ElseMsgBox "3次输入错误，请退出"Text1.Enabled = FalseEnd IfEnd IfEnd Sub三、图片转换题:Private Sub Timer1_Timer()a = a + 1If a > 6 Thena = 1End IfSelect Case aCase 1P1.Picture = LoadPicture("黄灯.ico")Case 2, 3P1.Picture = LoadPicture("红灯.ico")Case 4, 5, 6P1.Picture = LoadPicture("绿灯.ico")If b Then Timer2.Enabled = bEnd SelectEnd SubPrivate Sub Timer2_Timer()If (a < 4) And (P2.Left > P1.Left And P2.Left < P1.Left + P1.Width) Or P2.Left <= 100 Then Timer2.Enabled = FalseElseP2.Move P2.Left - 10, P2.Top, P2.Width, P2.HeightEnd IfEnd Sub四、数据计算与行列式综合应用题：Option Base 1Dim Arr1(20) As IntegerDim Arr2(20) As IntegerDim Sum As IntegerSub ReadData1()Open App.Path & "\" & "datain1.txt" For Input As #1 For i = 1 To 20Input #1, Arr1(i)Next iClose #1End SubSub ReadData2()Open App.Path & "\" & "datain2.txt" For Input As #1 For i = 1 To 20Input #1, Arr2(i)Next iClose #1End SubOpen App.Path & "\" & Filename For Output As #1 Print #1, NumClose #1End SubPrivate Sub C1_Click()ReadData1ReadData2End SubPrivate Sub C2_Click()Dim arr3(20) As IntegerSum = 0For i = 1 To 20arr3(i) = Arr1(i) \ Arr2(i)Sum = Sum + arr3(i)NextPrint SumEnd SubPrivate Sub C3_Click()WriteData "dataout.txt", SumEnd Sub五、倒计数器Private Sub C1_Click(Index As Integer)Select Case IndexTimer1.Enabled = FalseCase 0Timer1.Enabled = TrueEnd SelectEnd SubPrivate Sub Timer1_Timer()Text1.Text = Text1.Text + 1End Sub六、文本框的使用Private Sub C1_Click()Open App.Path & "\out7.txt" For Output As #2 Print #2, Text1.TextClose #2End SubPrivate Sub Form_Load()Open App.Path & "\in7.txt" For Input As #1 Do While Not EOF(1)Input #1, mystringText1.Text = Text1.Text + mystringClose #1Text1.Text = "计算机等级考试" + Text1.Text End Sub七、求某类数的和等：Private Function fun(a As Integer) As Integer s% = 0For i% = 500 To 600If Int(i% / a) = i% / a Thens% = s% + i%End IfNextfun = s%End FunctionPrivate Sub C1_Click()If Op1.V alue ThenText1 = fun(7)End IfIf Op2.V alue Then Text1 = fun(3)End SubOpen "out7.txt" For Output As #1Print #1, Op1.V alue, Op2.V alue, Text1.TextClose #1End Sub八、文本框的使用Private Sub C1_Click()Open App.Path & "\in7.txt" For Input As #1Do While Not EOF(1)Input #1, mystringText1.Text = mystringLoopClose #1End SubPrivate Sub C2_Click()Text1.Text = UCase(Text1.Text)End SubPrivate Sub C3_Click()Open App.Path & "\out7.txt" For Output As #2 Print #2, Text1.TextClose #2End Sub九、文本框应用第二例：第一部分：窗体程序部分：Dim a(100) As IntegerPrivate Sub Cmd1_Click()Open App.Path & "\in.txt" For Input As #1Text1.Text = ""For i = 1 To 100Input #1, a(i)Text1.Text = Text1.Text & a(i) & Space(1) Next iClose #1End SubPrivate Sub Cmd2_Click()Text1.Text = ""s = 0For i = 1 To 100If a(i) Mod 2 <> 0 ThenText1.Text = Text1.Text & a(i) & Space(1)End IfNextputdata sEnd Sub第二部分：模块程序部分：（如没有标准模块，需要自行添加一个标准模块）Sub putdata(ByV al a As Integer)Dim sFile As StringsFile = "\out.txt"Open App.Path & sFile For Output As #1Print #1, a;Close #1End Sub十、分苹果题：Option ExplicitPrivate Sub Command1_Click(Index As Integer)If Index = 0 ThenIf V al(Label3(0).Caption) > 1 ThenCommand1(0).Enabled = TrueLabel3(0).Caption = Label3(0).Caption - 1ElseIf V al(Label3(0).Caption) = 1 ThenEnd IfCommand1(0).Enabled = FalseEnd IfElseIf V al(Label3(1).Caption) > 1 ThenCommand1(1).Enabled = TrueLabel3(1).Caption = Label3(1).Caption - 1 ElseIf V al(Label3(1).Caption) = 1 ThenLabel3(1).Caption = Label3(1).Caption - 1 End IfCommand1(1).Enabled = FalseEnd IfEnd IfIf V al(Label3(0).Caption) > V al(Label3(1).Caption) Then picSmile(0).Visible = TruepicCry(0).V isible = FalsepicCry(1).V isible = TruepicSmile(1).Visible = FalseElseIf V al(Label3(0).Caption) < V al(Label3(1).Caption) Then picCry(0).V isible = TruepicSmile(0).Visible = FalsepicSmile(1).Visible = TruepicCry(1).V isible = FalseElsepicSmile(0).Visible = TruepicCry(0).V isible = FalsepicSmile(1).Visible = TruepicCry(1).V isible = FalseEnd IfEnd IfEnd SubPrivate Sub Command2_Click(Index As Integer)If Index = 0 ThenLabel3(0).Caption = Label3(0).Caption + 1Command1(0).Enabled = TrueElse:Label3(1).Caption = Label3(1).Caption + 1Command1(1).Enabled = TrueEnd IfIf V al(Label3(0).Caption) > V al(Label3(1).Caption) Then picSmile(0).Visible = TruepicCry(0).V isible = FalsepicCry(1).V isible = TruepicSmile(1).Visible = FalseElseIf V al(Label3(0).Caption) < V al(Label3(1).Caption) Then picCry(0).V isible = TruepicSmile(0).Visible = FalsepicSmile(1).Visible = TruepicCry(1).V isible = FalseElsepicSmile(0).Visible = TruepicCry(0).V isible = FalsepicSmile(1).Visible = TruepicCry(1).V isible = FalseEnd IfEnd IfEnd SubPrivate Sub Form_Load()picSmile(0).Visible = TruepicSmile(1).Visible = TrueCommand1(0).Enabled = FalseCommand1(1).Enabled = FalseEnd Sub十一、简单综合题：Private Sub COMEXIT_Click() EndEnd SubPrivate Sub COMSTART_Click()Dim g As Single, N As Integer, S As Single myfile1 = App.Path & "\" & "grade.DA T" myfile2 = App.Path & "\" & "average.dat" Open myfile1 For Input As #1Open myfile2 For Output As #2Do While Not EOF(1)Input #1, gN = N + 1S = S + gLoopClose #1S = S / NWrite #2, SCloseCOMSTART.Caption = "完成" COMSTART.Enabled = FalseEnd Sub十二、文本加密题：Private Sub C1_Click()Dim strinfo As StringOpen "in7.txt" For Input As 1Input #1, strinfoClose #1Text1.Text = strinfoEnd SubPrivate Sub C2_Click()Dim strchange As StringDim i As IntegerFor i = 1 To Len(Text1.Text)strchange = strchange + Chr(Asc(Mid(Text1.Text, i, 1)) + 2) NextText1.Text = strchangeEnd SubPrivate Sub C3_Click()Open "out7.txt" For Output As 1Print #1, Text1.TextClose #1End Sub十三、数组综合应用题：本程序解答分二部分,一部分在窗体模块:Option ExplicitDim a(1 To 100)Dim i As IntegerDim n As IntegerDim f As IntegerDim s As LongPrivate Sub Cmd1_Click()Open App.Path & "\in.txt" For Input As #1For i = 1 To 100Input #1, na(i) = nText1.Text = Text1.Text & a(i) & " "Next iClose #1End SubPrivate Sub Cmd2_Click()For i = 1 To 100If a(i) <= 700 Then s = s + a(i)Next iCall putdata("out.txt", s)Text1.Text = sEnd Sub另一部分在标准模块:Option ExplicitSub putdata(t_FileName As String, t_Str As V ariant) Dim sFile As StringsFile = "\" & t_FileNameOpen App.Path & sFile For Output As #1Print #1, t_StrClose #1End Sub十四、素数应用又一例：本程序分两部分,第一部分在窗体模块: Private Sub Cmd1_Click()Dim i As IntegerDim temp As Longtemp = 0If Opt2.V alue ThenFor i = 200 To 400If isprime(i) Thentemp = temp + iEnd IfNextElseFor i = 100 To 200If isprime(i) Thentemp = temp + iEnd IfNextEnd IfText1.Text = tempEnd SubPrivate Sub Cmd2_Click()putdata "\out.txt", Text1.TextEnd Sub第二部分在标准模块:Option ExplicitSub putdata(t_FileName As String, T_Str As V ariant) Dim sFile As StringsFile = "\" & t_FileNameOpen App.Path & sFile For Output As #1Print #1, T_StrClose #1End SubFunction isprime(t_I As Integer) As Boolean Dim J As Integerisprime = FalseFor J = 2 To t_I / 2If t_I Mod J = 0 Then Exit ForNext JIf J > t_I / 2 Then isprime = TrueEnd Function。
国家二级VB机试(上机操作)模拟试卷159(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷159(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)存名称为Form1，标题为“练习”的窗体上添加一个名称为Frame1、标题为“效果”的框架。
框架内禽有三个复选框，其名称分别为Chk1、Chk2和Chk3，标题分别为“倾斜”、“加粗”和“下划线”。
程序运行后的窗体如图所示。
要求：存盘时必须存放在考生文件夹下，工棵文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加-个名称为Label1的标签，使其初始内容为空，且能根据其标题内容自动调整标签的人小；再添加两个命令按钮，标题分别为“日期”和“时间”，名称分别为Command1、Command2。
请编写两个命令按钮的Click事件过程，使得单击“日期”按钮时，标签内显示系统当前日期；单击“时间”按钮时，标签内显示系统当前时间。
如图所示。
要求：程序中不得使用变量．每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件，程序中用到的控件及属性见表3．52。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)命令按钮的Name和Caption属件设置命令按钮名称和标题，Date( )函数用于返回系统日期，Time( )函数用丁返回系统时间。
【操作步骤】步骤1：建立界面，添加相应控件并设置控件的属性。
程序中用到的控件及属性见表3．53。
步骤2：代开代码编辑窗口，在指定位置编写如下代码。
参考答案Private Sub Commandl Click( ) Label1＝Date’用于返回系统当前日期End Sub Private Sub Command2 Click( ) Label1＝Time’用于返回系统当前时间End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
国家二级VB机试(上机操作)模拟试卷222(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷222(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应刚程序(包括界面和代码)。
(1)在名称为Forml、标题为“图片”的窗体上画一个名称为Imagel的图像框，其高为2500、宽为2000。
请通过属性窗口设置适当属性，装入考生只录下的图片文件picl．jpg，并使图片适应图像框的大小(如图2．135所示)。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Forml的窗体上画一个名称为Label1、标题为“口令”的标签；画一个名称为Textl的文本框；再画三个命令按钮，名称分别为Commandl、Command2、Command3，标题分别为“显示口令”、“隐藏口令”、“重新输入”。
程序运行时，在‘Text1中输入若干字符，单击“隐藏口令”按钮，则只显示同样数量的“*”，如图2．136(b)所示；单击“显示口令”按钮，则显示输入的字符，如图2．136(a)所示，单出“重新输入”按钮，则清除Textl中的内容，并把光标定位到Textl中。
要求：请画出所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在“显示口令”按钮、“隐藏口令”按钮的事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sit2．fhn。
正确答案：第l小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表3．71在窗体中必出控件并设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表3．72在窗体中画出控件并设置其相关属性。
步骤2：在代码编辑窗口，分别编写三个按钮的单击事件过程。
参考代码：Private Sub Commandl C1 ick( ) Textl．PasswordChar=””End Sub Prirate Sub Command2 C1ick( ) Textl．PasswordChar=“*”End Slab Private Sub Command3一Click( ) Textl=“”Text1．SetFocuS End Sub 步骤3：按要求将文件保存至考生文件夹中。
国家二级VB机试(上机操作)模拟试卷498(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷498(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为Comb01的组合框，其宽度为1200，其类型如图3－188所示(即简单组合框)。
要求如下：①请按图中所示，通过属性窗口输入“北京”、“上海”、“广州”、“深圳”。
②设置适当的属性，使得运行时，窗体的最大化按钮和最小化按钮消失。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为Command1、Command2，标题分别为“左”、“右”，如图3－189。
要求：编写适当的事件过程，使得程序运行时，单击“左”按钮，则焦点位于Text1上；单击“右”按钮，则焦点位于Text2上。
注意：程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：双击“左”命令按钮，打开代码编辑窗口，在按钮的Click事件过程中输入代码。
步骤3：从代码编辑窗口的“对象”下拉列表中选择Command2，从“事件”下拉列表选择Click，编写以下事件过程。
参考代码：Private Sub Command1_Click( ) Text1．SetFOCUS End Sub Private Sub Command2_Click( ) Text2．SetFOCUS End Sub 步骤4：按要求将文件保存至考生文件夹中。
国家二级VB机试(上机操作)模拟试卷396(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷396(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个标签，其名称为Labe11，标题为“等级考试”，BorderStyle属性为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1，编写适当的事件过程。
程序运行后，其界面如图3—127(a)所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题，如图3—127(b)所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个文本框，其名称为Text1，初始内容为空白；然后再画三个单选按钮，其名称分别为Op1、Op2和Op3，标题分别为北京、西安和杭州，编写适当的事件过程。
程序运行后，如果选择单选按钮Op1，则在文本框中显示“颐和园”；如果选择单选按钮Op2，则在文本框中显示“兵马俑”；如果选择单选按钮Op3，则在文本框中显示“西湖”。
程序的运行情况如图3—128所示。
要求程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建一个“标准EXE”工程，如表4—75在窗体中画出控件并设置其相关属性。
步骤2：在代码编辑窗口编写以下事件过程。
参考代码：Private Sub Command1_Click( )Command1．Caption＝Labe11Labe11．ViSible＝FalSeEnd Sub 步骤3：按要求将文件保存至考生文件夹中。
(2)【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1上画一个文本框和三个单选按钮，其属性及值如表4—76所示。
国家二级VB机试(上机操作)模拟试卷221(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷221(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画一个名称为Picturel的图片框(PictureBox)，高、宽均为1000。
在图片框内再画一个有边框的名称为Imagel的图像框(Image)。
并通过属性窗口把考生目录下的图标文件POINTl1(香蕉图标)装入图像框Imagel中，如图2-116所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Forml的窗体上面一个名称为Commandl、标题为“保存义什”的命令按钮，再画一个名称为CommonDialogl 的通用对话框。
要求：①通过属性窗U设置适当的属性，使得运行时对话框的标题为“保存文件”，且默认文件名为out2；②运行时单击“保存文件”按钮，则以“保存对话框”方式打开该通用对话框。
如图2．117所示。
注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。
保存时必须存放在考生文件夹下，工程文件名为sjl2．vbp，窗体文件名为sjt2.jfrm。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表3．64在窗体中画出控件并设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，选择【工程】→【部件】命令，在弹出的“部件”对话框的列表中选中“MicroSoft Con~non Dialog Control6．0”项目，单击“确定”按钮。
步骤2：在窗体Form1上面一个通用对话框和一个命令按钮，其相关属性设置如表3．65所示。
步骤3：打开的代码编辑窗口中，编写命令按钮的单击事件过程。
PriVate Sub Commandl一Click( ) CommonDialogl．Action=2 或CommonDialogl．ShowSave End Sub 步骤4：按要求将文件保存至考生文件夹中。
国家二级VB机试(上机操作)模拟试卷106(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷106(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml，标题为“考试”的窗体上画一个名称为Combol、初始内容为空的下拉式组合框。
下拉列表中有“隶书”、“宋体”和“楷体”三个项目。
运行后的窗体如图3一188所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sitl．vbp，窗体文件名为sitl．frm。
(2)在名称为Forml的窗体上画两个文本框，其名称分别为Text1、Text2，初始内容都为空，显示为三号字，且Text1的初始状态为不可用；再画一个名称为Command1、标题为“开始”的命令按钮，如图3—189所示。
要求：编写适当的事件过程，使得单击“开始”按钮后，Text1文本框变为可用状态，且在Text1文本框中输入字母串时，Text2文本框中用大写字母形式显示Text1文本框中的内容。
程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sit2．frm。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：打开代码编辑窗口，编写Textl的Change事件过程和命令按钮的单击事件过程。
参考代码：Private Sub Commandl Click( )Textl．Enabled=TrueEnd SubPriVate Sub Textl Change( )Text2．Text=UCase(Text1．Text)End Sub步骤3：按要求将文件保存至考生文件夹中。
国家二级VB机试(上机操作)模拟试卷83(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷83(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计’Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml、标题为“框架”的窗体上画一个名称为Framel，且没有标题的框架。
框架内含有两个单选按钮，名称分别为Opt1和Opt2、标题分别为“字体”、“大小”，如图3—163所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sitl．frm。
(2)考生文件夹下的工程文件sjt2．vbp 中有一个由直线Linel、L,ine2和L,ine3组成的三角形，直线Linel、Line2和Line3的坐标值见表3—4：要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。
再画两个命令按钮，名称分别是Cmdl、Cmd2，标题分别为“显示高”、“隐藏高”，如图3—164所示。
请编写适当的事件过程，使得在运行时，单击“显示高”按钮，则显示三角形的高；单击“隐藏高”按钮，则隐藏三角形的高。
注意：要求程序中不得使用变量，每个事件过程只能写一条语句。
不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：打开本题工程文件sjt2．vbp，在窗体中按要求画出控件并设置属性。
步骤2：打开代码编辑窗口，编写命令按钮的Click事件过程。
参考代码：Prirate Sub Cmdl C1ick( ) Line4．Visible=TrueEnd SubPrirate Sub Cmd2 Ctick( ) Line4．ViSible=FalSeEnd Sub步骤3：按要求将文件保存至考生文件夹中。
国家二级VB机试(上机操作)模拟试卷391(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷391(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“列表框练习”的窗体上画一个名称为List1的列表框，表项内容依次输入xxx、ddd、mmm和aaa，且以宋体14号字显示表项内容，如图3—102(a)所示。
最后设置相应属性，使运行后列表框中的表项按字母升序方式排列，如图3—102(b)所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，工程文件名为sjt1．vbp。
(2)在名称为Form1的窗体上，画一个名称为Labe11的标签，其标题为“计算机等级考试”，字体为宋体，字号为12号，且能根据标题内容自动调整标签的大小。
再画两个名称分别为Command1、Command2，标题分别为“缩小”和“还原”的命令按钮(如图3—103所示)。
要求：编写适当的事件过程，使得单击“缩小”按钮，Labe11中所显示的标题内容自动减小两个字号；单击”还原”按钮，Labe11所显示的标题内容的大小自动恢复到12号。
注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2．frm，工程文件名为sjt2．vbp。
要求程序中不得使用变量，每个事件过程中只能写一条语句。
正确答案：(1)【操作步骤】步骤1：新建一个“标准EXE”工程，如表4—62在窗体中画出控件并设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
(2)【操作步骤】步骤1：新建一个“标准EXE”工程，如表4—63在窗体中画出控件并设置其相关属性。
步骤2：打开代码编辑窗口，编写两个命令按钮的Click事件过程。
参考代码：Private Sub Command1_Click( )Labe11．Fontsize＝Labe11．FontSize－2End SubPrivate Sub Command2_C1ick( )Labe11．FontSize＝12End Sub 步骤3：按要求将文件保存至考生文件夹中。
国家二级VB机试(上机操作)模拟试卷195(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷195(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“列表框练习”的窗体上画一个名称为List1的列表框，表项内容依次输入xxx、ddd、mmm和aaa，且以宋体14号字显示表项内容，如图2．93(a)所示。
最后设置相应属性，使运行后列表框中的表项按宁母升序方式排列，如图2．93(b)所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，上程文件名为sjt1．vbp。
(2)在名称为Form1的窗体上，画一个名称为Labell的标签，其标题为“计算机等级考试”，字体为宋体，字号为12号，且能根据标题内容自动调整标签的大小。
再画两个名称分别为Command1、Command2，标题分别为“缩小”和“还原”的命令按钮(如图2．94所示)。
要求：编写适当的事件过程，使得单击“缩小”按钮，Labell中所显示的标题内容自动减小两个字号：单击“还原”按钮，Labell所显示的标题内容的大小自动恢复到12号。
注意：存盘时，将文件保存至考生文件夹下，窗体文仲名为sjt2．frm，工程文件名为sjt2．vbp。
要求程序中不得使用变量，每个事件过程中只能写一条语句。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程。
如表3-52存窗体中画出控件并设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表3．53在窗体中画出控件并设置其相关属性。
步骤2：打开代码编辑窗口，编写两个命令按钮的Click事什过程。
参考代码：Private Sub Commandl—Click( ) Labell．FontSize=Labell．FontSiZe一2 End Sub Private Sub Command2一Click( ) Labell．FontSiZe=12 End Sub 步骤3：按要求将文件保存至考生文件夹中。
国家二级VB机试(上机操作)模拟试卷253(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷253(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画1个命令按钮，其名称为C1，标题为“等级考试”；再画1个文本框，名称为T1，如图2-107(a)所示。
请编写适当的事件过程，使程序运行后，一旦文本框中的信息有任何变化或输入任何信息，则命令按钮消失，并使命令按钮的标题在文本框中华显示出来，如图2．107(b)所示。
注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjtl．frm，上程文件名为sjtl．vbp。
(2)在名称为Forml、标题为“菜单演示”的窗体上画一个名称为Label1、标题为空的标签：再建立一个菜单，各菜单项的属性设置见下表。
窗体外观如图2．108(a)所示。
请编写适当的程序，使得选中“输出窗体标题”菜单项时，就在标签中显示窗体标题；选中“输出当前时间”菜单项时，在标签中显示当前系统时问(如图2．108(b)所示)。
要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2．frm，工程文件名为sjt2．vbp。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个文本框和一个命令按钮，设置相关属性，其属性及值如表3．60所示。
步骤2：打开代码编辑窗口，编写文本框的Change 事件过程。
参考代码：Private Sub T1一Change( ) C1．ViSible=False T1．Text=C1．Caption End Sub 步骤3：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，按表3—61在窗体中画出控件并设置其相关属性步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，按表3．62中的设置建立菜单项。
国家二级VB机试(上机操作)模拟试卷161(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷161(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加一个名称为Shape1的圆角矩形，高、宽分别为1000、2000。
请利用属性窗口设置适当的属性以满足下列要求：①圆角矩形中填满绿色(颜色值为：＆H0000FF00＆或＆HFFOO＆)。
②窗体的标题为“圆角矩形”，字体为“仿宋_CB2312”。
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)考生文件夹下有一个工程文件sjt2．vbp。
窗体中含有除计时器外的其他控件，还有一个过程sub1，其功能是按照Text1中的通话时间计算通话费，并将其显示在Text2中。
程序运行时，单击“通话开始”按钮，则在Text1中累加通话时间(每隔1秒，文本框中的数加1)，单击“通话结束”按钮，则停止通话时间的累加；单击“计算通话费”按钮，则调用过程sub1。
要求：①在窗体上画一个计时器，如图所示，并通过属性窗口设置适当属性。
②编写三个按钮的Click事件过程。
③编写计时器的事件过程。
注意：要求程序中不得使用变最，每个事件过程中只能写一条语句，“计算通话费”按钮的事件过程中只允许凋用过程sub1。
不得修改已经存在的程序和控件属性，最后把文件按原文件名存盘。
正确答案：(1)【操作步骤】步骤1：建立界而，并设置控件的属性。
程序中用到的控件及属性见表3．58。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】步骤1：建立界面，设置计时器的Interval 属性为1000。
Enabled属性设置为False。
步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
参考答案Private Sub Commandl_Click( ) Timer1．Enabled＝True’通话开始，Timer生效End Sub Private Sub Command2_Click( ) Timer1．Enabled＝False’通话结束．Timer失效End Sub Private Sub Command3_Click( ) Call sub1’单击”计算通话费”按钮。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
以下数列：1，1，2，3，5，8，13，21，…，的规律是从第3个数开始，每个数都是其前面两个数之和。
在考生文件夹下有一个工程文件sjt5.vbp。
窗体中已经给出了所有控件，如图所示。
请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击"计算"按钮，则计算出上述数列的第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值。
(提示：因计算结果较大，应使用长整型变量。
)注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击"计算"按钮获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。
最后把修改后的文件按原文件名存盘。
【考点分析】本题考点有：文本框的Text属性，单选按钮的Name、Caption和Value属性，单选按钮控件数组，For循环语句，If条件判断语句以及内部函数V al()。
【解题思路】单选按钮数组常用于提供唯一选择，V alue属性值决定每个单选按钮的选中状态：False为未选中，True为选中，Caption属性用于设置单选按钮的标题。
本题在For循环语句(循环变量k的初值为0，终值应为3)逐一检查每个单选按钮是否被选中，用变量n记录选中单选按钮的索引号。
然后取消对当前选中单选按钮的选择，使单选按钮数组中的下一个按钮被选中。
如果当前已经选中最后一个单选按钮，则将n赋值为0，重新从单选按钮数组的第1个元素开始。
【操作步骤】步骤1：打开本题工程文件。
步骤2：编写程序代码。
参考答案Private Sub Command1 Click()Dim a() As LongDim i As IntegerDim n As IntegerFor i ＝0 To Op1.Count －1If Op1(i)．Value ＝True Thenn ＝Val(Op1(i)．Caption)Exit ForEnd IfNextReDim a(n)a(1) ＝1a(2) ＝1For i ＝3 To na(i) ＝a(i －1) ＋a(i －2)NextText1.Text ＝a(n)End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】在定义数组a()的时候，要注意定义为长整型Long，可以防止溢出；单选按钮数组的Index属性分别为0,1,2，在编写循环语句的时候要注意循环变量Op1.Count－1。
【举一反三】可以通过27套第二大题第二小题来进行同类知识点的练在考生文件夹中有一个工程文件sjt5.vbp。
该程序的功能是从in5.txt文件中读入40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数(判断素数的函数已给出)。
最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所示)。
程序不完整，请在指定的位置把程序补充完整。
注意：不得修改原有程序和控件的属性。
在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。
最后把修改后的文件按原文件名存盘。
【考点分析】本题考点有：标签的Caption属性，Int()函数，Sqr(x)函数，Function()过程，文件操作(Open、Close、Input)，App.Path相对路径，数组以及变量的定义。
【解题思路】除了1和它本身以外，不再有别的约数，这种整数叫做素数。
判别某数m是否是素数的经典算法是：对于m，依次判别能否被I(I＝2,3,4，…，m－1)整除，只要有一个能整除，m就不是素数，否则m是素数。
本题须统计数据中素数的个数和所有素数中的最小素数。
自定义函数过程prime用来判断是否为素数，返回True则为素数，反之则为非素数，通过对于返回值的判断确定素数，并进行个数统计及查找最小值。
【操作步骤】步骤1：打开本题工程文件。
步骤2：分析并编写程序代码。
程序提供代码Private arr(100) As IntegerPublic Function prime(x As Integer)k ＝Int(Sqr(x) ＋0.5)For i ＝2 To kIf x Mod i ＝0 Thenprime ＝FalseExit FunctionEnd IfNextprime ＝TrueEnd FunctionPrivate Sub Command1 Click()Open App.Path & "\in5.txt" For Input As #1For i ＝1 To 40Input #1, arr(i)NextClose #1End SubPrivate Sub Command2 Click()'＝＝＝＝＝＝＝＝＝＝考生编写程序开始＝＝＝＝＝＝＝＝＝＝'＝＝＝＝＝＝＝＝＝＝考生编写程序结束＝＝＝＝＝＝＝＝＝＝Open App.Path & "\out5.txt" For Output As #1Print #1, Label3.Caption, Label4.CaptionClose #1End Sub程序结束参考答案Dim a As IntegerDim b As Integera ＝0b ＝arr(1)For i ＝1 To 40If prime(arr(i)) Then a ＝ a ＋1Label3.Caption ＝aNextFor i ＝1 To 40If prime(arr(i)) And arr(i) <＝ b Then b ＝arr(i)Label4.Caption ＝ bNext步骤3：按照题目要求调试并运行程序，如图3.17所示。
图3.17步骤4：关闭程序后，按题目要求存盘。
【易错提示】prime()过程的函数返回值确定，调用过程中，变量为数组元素。
【举一反三】可以通过第37套第三大题来进行同类知识点练习。
在考生文件夹下有一个工程文件sjt5.vbp，其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3，以及部分程序代码。
请完成以下工作：①在属性窗口中修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用。
窗体如图所示；②建立下拉式菜单，如下表所示:标题名称编辑Edit剪切Cut复制Copy粘贴Faste③窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
以便实现如下功能：当光标所在的文件框中无内容时，"剪切"、"复制"不可用，否则可以把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则"粘贴"不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。
注意：不能修改程序中的其他部分。
各菜单项的标题名称必须正确。
最后将修改后的文件按原文件名存盘。
【考点分析】本题考点有：文本框的Visible和Text属性，菜单编辑器的使用(名称、内缩符号)，菜单项的Enabled属性，If选择判断语句，For循环语句以及焦点触发的GotFocus事件过程。
【解题思路】本题中隐藏的文本框Text3的功能相当于剪贴板。
在文本框(Text1或Text2)获得焦点触发的GotFocus事件过程中，用窗体变量which记录下该文本框序号(1或2)。
通过"编辑"菜单的Click事件过程中首先根据which的值不同，来判断相应文本框(Text1或Text2)的内容是否为空，若内容为空则设置"剪切"和"复制"菜单项不可用，否则设置"剪切"和"复制"菜单项可用；其次判断Text3文本框的内容是否为空，若内容为空则设置"粘贴"菜单项不可用，否则设置"粘贴"菜单项可用。
在"复制"命令的单击事件过程中，根据which的值不同，将相应文本框(Text1或Text2)中的内容复制到Text3文本框中。
在"剪切"命令的单击事件过程中除应执行与"复制"命令相同的语句外，还应执行清除当前文本框中内容的语句。
在"粘贴"命令的单击事件过程中，也要根据which值的不同，将Text3文本框中的内容接入相应文本框中的原内容之后。
【操作步骤】步骤1：打开本题工程文件，按照题目要求建立菜单并设置其属性，如图3.24所示。
图3.24 菜单属性如表3.13所示。
步骤2程序提供代码Dim which As IntegerPrivate Sub copy Click()If which ＝1 ThenText3.Text ＝Text1.TextElseIf which ＝2 ThenText3.Text ＝Text2.TextEnd IfEnd SubPrivate Sub cut Click()If which ＝1 ThenText3.Text ＝Text1.TextText1.Text ＝""ElseIf which ＝2 ThenText3.Text ＝Text2.TextText2.Text ＝""End IfEnd SubPrivate Sub edit Click()'If which ＝? ThenIf Text1.Text ＝"" Thencut.Enabled ＝FalseCopy.Enabled ＝FalseElsecut.Enabled ＝TrueCopy.Enabled ＝TrueEnd If'ElseIf which ＝? ThenIf Text2.Text ＝"" Thencut.Enabled ＝FalseCopy.Enabled ＝FalseElsecut.Enabled ＝TrueCopy.Enabled ＝TrueEnd IfEnd IfIf Text3.Text ＝"" ThenPaste.Enabled ＝FalseElsePaste.Enabled ＝TrueEnd IfEnd SubPrivate Sub paste Click()If which ＝1 Then' Text1.Text ＝?ElseIf which ＝2 Then' Text2.Text ＝?End IfEnd SubPrivate Sub Text1 GotFocus() '本过程的作用是：当焦点在Text1中时，which ＝1 which ＝1End SubPrivate Sub Text2 GotFocus() '本过程的作用是：当焦点在Text2中时，which ＝2 which ＝2End Sub程序结束参考答案第1个？处填入：1第2个？处填入：2第3个？处填入：Text1.Text＋Text3.Text第4个？处填入：Text2.Text＋Text3.Text步骤3：调试并运行程序，关闭程序后按题目要求存盘。