vb大题上机总结_vb习题总结

vb大题上机总结由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb习题总结”。

真・vb大题・正式版1.0

**********************************************************************

在考生文件夹下有一个工程文件sj44.vbp（相应的窗体文件名为sj44.frm），其功能是通过调用过程Sort将数组按降序排序，请装入该文件。程序

运行后，在四个文本框中各输入一个整数（如图1所示），然后单击命令

按钮，即可使数组按降序排序，并在文本框中显示出来（如图2所示）。

这个程序不完整，请把它补充完整，并能正确运行。

要求：

去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功

能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存

盘。

图1

图2 本题的考查的是数组的应用，通过调用过程Sort将数组按降序排序，Ubound()函数是用来获得数组的上界，Lbound()函数是获得数组的下界，打开工程文件sjt4.vbp和相应的窗体文件名为sjt3.frm，在代码窗口中补充如下代码：

Private Sub Sort(a()As Integer)Dim Start As Integer, Finish As Integer Dim i As Integer, j As Integer, t As Integer Start = LBound(a)Finish = UBound(a)For i = Finish To 2 Step-1 For j = 1 To Finishlowerbound+1)* Rnd + lowerbound)这里，upperbound是随机整数范围的上限，而lowerbound则是随机整数范围的下限。修改后的主要代码如下：

Private Sub Command1_Click()Text1.Text = “”: Text2.Text = “” For i = 1 To 10 a(i)= Fix(Rnd * 99 + 1)For j = 1 To i1 Exit For End If（避免取相同的值）

Next j Next i For i = 1 To 10 Text1.Text = Text1.Text + Str(a(i))+ Space(2)（隔两个空格输出下一个）Next i End Sub

Private Sub Command2_Click()Dim num As Integer, i As Integer num = InputBox(“请输入待查找的数”)For i = 1 To 10 If a(i)= num Then

盗版必究，版权所有。------vb作战小队

Text2.Text = Str(num)+ “是数组中的第” + Str(i)+ “个值” Exit For End If Next i If i > 10 Then Text2.Text = Str(num)+ “不存在于数组中” End If End Sub 按要求保存文件即完成本题。】

在名称为Form1的窗体上有三个Label控件和两个名称分别为COMSTART、COMEXIT，标题分别为“开始”、“退出”的命令按钮。编写函数ITEM(A,N)其功能是由数字A组成的不多于N位数的整数，并利用该函数求8+88+888+8888的和，结果写入考生文件夹下的wy36.dat文件中。执行完毕“开始”按钮变成“完成”，且无效（变灰）。

【语法

[Public | Private | Friend] [Static] Function name [(arglist)] [As type] [Statements] [name = expreion] [Exit Function] [statements] [name = expreion] End Function声明Function过程的名称，参数以及构成其主体的代码。】

在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件stud1.dat，存放考生的考号、姓名、成绩。1）自定义一个数据类型stu，字符型数据定长为10。

2）按“开始”按钮后，能从考生文件夹下的stud1.dat 中读出所有数据并写入考生文件夹下的stud.dat文件中； 3）执行完毕，“开始”按钮变成“完成”，且无效（变灰）；

第6 题.在名称为Form1的窗体上画二个文本框，名称分别为T1、T2，初始情况下都没有内容。请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中（如图所示）。程序中不得使用任何变量。*注意：

存盘时必须存放在考生文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。

Private Sub T1_Change()T2.Text = T1.Text End Sub 按要求保存文件即完成本题。

真・vb大题・正式版1.0

第30题在名称为Form1的窗体上用名称为shape1的形状控件画一个长、宽都为1200 的正方形。请设置适当的属性满足以下要求：

1）窗体的标题为“正方形”，窗体的最小化按钮不可用；

2）正方形的边框为虚线（线型不限）。运行后的窗体如图所示。

注意：

存盘时必须存放在考生文件夹下，工程文件名为sj116.vbp，窗体文件名

为sj116.frm。

【本题主要考查了形状控件的Width、Height和BorderStyle属性，同时考查了窗体的Caption和MinButton属性。Width：设置对象的宽度。Height：设置对象的高。BackStyle：设置边框类型。Caption：设置标题。

MinButton：设置窗体最小化按钮是否可用。本题各控件属性设置如下： 控件名 属性 属性值 Shape1 Width 1200 Shape1 Height 1200 Shape1 BackStyle 2-Dash Form1 Caption 正方形 Form1 MinButton False】

第9题.在考生文件夹下有一个工程文件sj83.vbp，相应的窗体文件为sj83.frm。在窗体上有一个命令按钮，其名称为Command1，标题为“计算并输出”。程序运行后，如果单击命令按钮，程序将计算500以内两个数之间（包括开头和结尾的数）所有连续数的和为1250的正整数，并在窗体上显示出来。这样的数有多组，程序输出每组开头和结尾的正整数，并用“～”连接起来，如图所示。该程序不完整，请把它补充完整。

Private Sub Command1_Click()Dim i As Integer, j As Integer, iSum As Integer Print “连续和为1250的正整数是：” For i = 1 To 500 iSum = 0 For j = i To 500 iSum = j + iSum If iSum >= 1250 Then Exit For Next If iSum = 1250 Then Print i;“ ～ ”;j End If Next End Sub