d2d6c580bceb19e8b8f6ba02.docx

1、VB题库第1套简单应用（1） 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（2）L2.AddItem L1.List(L1.ListIndex)L1.RemoveItem L1.ListIndexFor i = 0 To List1.ListCount - 1Call MoveItem(List1, List2)综合应用For k = 1 To N Sum = Sum + a(k, k) If a(k, k) / 3 = Int(a(k, k) /

2、 3) Then Counter = Counter + 1 End If If k N - k + 1 Then If a(k, N - k + 1) / 3 = Int(a(k, N - k + 1) / 3) Then Counter = Counter + 1 End If End IfNextlblSecond.Caption = Sum : lblFirst.Caption = Counter* 第2套简单应用（1）If num / 2 Fix(num / 2) ThenIf num a(30) ThenIf a(n) = num ThenIf n 30 Then（2）Avg =

3、(a(i, 2) + a(i, 3) / 2Case Is = 85Case 60 To 84End SelectText2(n - 1) = x(n)综合应用For i = 1 To 20 Sum = 0 For j = 1 To 5 Sum = Sum + a(i, j) Next Avg = Sum / 5 If i = 1 Then Max = Avg ElseIf Max MaxCase Is a(i, j) Then Min = a(i, j) Next Sum = Sum + Min Next Text2 = Sum / 20步骤3：按要求将文件保存至考生文件夹中。步骤4：按键运

4、行程序，先单击“读数据”按钮，接着单击“计算”按钮，然后单击窗体右上角的关闭按钮结束程序。*第4套基本操作（1）步骤1：新建一个“标准EXE”工程，在窗体中画出一个形状、一个文本框和一个标签，并如表设置其及窗体相关属性。步骤2：按要求将文件保存至考生文件夹中。（2）步骤1：新建一个“标准EXE”工程，如表在窗体中画出控件并设置其相关属性。步骤2：在代码窗口中加入以下代码：Private Sub Form_Click()Label1.Visible = TrueEnd SubPrivate Sub Form_Load()Form1.Caption = 标签End Sub步骤3：按要求将文件保存至

5、考生文件夹中。简单应用（1）步骤1：打开考生文件夹下的本题工程文件sjt3.vbp，去掉程序中的注释符“”，将问号“?”改为正确的内容。Call ShowName(Command1)Call ShowName(Label1)Private Sub ShowName(c As Control)Label2.Caption = 单击 & Label1.Caption步骤2：按要求将文件保存至考生文件夹中。（2）步骤1：打开考生文件下的本题工程文件sjt4.vbp，将计时器控件Timer1的Interval属性值设置为500。步骤2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容

6、。Picture1(k).Visible = FalseTimer1.Enabled = TrueIf i = 8 Theni = 0步骤3：按要求将文件保存至考生文件夹中。综合应用步骤1：打开考生文件中的本题工程文件sjt5.vbp，打开代码编辑窗口，在指定位置编写以下代码：b(i) = a(i, 1) : c(i) = 1For j = 2 To n If a(i, j) b(i) Then b(i) = a(i, j) : c(i) = j End IfNext步骤2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，单击窗体上的命令按钮完成计算并存盘的工作。*第5套基本操作（1）步

7、骤1：新建一个“标准EXE”工程，在窗体Form1中画一个名为List1的列表框，在其List属性中添加三个项目，依次为“北京”、“上海”和“天津”，注意每输入完一项后按键换行再输入下一项。步骤2：新建一个“标准EXE”工程，选择【工具】【菜单编辑器】命令，打开菜单设计器，如表中的设置建立菜单项。步骤3：按要求将文件保存至考生文件夹中。（2）步骤1：新建一个“标准EXE”工程,将窗体Form1的Caption属性设置为“使用输入对话框”。步骤2：打开代码编辑窗口，编写以下事件过程：Private Sub Form_Click() InputBox 请输入, 等级考试, BasicEnd Sub

8、步骤3：按要求将文件保存至考生文件夹中。简单应用（1）步骤1：打开考生文件中的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。n = Len(Text1.Text)b = Asc(Mid(s, i, 1)Select Case bFor i = 0 To 2x(i) = a(i)步骤2：按要求将文件保存至考生文件夹中。（2）步骤1：打开考生文件中的本题工程文件sjt4.vbp，通过List1列表框的List属性添加四个项目：文本框、标签、命令按钮、单选按钮。步骤2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。For i

9、= 0 To La.ListCount - 1 Lb.AddItem La.List(i)NextLa.Clear步骤3：按要求将文件保存至考生文件夹中。综合应用步骤1：打开考生文件夹中的本题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。Do While Not EOF(1)s = s & Str(a(i)步骤2：在代码编辑窗口指定位置编写以下代码：num = UBound(a) For i = 1 To num - 1 For j = i To num If a(i) a(j) Then t = a(i) : a(i) = a(j) : a(j

10、) = t End If Next Next步骤3：按键运行程序，先单击“读数据”按钮，再单击“排序”按钮，最后单击窗体右上角的关闭按钮结束程序。步骤4：按要求将文件保存至考生文件夹中。*第6套基本操作（1）步骤1：新建一个“标准EXE”工程，如表在窗体中用“复制”和“粘贴”画出控件数组并设置属性。步骤2：按要求将文件保存至考生文件夹中。（2）步骤1：新建一个“标准EXE”工程，如表在窗体中画出控件并设置其相关属性。步骤2：在代码编辑窗口编写窗体的Load事件和计时器的Timer事件过程。Private Sub Form_Load()Timer1.Interval = 1000End SubP

11、rivate Sub Timer1_Timer()Label1.Visible = Not Label1.VisibleEnd Sub步骤3：按要求将文件保存至考生文件夹中。简单应用（1）步骤1：打开考生文件夹中的本题工程文件sjt3.vbp，打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。If Check1(k).Value = 1 ThenText1.Text = Command1.Enabled = True步骤2：按要求将文件保存至考生文件夹中。（2）步骤1：打开考生文件夹下的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正

12、确的内容。a = Val(List1.List(List1.ListCount - 2)a = bList1.AddItem c步骤2：按要求将文件保存至考生文件夹中。综合应用步骤1：打开考生文件中的本题工程文件sjt5.vbp，打开代码编辑窗口，在指定位置编写以下代码：For i = 1 To 5 Sum = 0 Counter = 0 For j = 1 To 40 If a(i, j) 50 Then Sum = Sum + a(i, j) : Counter = Counter + 1 End If Next Avg = Sum / Counter Label1(i - 1).Capt

13、ion = Sum Text2(i - 1).Text = Int(Avg * 100) / 100Next步骤2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，先单击“显示数据”按钮，接着单击“统计”按钮，然后单击“保存”按钮保存结果。*第7套基本操作（1）步骤1：新建一个“标准EXE”工程，将窗体Form1的Caption属性值设置为“菜单练习”。步骤2：选择【工具】【菜单编辑器】命令，打开菜单设计器，如表7-1中的设置建立菜单项。步骤3：按要求将文件保存至考生文件夹中。（2）步骤1：新建一个“标准EXE”工程，如表在窗体中画出控件并设置其相关属性。步骤2：在代码编辑窗口，编写两个

14、单选按钮的Click事件过程。Private Sub Option1_Click()Text1.Text = Option1.Caption & Text1.TextEnd SubPrivate Sub Option2_Click()Text1.Text = Text1.Text & Option2.CaptionEnd Sub步骤3：按要求将文件保存至考生文件夹中。简单应用（1）步骤1：打开考生文件中的本题工程文件sjt3.vbp，如表在窗体中画出一个标签并设置其相关属性。步骤2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。Timer1.Enabled = Not T

15、imer1.EnabledTimer1.Interval = 2000Select Case aCase 0步骤3：按要求将文件保存至考生文件夹中。（2）步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。List1.ClearFor k = List1.ListCount - 1 To 0 Step -1s = s + Val(List1.List(k)List1.RemoveItem kText2.Text = s步骤2：按要求将文件保存至考生文件夹中。综合应用步骤1：打开考生文件中的本题工程文件sjt5.vbp，打开代

16、码编辑窗口，在指定位置编写以下代码：For i = 1 To 5 Sum = 0 : Counter = 0 : Max = 0 For j = 1 To 40 If a(i, j) Mod 2 = 1 Then Sum = Sum + a(i, j) : Counter = Counter + 1 Else If a(i, j) Max Then Max = a(i, j) End If End If Next Avg = Sum / Counter Label1(i - 1).Caption = Max: Text2(i - 1).Text = Int(Avg * 100) / 100Ne

17、xt步骤2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，先单击“显示数据”按钮，接着单击“统计”按钮，然后单击“保存”按钮保存结果。*第8套基本操作（1）步骤1：新建一个“标准EXE”工程，如表在窗体中用“复制”和“粘贴”画出控件数组并设置属性。步骤2：按要求将文件保存至考生文件夹中。（2）步骤1：新建一个“标准EXE”工程，选择【工程】【部件】命令,在弹出的“部件”对话框的列表中选中“MicroSoft Common Dialog Control6.0”项目,单击“确定”按钮。步骤2： 在窗体Form1上画一个通用对话框，其相关属性设置如表所示。步骤3：编写两个命令按钮的Click

18、事件，加入下面的代码：Private Sub Command1_Click() CD1.ShowOpenEnd SubPrivate Sub Command2_Click() CD1.ShowSaveEnd Sub步骤4：按要求将文件保存至考生文件夹中。简单应用(1)步骤1：打开考生文件中的本题工程文件sjt3.vbp，将组合框的Style属性设置为2。步骤2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。Select Case Combo1.ListIndexMsgBox Str(x) & f1(x)MsgBox Str(x) & f2(x)Private Functi

19、on f2(ByVal x As Integer) As StringIf x Mod 7 = 0 Then步骤3：按要求将文件保存至考生文件夹中。(2)步骤1：打开考生文件中的本题工程文件sjt4.vbp，将Shape1控件的Shape属性设置为3，BackColor属性设置为&H000000FF&。步骤2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。Private Flag As BooleanShape1.Top = Shape2.Top + Shape2.Height - Shape1.HeightShape1.Left = Shape2.Left + Shap

20、e2.Width - Shape1.Width步骤3：按要求将文件保存至考生文件夹中。综合应用步骤1：打开考生文件夹下的本题工程文件sjt5.vbp，打开代码编辑窗口，在指定位置编写代码。Private Sub find(x() As Integer, t As TextBox)=以下为考生编写的程序=Max = x(1)For i = 2 To UBound(x) If x(i) Max Then Max = x(i) End IfNextt.Text = Max=考生编写的程序结束=End SubPrivate Sub Command2_Click()=以下为考生编写的程序=For i =

21、 1 To UBound(a) c(i) = a(i) + b(i)Next=考生编写的程序结束=Open App.Path & out51.txt For Output As #1 For i = 0 To 9 Print #1, c(i) Next Close #1End Sub步骤2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，先单击“读数据”按钮，再单击“合并数组”按钮，最后单击“找最大值”按钮。*第9套基本操作（1）步骤1：新建一个“标准EXE”工程，打开VB菜单设计器设计菜单，各菜单项及属性设置如表9-1所示。步骤2：按要求将文件保存至考生文件夹中。（2）步骤1：新建一个

22、“标准EXE”工程，在窗体Form1中画一个形状控件和两个命令按钮，在属性设置窗口中设置其相关属性，属性及其值如表所示。步骤2：打开代码编辑窗口，分别编写两个命令按钮的Click事件过程。Private Sub Command1_Click() Shape1.Width = Shape1.Width + 100End SubPrivate Sub Command2_Click() Shape1.Height = Shape1.Height + 100End Sub步骤3：按要求将文件保存至考生文件夹中。简单应用（1）步骤1：打开考生文件夹中的本题工程文件sjt3.vbp，在其中画出一个名为Te

23、xt1，初始内容为空的文本框。步骤2：打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。Loop Until n 2Do While n Mod Factor = 0Factor = Factor + 1步骤3：按要求将文件保存至考生文件夹中。（2）步骤1：打开考生文件夹下的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。For j = k To n - k + 1a(i, j) = kPrint Tab(j * 3); a(i, j);Print步骤2：按要求将文件保存至考生文件夹中。综合应用步骤1：打开考生文件夹中的本题

24、工程文件sjt5.vbp， 在窗体上画两个文本框，属性及其值如表所示。步骤2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。For k = 1 To i - 1i = i - 1For j = i + 1 To 50temp = a(i)a(j) = temp步骤3：按要求将文件保存至考生文件夹中。*第10套基本操作（1）步骤1：新建一个“标准EXE”工程，如表10-1在窗体中画出控件并设置其相关属性。步骤2：按要求将文件保存至考生文件夹中。（2）步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个图像框、一个水平滚动条和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表所示。步骤2：打开代码编辑窗口，分别编写滚动条的Change事件过程和窗体的Load事件过程。Dim length, highPrivate Sub Form_Load() length = Image1.Width : high = Image1.HeightEnd SubPrivate Sub HScroll1_Change() Image1.Width = HScroll1.Value * lengthEnd