vb综合应用题
vb综合应用题
2．将考生文件夹下的窗体文件SJT.frm添加进本工程；
3．除"打印范围"菜单的Click()事件调用SJT.frm 窗体，"退出"子菜单的Click()事件执行End语句外，其它菜单和子菜单不执行任何操作；
4．调试运行并生成可执行程序：Menu1.exe。
4. 调试运行并生成可执行程序：Menu1.exe。
714. 在考生文件夹中建立一个名称为"Vbcd"的工程文件Menu1.Vbp，并在工程中建立一个名称为"Menu1"的菜单窗体文件Menu1.frm,要求：
1. 菜单格式与内容如下:
修改(M) 图像(P)
对象(L)
剪裁(T) －>图案
------- 线条
4. 调试运行并生成可执行程序：Menu1.exe。
712. 在考生文件夹中建立一个名称为"Vbcd"的工程文件Menu1.Vbp，并在工程中建立一个名称为"Menu1"的菜单窗体文件Menu1.frm,要求：
1. 菜单格式与内容如下:
绘图(D) 编辑(E)
直线
圆弧
-----------
样条曲线
退出(Ctrl+X)
退出(Ctrl+X)
其中,括号内的字符为热键；
分隔条的名称为FGT，其它菜单与子菜单的名称与标题相同，但不含热键。
Ctrl+X：设置为快捷键。
2. 将考生文件夹下的窗体文件SJT.frm添加进本工程；
3. 除"指定页"菜单的Click()事件调用SJT.frm 窗体，"退出"子菜单的Click()事件执行End语句外，其它菜单和子菜单不执行任何操作；
国家二级VB机试(综合应用题)模拟试卷3(题后含答案及解析)
国家二级VB机试（综合应用题）模拟试卷3(题后含答案及解析) 题型有：1.1．在考生文件夹下有一个工程文件sjt5．vbp，按照要求完成以下操作：在名称为Form1的窗体上添加两个命令按钮，其名称分别为C1和C2，标题分别为“读入数据”和“计算”(如图所示)。
程序运行后，如果单击“读入数据”按钮，则调用题目所提供的ReadData1和ReadData2过程读入datain1．txt和datain2．txt文件中的各20个整数，分别放人Arr1和Arr2两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中(第1个数组的第n个元素减去第2个数组的第n个冗素，其结果作为第3个数组的第n个元素。
这里的n为1、2…20)，最后计算第3个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的dataout．txt文件中。
须执行一次，最后将修改后的文件以原米的文件名存盘。
正确答案：【操作步骤】步骤1：打开本题工程文件，按照题目要求建立命令按钮控件并设置命令按钮的相应属性，程序中用到的控件及属性见表3．23。
步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
参考答案Private Sub C1 C1iCk( ) Call ReadData1’调用过程ReadData1 Call ReadData2’调用过程ReadData2 End Sub Private Sub C2 C1ick( ) Dim Arr3(1 To 20)As Integer Dim sum As Integer sum＝0 For i＝1 To 20’将Arr1中对应于Arr2中的教相减，结果存入Arr3中Arr3(i)＝Arrl(i)－Arr2(i) sum＝sum＋Arr3(i)’将Arr3中的元素累加Next i Print”sum＝”；sum’在窗体打印sum WriteData”dataout．txt”，sum End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
VB机试模拟试卷10(题后含答案及解析)
VB机试模拟试卷10(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画两个文本框，名称分别为T1和T2，初始情况下都没有内容。
请编写适当的事件过程，使得运行时，在T1中输入的任何字符，立即显示在T2中，如图10-1所示。
程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
(2)在名称为Form1的窗体上画一个文本框，名称为Text1；再画一个命令按钮，名称为C1，标题为“移动”，如图10-2所示。
请编写适当的事件过程，使得在运行时，单击“移动”按钮，则文本框水平移动到窗体的最左端如图10-3所示。
程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
正确答案：(1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。
文本框的文本内容由Text属性设置。
题目要求在T1中输入任何字符时，立即在丁2中显示，这要用到文本框的Change事件。
当用户向文本框中输入新信息，或当程序把Text属性设置为新值从而改变文本框的Text属性，将触发Change 事件。
解题步骤：第一步：建立界面并设置控件属性。
程序用到的控件及其属性见表10-1。
第二步：编写程序代码。
参考代码：Private Sub T1_Change( ) T2.Text=T1.Text End Sub 第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。
本题考查的是控件的位置改变，控件的位置由控件的Left 属性和Top属性决定，Left属性表示控件与所在窗体的左边之间的距离，Top属性表示控件与所在窗体的顶边之间的距离。
vb综合应用
在名称为Form1的窗体上有一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2，两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"保存数据"），如图3-5所示。程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件中的100个整数，放入一个数组中（数组下界为1），并在文本框Text1中显示出来；如果单击"保存数据"按钮，则把数组中的前50个数据在文本框Text1中显示出来，并存入考生文件夹中的文件"result.txt"中。（考生文件夹中有标准模块prog.bas，其中的putdata过程可以把指定个数的数组元素存入result.txt文件。）
注意：文件必须存放在考生文件夹下，窗体文件名为sjt5.frm，工程文件名为sjt5.vbp，计算结果存入out.txt文件，否则没有成绩。
题目七：在名称为Form1的窗体上有一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"，如图7-6所示。要求程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则计算数组中前30个数的平均值（结果四舍五入为整数），并把结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件"out.txt"中。（在考生的文件夹下有标准模块mode.bas，其中的putdata过程可以把结果存入指定的文件）。
国家二级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机试(综合应用题)模拟试卷21(题后含答案及解析)
国家二级VB机试（综合应用题）模拟试卷21(题后含答案及解析) 题型有：1.1．在考生目录下有一个工程文件sjt5．vbp，其窗体上有一个文本框，名称为Text1；还有两个命令按钮，名称分别为C1、C2，标题分别为“计算”、“存盘”，如图3—77所示。
并有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。
请编写适当的事件过程，使得在运行时，单击“计算”按钮，则找出大于15000的第一个素数，并显示在Text1中；单击“存盘”按钮，则把Text1中的计算结果存入考生文件夹下的out5．tXt文件中。
注意：考生不得修改isprime函数过程和控件的属性，必须把计算结果通过单击“存盘”按钮存入out5．txt文件中，否则无成绩。
正确答案：步骤1：打开本题对应工程文件sjt5．vbp。
步骤2：双击窗体Form1上的“计算”按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码。
参考代码：Private Sub C1_Click( )a％=15000Doa％=a％+1Loop Until isprime(a％)Text1．Text=a％End Sub步骤3：双击窗体Form1上的“存盘”按钮，在代码编辑窗口其Click事件过程中输入如下代码。
参考代码：Private Sub C2_Click( )Open App．Path&”＼out5．txt”For Output As#1print：#1，Text1．TextClose#1End Sub步骤4：按要求将文件保存至考生文件夹中。
解析：素数的判断准则就是看该数除了1和其本身外有无其他约数。
程序设计思路：要找出大干15000的第一个素数，可以定义一个初值为15000的整型变量a，通过调用函数isprime(a)，以其返回值是素数(即isprime(a))作为Do循环语句的继续循环条件，在循环体中加入语句：a=a+1，实现每执行循环体一次变量a的值增加1，当循环结束时将a的值在文本框中显示出来。
VB机试模拟试卷29(题后含答案及解析)
VB机试模拟试卷29(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．1. 在窗体上画1个水平滚动条(名称为HS1，最小值为0，最大值为80)和3个命令按钮(名称分别为C1、C2、C3，标题分别为“左端”、“居中”和“右端”)，然后编写适当的事件过程。
程序运行后，如果单击“左端”命令按钮，则滚动框位于滚动条最左端处；如果单击“居中”命令按钮，则滚动框位于滚动条中间；如果单击“右端”命令按钮，则滚动框位于滚动条最右端处。
程序的运行情况如图1—1所示(单击“左端”命令按钮)。
存盘时，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
2．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在窗体上画一个命令按钮，其名称为C1，标题为“清除”，编写适当的事件过程。
程序运行后，如果单击命令按钮，则清除窗体的标题，程序运行结果如图1—2所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sit2.vbp，窗体文件名为sjt2.frm。
正确答案：按以下步骤操作：①启动Visual Basic，在窗体上画1个水平滚动条和3个命令按钮。
②按F4键激活属性窗口，在属性窗口中设置3个命令按钮的属性，见表1。
③编写3个命令按钮的事件过程；Private sub C1_Click( ) HS1.Value＝HS1.Min End Sub Private sub C2_Click( ) HS1.Value=HS1.Max/2 End Sub Private sub C3_Click( ) HS1.Value=HS1.Max End Sub2．①对象主要属性设置如表2所示。
②分析：按试题要求在窗体上画一个命令按钮，并将它的属性按表2的内容进行设置。
Caption属性用来定义对象的标题，将空字符串赋值给Caption，即可清除Caption中的内容。
vb练习题及答案
vb练习题及答案VB练习题及答案一、选择题1. 在VB中，以下哪个是正确的数据类型？A. IntegerB. IntC. Both A and BD. None of the above答案：C2. VB中，哪个关键字用于声明变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. RepeatD. All of the above答案：D4. VB中，以下哪个是正确的条件语句？A. IfB. SwitchC. CaseD. A and B only答案：A5. 在VB中，以下哪个是正确的数组声明方式？A. Dim myArray(5) As IntegerB. Dim myArray As Integer(5)C. Both A and BD. None of the above答案：A二、填空题1. 在VB中，使用________关键字可以定义一个类。
答案：Class2. VB中，使用________方法可以为控件添加事件处理程序。
答案：AddHandler3. 在VB中，________方法用于结束程序的执行。
答案：End4. VB中，________属性用于获取或设置一个控件的文本。
答案：Text5. 在VB中，________方法用于打开一个文件。
答案：Open三、简答题1. 请简述VB中的事件和事件处理程序的概念。
答案：在VB中，事件是用户或程序触发的特定动作，如按钮点击或键盘敲击。
事件处理程序是一个过程，当特定的事件发生时，会被自动调用以响应该事件。
2. 描述VB中如何使用For循环。
答案：在VB中，For循环用于重复执行一段代码直到满足特定条件。
基本语法是：```For counter = start To end [Step increment]' 循环体Next [counter]```3. 解释VB中什么是继承，并给出一个简单的示例。
VB机试模拟试卷62(题后含答案及解析)
VB机试模拟试卷62(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在名称为Forml的窗体上建立一个名称为Optionl的单选按钮数组，含四个单选按钮，它们的标题依次为“Iteml”、“Item2”、“Item3”和“Item4”，其下标分别为0、1、2和3，程序运行时，“Itern3”为选中状态，如图48—1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjl．vbp，窗体文件名为sjl．frm。
(2)在窗体上建立一个二级菜单，第一级含两个菜单项，标题分别为“文件”和“帮助”，名称分别为file和help。
其中“文件”菜单含有四个子菜单，其标题依次为“打开”、“保存”、“另存为”和“关闭”，名称分别为open、save、saveas和close，窗体运行界面如图48—2所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。
正确答案：(1)建立控件数组有多种方法，考生可以选择任何一种来建立单选按钮数组。
Value属性用来设置单选按钮的状态，它的值可以是True或False，当设置为True时，该单选按钮为选中，否则没有选中。
根据题意，新建“标准EXE”工程，将4个单选按钮控件添加到窗体中，其名称都为Optionl、Index 属性分别为0、1、2、3、Caption属性分别为“Iteml”、“Item2”、“Item3”和“Item4”，其中Item3的Value值为True，设置完成，单击按钮运行程序，并按要求保存。
(2)根据题意，新建“标准EXE”工程，选择“工具”→“菜单编辑器”命令，或按“Ctrl+E”组合键，或单击窗体空白处，在弹出的快捷菜单中选择“菜单编辑器”命令，打开“菜单编辑器”对话框，在其中添加以下菜单项：单击“确定”按钮，设置完成，单击按钮运行程序，并按要求保存。
VB机试模拟试卷38(题后含答案及解析)
VB机试模拟试卷38(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．新建一个工程。
在窗体上画一个文本框，名称为Text1。
设置用户输入的字母一律转换为大写表示，焦点保持在输入文本的最右端。
程序运行结果如图5所示。
程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl.vbp，窗体丈件名为ylcl.frm。
正确答案：(1)Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。
创建窗体Form1。
(2)在工具箱中选择文本框控件，在窗体中画出文本框。
在属性窗口中设置Text属性为空。
双击文本框弹出代码编写窗口，添加如下代码：Private Sub Text1_Change( ) Textl.Text=LCase(Text1.Text) Textl.SelStart=Len(Text1.Text) End Sub (3)按F5键运行程序。
如图5所示。
(4)执行“文件”→“保存工程”命令，将工程文件命名为ylcl.vbp，窗体文件命名为ylcl.frm。
解析：(1)第1小题中要使用字符转换函数LCase，其作用是将所有大写字符转换为小写。
SelStart属性用来返回或者设置所选择的文本的起始点，可用来处理焦点。
2．新建一个工程，在窗体中创建一个标签，名字是Label1。
要求实现的功能是：单击窗体后，在标签控件中显示三号字体的字符串“为人民服务”。
程序运行结果如图6所示。
程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为ylc2.vbp，窗体文件名为ylc2.frm。
正确答案：(1) Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。
创建窗体Form1。
(2)在工具箱中选择标签控件，在窗体中画出一个标签。
在其属性窗口中，将Visible属性改为False，Caption属性设置为“为人民服务”，双击Font属性，将字体大小设置为三号字。
VB上机综合应用题型整理
1、数列求通项、多项式求和问题。
数列<->数组
2、求符合某种条件的数(素数*，回文数，勾股数，水仙花数等）
1)从已知数组或某区间找出满足要求的数存入动态数组；（会写一个函数过程判断数知否满足要求）
2)对数组处理（例如求最大值、最小值、求和等）
3、数组的排序
n = UBound(a)
For i = 1 To n - 1 'n个数排序共进行n-1趟
'处理第i趟排序
' 从 a(i) a(i+1) ... a(n)中选择最小元素，放置到 a(i) 位置 '即用 a(i)与a(j)比较，其中j=i+1,...,n
For j = i + 1 To n
If a(j) > a(i) Then '由小到大排序
t = a(i)
a(i) = a(j)
a(j) = t
End If Next j
Next i
4、文件操作
1)EOF(文件号)：用于判断是否到达文件尾。
到达了，返回True；没有到达返回False。
Do While Not EOF(1)
......
Loop
2)顺序文件
a.将数据读入一维数组
Open 文件名 For Input As #1
For i=1 to n
Input #1, a(i)
Next i
Close #1
b.将数据写入(输出)至文件中 Open 文件名 For Output As #1 Print #1, 变量 Close
3)随机文件
记录由字段构成。
（记录型变量）。
VB选考冒泡排序综合应用题
VB选考冒泡排序综合应用题姓名班级第一题：2017年11月选考真题小李基于冒泡排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1,在文本框Text2中显示剔除重复数据后的升序排序结果。
程序运行界面如下图所示。
实现上述功能的VB程序如下，请完成划线处填空。
Const n = 10Dim a(1 To n) As IntegerPrivate Sub Command1_Click()Dim i As Integer, j As Integer, t As IntegerDim bottom As Integer'获取排序前数据依次存储在数组a中，并在文本框Text1中显示。
代码略bottom = ni = 1Do While i <= bottom - 1For j = bottom To i + 1 Step -1If ① Thent = a(j): a(j) = a(j - 1): a(j - 1) = tElseIf a(j) = a(j - 1) Then ' 相邻两个数据相等，进行剔除处理②bottom = bottom - 1End IfNext j③Loop= " "For ④= + Str(a(i))Next iEnd Sub第二题：2019年4月选考真题小明基于冒泡排序思想设计了一个改进的排序算法。
该算法先用冒泡法将数组a中奇数位置的元素、偶数位置的元素分别进行排序，然后再进行后续处理。
程序界面如下图：算法的VB程序段如下，请完成划线处填空。
’待排序数据存储在数组a中（a（1）~ a（n）），要求升序排列For i = 1 To (n - 1) \ 2For ①If a(j) > a(j + 2) Thent = a(j): a(j) = a(j + 2): a(j + 2) = tEnd IfNext jNext iFor i = 1 To n \ 2②If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = tNext iFor ③t = a(i): j = i - 1Do While t < a(j)a(j + 1) = a(j): j = j - 1Loop④Next i第三题：合唱队列是按队员的身高进行排列，形成中间高两边有序降低的队形；例如有六个队员“已、戊、丁、丙、乙和甲”的身高依次由小到大，则排列后的顺序为“戊、丙、甲、乙、丁、已”。
国家二级VB机试(综合应用题)模拟试卷7(题后含答案及解析)
国家二级VB机试（综合应用题）模拟试卷7(题后含答案及解析) 题型有：1.1．以下数列：1，1，2，3，5，8，13，21…的规律是从第3个数开始，每个数都是其前面两个数之和。
在考生文件夹下有一个工程文件sjt5．vbp。
窗体中已经给出了所有控件，如图所示。
请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值(提示：因计算结果较大，应使用长整型变量)。
注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击“计算”按钮以获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。
最后把修改后的文件按原文件名存盘。
正确答案：[操作步骤]步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考代码Private sub Commandl_Click( )Dim a( )As LongDim i As IntegerDim n As Integer’Op1．Count是单选按钮数目，这里用的是控件数组For i=0 To Op1．Count—1’判断哪一项被选择，把它后面的数值赋给n，确定n值If Opl(i)．Value=True Thenn=Val(Opl(i)．Caption)Exit ForEnd IfNextReDim a(n)’重新申请空间，这里是动态申请a(1)=1a(2)=1’数列第一项、第二项值确定For i=3 To na(i)=a(i-1)+a(i-2)’后一项值是前两项值之和NextText1．Text=a(n)End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
2．考生文件夹下有工程文件sjt5．vbp和数据文件in5．txt。
in5．txt中有多条记录，每条记录占一行，含4个数据项，数据项的含义依次是：姓名、数学成绩、语文成绩、英语成绩。
国家二级VB机试(综合应用题)模拟试卷6(题后含答案及解析)
国家二级VB机试（综合应用题）模拟试卷6(题后含答案及解析) 题型有：1.1．考生文件夹下有一个工程文件sjt5．vbp，窗体上有两个文本框，名称分别为Text1、Text2，都可以多行显示。
还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“取数”、“排序”、“存盘”。
“取数”按钮的功能是将考生文件夹下的in5．dat文件中的50个整数读到数组中，并在Text1中显示出来；“排序”按钮的功能是对这50个数按升序排序，并显示在Text2中；“存盘”按钮的功能是把排好序的50个数存到考生目录下的out5．dat文件中，如图所示。
在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，并编写“排序”按钮的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。
最后将修改后的文件按原文件名存盘。
正确答案：【操作步骤】步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“‘”，将问号改为正确的内容，并编写代码。
参考答案Dim a(50) As Integer Private Sub C1_C1ick( ) Dim k As Integer，ch As String Open”in5．dat”For Input As #1 ch＝”“For k＝1 TO 50 Input #1，a(k) ‘将取出的数据存入数组a中ch＝ch＋Str(a(k))＋”“‘将数据存入ch Next k Close #1 Text1．Text＝ch ‘在Text1文本框中显示文件内容End Sub Private Sub C2_Click( ) End Sub Private Sub C3_Click( ) Open”out5．dat”For Output As #1 Print #!，Text2．Text Close #! End Sub 需编写的“排序”按钮的代码Private Sub C2_Click( ) Dim t As Integer Dim 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＝ch＋Str(a(j))＋”“Next j Text2．Text＝ch End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
VB机试模拟试卷109(题后含答案及解析)
VB机试模拟试卷109(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在名称为Forml的窗体上画一个空白文本框，名称为Textl，它的高为2000，宽为2000。
通过属性窗口设置适当的属性使得Textl可以显示多行文本，且有垂直滚动条。
程序运行时的窗体如图12—1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjl．vbp，窗体文件名为sjl．frm。
(2)在名称为Forml的窗体上画一个图像框，名称为Imagel，其高、宽分别为800、800，通过属性窗口把考生文件夹下的图像文件test．bmp装入图像框；再画一个命令按钮，名称为(iotamandl，标题为“变宽”。
请编写适当的事件过程，要求程序运行后，每单击一次“变宽”按钮，则使图像的宽度增加600。
程序运行时窗体界面如图12—2所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体的文件名为sj2．frm。
正确答案：(1)根据题意，新建“标准EXE”工程，将一个文本框控件添加到窗体中，将其名称设为Textl，MuhiLine属性为True，ScrollBars属性为2，Text 属性为空，Width设为2 000，Height设为2 000。
单击按钮运行程序，并按要求保存。
(2)根据题意，新建“标准EXE”工程，将一个图像控件和一个命令按钮添加到窗体中，图像控件的名称为Imagel，Width为800，Height属性为800，Stretch属性为True，命令按钮的名称为Commandl，Caption属性为“变宽”。
双击Commandl进入代码窗口，编写如下代码：Private Sub Command1_Click( ) Imagel．Width=Imagel．Width+600’Imagel的宽度变宽600 End Sub单击按钮运行程序，并按要求保存。
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综合卷及答案
VB综合试卷(满分100分)姓名：班级：分数：一、选择题(共30小题,每小题2分,共60分)1.下列运算结果中，值最大的是（）A.3\4B.3/4C.4mod3D.3mod42.在窗体中添加一个命令按（command1）和一个文本框（名称为text1），并编写如下程序代码：private sub command1_click()dim a as integer,y as integer,z as integerx=1:y=2:z=3x=y:y=z:z=xtext1.text=str(z)end sub程序运行过程中，用户单击命令按钮command1后，文本框text1中显示（）A.0B.1C.2D.33.下面程序执行的结果是（）private sub form_click()a=”123”:b=”456”c=val(a)+val(b)print c\100end subA.123B.3C.5D.5794.下列逻辑运算结果为“true”的是（）A.false or not trueB.false and not trueC.true or not trueD.true and not true5.设有以下程序，当程序运行时，单击窗体，则在窗体上输出结果为（）private sub form_click()dim s as integer,c as strings=100:c=”xyz”s%=200:c$=”abc”print s;s%;:print c;c$end subA.100200xyzabcB.100100xyzxyzC.200200abcabcD.100200abcxyz6.以下程序段执行后，整型变量n的值为（）y=2001n=y\4+y\400-y\100A.495B.505C.500D.4857.表达式lcase(“AB12”)>left(“abc”,2)and len(“12.3”)=5的值是（）A.trueB.falseC.0D.18.在visual basic中，打印机也是一种对象，其名称为（）A.printB.printerC.printformD.printor9.表达式2*4^2-2*6/3+3\2的值是（）10.在程序中添加一个命令按钮，并编写如下程序代码：private sub command1_click()x=”123.5”y=”-100”z=x+yprint val(z)end sub程序运行时，单击命令按钮后，在窗体上的输出结果为（）A.23.5B.123.5C.100D.123.510011.在VB中,下列运算符中优先级最高的是()A.*B.\C.<D.Not12.下列逻辑表达式中，其值为true的是（）A.”abc”>”ABC”B.”THAT”>”THE”C.9>”h”D.”A”>”a”13.在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应使用的语句为().A.text1.clearB.text1.visible=falseC.text1.hideD.text1.enabled=false14.下列各组变量声明正确的是（）A.dim abc as integer,num as singleB.dim l%,n$as integerC.dim a%,b%,c%,a$D.public dim n%15.visual basic表达式sqr(a+b)^3*10中优先进行运算的是（）A.sqr函数B.＋C.－D.*16.在窗体上画一个命令按钮(名称为command1),然后编写如下事件过程:Private sub command1_click()Dim b as integerB=b+1End sub运行程序,单击命令按钮3次后,变量b的值是()A.0B.1C.2D.317.如果x为一正实数，对x的小数点后第4位进行四舍五入的表达式是（）A.0.001*int(x+0.005)B.0.001*int(1000*(x+0.0005))C.0.001*int(1000*9x+0.005))D.0.001*int(x+0.005)18.在表示日期常量时，用符号（）将日期型数据括起来。
程序设计语言VB综合设计题及答案[精选五篇]
![程序设计语言VB综合设计题及答案[精选五篇]](https://img.taocdn.com/s3/m/13d8e03f2379168884868762caaedd3383c4b579.png)
程序设计语言VB综合设计题及答案[精选五篇]第一篇：程序设计语言VB综合设计题及答案《程序设计语言VB》综合设计题1.编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2，则停止动态显示；单击按钮3，清除文本框内容。
提示：可用定时器控制时间，用系统函数Now显示时间（如Text1.Text = Now）。
2.编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。
3.编制程序：利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。
4.编制程序实现：设计在一框架中包含三个复选框，只有当其1,3选中而2未选中时，才在Text1中显示“Hello”字符。
5.编一程序能实现在窗体上打印出如下图所示的图形。
A AAA AAAAA AAAAAAA BBBBBBB BBBBB BBB B 6.编一程序用于判断一正整数是否为素数。
（提示：只能被1和本身整除的正整数称为素数。
为了判断一个数n是不是素数，可以将n被2到sqr(n)之间的所有整数除，如果都除不尽，则n就是素数，否则n是非素数。
）7.选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序：少于1600元，免税；1601-5000元，征2%的税；多于5000元，超过部分征5%的税。
8.有a、b、c三个数，编一程序实现通过文本框给a、b赋值；再调用能完成a、b比较大小的子过程，用c将大数回传。
要求按值传送a、b。
9.编一程序用于求所有的“水仙花数”。
所谓“水仙花数”是指一个3位数，其各位数字立方和等于该数本身。
例如：153就是一水仙花数，因为153 = 13+53+33。
10.设计一弹出式菜单，用于设置窗体的背景色，背景色包含白色、黄色、红色三种颜色。
11.编写程序实现：输入三角形的三条边a,b,c的值，根据其数值判断能否构成三角形。
如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。