vb的操作题（有答案）
第一篇：vb的操作题(有答案)
1.（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中“查最大值”（或“查最小值”）单选按钮，再单击“查”按钮，则出数组中的最大值（或最小值），并显示在标签Label2中。请去掉程序中的注释符，把程序中的 ？改为正确的内容。
注意：
考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文
件名存盘。
Private Sub Command1_Click()x = a(1)y = a(1)For i = 2 To 10
If Option1.Value = True Then If a(i)x Then
x = a(i)End If ElseIf a(i)
< y Then y = a(i)End If Next If Option1.Value = True Then Label2.Caption = x Else Label2.Caption = y End If End Sub 2.（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其
设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状
控件中被竖线填充。如图所示。
要求：
程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存
放在考生文件夹下，工程文件名为sj107.vbp，窗体文件名为sj107.frm。
在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：内实线。List控件的Click事件过程为： Private Sub List1_Click()
Shape1.FillStyle = List1.Text End Sub 3.（1）在名称为Form1的窗体上画一个文本框，名称为Text1；再画二个命令按钮，名称分别为C1、C2，标题分别为“隐藏”、“显示”（如图所示）。请编写适当的事件过程，使得在运行时，如果单击“隐藏”按钮，则文本框消失，而如果单击“显示”按钮，则文本框显示出来。程序中不得使用任何变量。*注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
隐藏：text1.visible=false 显示：text1.visible=true
4.在窗体上画二个文本框，名称分别为Text1、Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1中每输入一个字符，则显示一个“*”，同时在Text2中显示输入的内容（如图所示）。程序中不得使用任何变量。*注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。答案：将Text1的文本框的PasswordChar属性为“*”。Private Sub Text1_Change()Text2.Text = Text1.Text End Sub 5.（1）在考生文件夹中有工程文件wy69.vbp及其窗体文件wy69.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为 C1，标题为“复制”。
要求程序运行后，在列表框中自动建立四个列表项，分别为“Item1”、“Item2”、“Item3”、“Item4”如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中（如图所示）。
Private Sub Command1_Click()Dim i As Integer For i = 0 To 3 Text1.Text = List1 Next i End Sub 6 在考生文件夹下有一个工程文件sj31.vbp，相应的窗体文件为sj31.frm，此
外还有一个名为的文本文件，其内容如下： 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37
程序运行后，单击窗体，将把文件中的数据输入到二维数组 Mat 中，在窗体上按5行、5列的矩阵形式显示出来，并输出矩阵左上-右下对角线
上的数据，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序
不完整，请把它补充完整，并能正确运行。
要求：
去掉程序中的注释符，把程序中的 ？ 改为正确的内容，使其实现上述功 能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
解题方法：
打开sjt5.vbp中的Form1窗体，打开代码窗口，修改后的代码如下： Option Base 1 Private Sub Form_Click()Const N = 5 Const M = 5 Dim Mat(M, N)Dim i, j Open App.Path & “" & ”“ For Input As #1 For i = 1 To N For j = 1 To M Input #1, Mat(i, j)Next j Next i Close #1 Print Print ”初始矩阵为：“ Print For i = 1 To N For j = 1 To M Print Tab(5 * j);Mat(i, j);Next j Print Next i Print Print ”左上1 If a(i)= a(j)Then i = i1 If List1.List(i)= Text1.Text Then List1.RemoveItem i End If Next i End If End Sub 21.在考生文件夹下有一个工程文件sj44.vbp（相应的窗体文件名为sj44.frm），其功能是通过调用过程Sort将数组按降序排序，请装入该文件。程序
vb编程基础知识题库
运行后，在四个文本框中各输入一个整数（如图1所示），然后单击命令
按钮，即可使数组按降序排序，并在文本框中显示出来（如图2所示）。
这个程序不完整，请把它补充完整，并能正确运行。
要求：
去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功
能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存
盘。
图1
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 Finish1)
End If End Sub
在考生文件夹下有一个工程文件sj53.vbp，窗体上已经画出所有控件。如图所示。在Text1文本框中输入一个任意的字符串（要求串的长度≥10），然后选择组合框中的 3个截取运算选项之一。单击“计算”按钮，将截取运算后的结果显示在Text2中。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 ？改为正确的内容。
Dim is_num As Boolean Private Sub Command1_Click()
Dim tmpStr As String * 50
'Select Case cobmo1.listcount
Case 0
tmpStr = Left(Trim(Text1.Text), 3)
Case 1
tmpStr = Right(Trim(Text1.Text), 3)
Case 2
'tmpStr = Mid(Trim(Text1.Text), 3,4)
End Select
'Text2.Text = tmpstr End Sub
Private Sub Form_Load()

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。