Sum=Sum+Val（Text2（n））
步骤3：
按要求将文件保存至考生文件夹中。
综合应用
步骤1：
打开考生文件中的本题工程文件sjt5.vbp，在窗体Form1中画一个标签和一个文本框，其属性及值如表所示。
步骤2：
打开代码编辑窗口，在指定位置编写以下代码：
Sum=0
Fori=1To20
Min=a（1,1）
Forj=2To5
IfMin>a（i,j）ThenMin=a（i,j）
Next
Sum=Sum+Min
Next
Text2=Sum/20
步骤3：
按要求将文件保存至考生文件夹中。
步骤4：
按键运行程序，先单击“读数据”按钮，接着单击“计算”按钮，然后单击窗体右上角的关闭按钮结束程序。
***************************************************************************
第4套
基本操作
（1）
步骤1：
新建一个“标准EXE”工程，在窗体中画出一个形状、一个文本框和一个标签，并如表设置其及窗体相关属性。
步骤2：
按要求将文件保存至考生文件夹中。
（2）
步骤1：
新建一个“标准EXE”工程，如表在窗体中画出控件并设置其相关属性。
步骤2：
在代码窗口中加入以下代码：
PrivateSubForm_Click（）
Label1.Visible=True
EndSub
PrivateSubForm_Load（）
Form1.Caption="标签"
EndSub
步骤3：
按要求将文件保存至考生文件夹中。
简单应用
（1）
步骤1：
打开考生文件夹下的本题工程文件sjt3.vbp，去掉程序中的注释符“'”，将问号“?
”改为正确的内容。
CallShowName（Command1）
CallShowName（Label1）
PrivateSubShowName（cAsControl）
Label2.Caption="单击"&Label1.Caption
步骤2：
按要求将文件保存至考生文件夹中。
（2）
步骤1：
打开考生文件下的本题工程文件sjt4.vbp，将计时器控件Timer1的Interval属性值设置为500。
步骤2：
在代码编辑窗口，去掉程序中的注释符“'”，将问号“?
”改为正确的内容。
Picture1（k）.Visible=False
Timer1.Enabled=True
Ifi=8Then
i=0
步骤3：
按要求将文件保存至考生文件夹中。
综合应用
步骤1：
打开考生文件中的本题工程文件sjt5.vbp，打开代码编辑窗口，在指定位置编写以下代码：
b（i）=a（i,1）:
c（i）=1
Forj=2Ton
Ifa（i,j）>b（i）Then
b（i）=a（i,j）:
c（i）=j
EndIf
Next
步骤2：
按要求将文件保存至考生文件夹中。
步骤3：
按键运行程序，单击窗体上的命令按钮完成计算并存盘的工作。
***************************************************************************
第5套
基本操作
（1）
步骤1：
新建一个“标准EXE”工程，在窗体Form1中画一个名为List1的列表框，在其List属性中添加三个项目，依次为“北京”、“上海”和“天津”，注意每输入完一项后按键换行再输入下一项。
。
步骤2：
新建一个“标准EXE”工程，选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表中的设置建立菜单项。
步骤3：
按要求将文件保存至考生文件夹中。
（2）
步骤1：
新建一个“标准EXE”工程,将窗体Form1的Caption属性设置为“使用输入对话框”。
步骤2：
打开代码编辑窗口，编写以下事件过程：
PrivateSubForm_Click（）
InputBox"请输入","等级考试","Basic"
EndSub
步骤3：
按要求将文件保存至考生文件夹中。
简单应用
（1）
步骤1：
打开考生文件中的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符“'”，将问号“?
”改为正确的内容。
n=Len（Text1.Text）
b=Asc（Mid（s,i,1））
SelectCaseb
Fori=0To2
x（i）=a（i）
步骤2：
按要求将文件保存至考生文件夹中。
（2）
步骤1：
打开考生文件中的本题工程文件sjt4.vbp，通过List1列表框的List属性添加四个项目：
文本框、标签、命令按钮、单选按钮。
步骤2：
在代码编辑窗口，去掉程序中的注释符“'”，将问号“?
”改为正确的内容。
Fori=0ToLa.ListCount-1
Lb.AddItemLa.List（i）
Next
La.Clear
步骤3：
按要求将文件保存至考生文件夹中。
综合应用
步骤1：
打开考生文件夹中的本题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符“'”，将问号“?
”改为正确的内容。
DoWhileNotEOF
（1）
s=s&Str（a（i））
步骤2：
在代码编辑窗口指定位置编写以下代码：
num=UBound（a）
Fori=1Tonum-1
Forj=iTonum
Ifa（i）>a（j）Then
t=a（i）:
a（i）=a（j）:
a（j）=t
EndIf
Next
Next
步骤3：
按键运行程序，先单击“读数据”按钮，再单击“排序”按钮，最后单击窗体右上角的关闭按钮结束程序。
步骤4：
按要求将文件保存至考生文件夹中。
***************************************************************************
第6套
基本操作
（1）
步骤1：
新建一个“标准EXE”工程，如表在窗体中用“复制”和“粘贴”画出控件数组并设置属性。
步骤2：
按要求将文件保存至考生文件夹中。
（2）
步骤1：
新建一个“标准EXE”工程，如表在窗体中画出控件并设置其相关属性。
步骤2：
在代码编辑窗口编写窗体的Load事件和计时器的Timer事件过程。
PrivateSubForm_Load（）
Timer1.Interval=1000
EndSub
PrivateSubTimer1_Timer（）
Label1.Visible=NotLabel1.Visible
EndSub
步骤3：
按要求将文件保存至考生文件夹中。
简单应用
（1）
步骤1：
打开考生文件夹中的本题工程文件sjt3.vbp，打开代码编辑窗口，去掉程序中的注释符“'”，将问号“?
”改为正确的内容。
IfCheck1（k）.Value=1Then
Text1.Text=""
Command1.Enabled=True
步骤2：
按要求将文件保存至考生文件夹中。
（2）
步骤1：
打开考生文件夹下的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“'”，将问号“?
”改为正确的内容。
a=Val（List1.List（List1.ListCount-2））
a=b
List1.AddItemc
步骤2：
按要求将文件保存至考生文件夹中。
综合应用
步骤1：
打开考生文件中的本题工程文件sjt5.vbp，打开代码编辑窗口，在指定位置编写以下代码：
Fori=1To5
Sum=0
Counter=0
Forj=1To40
Ifa（i,j）<50Then
Sum=Sum+a（i,j）:
Counter=Counter+1
EndIf
Next
Avg=Sum/Counter
Label1（i-1）.Caption=Sum
Text2（i-1）.Text=Int（Avg*100）/100
Next
步骤2：
按要求将文件保存至考生文件夹中。
步骤3：
按键运行程序，先单击“显示数据”按钮，接着单击“统计”按钮，然后单击“保存”按钮保存结果。
***************************************************************************
第7套
基本操作
（1）
步骤1：
新建一个“标准EXE”工程，将窗体Form1的Caption属性值设置为“菜单练习”。
步骤2：
选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表7-1中的设置建立菜单项。
步骤3：
按要求将文件保存至考生文件夹中。
（2）
步骤1：
新建一个“标准EXE”工程，如表在窗体中画出控件并设置其相关属性。
步骤2：
在代码编辑窗口，编写两个单选按钮的Click事件过程。
PrivateSubOption1_Click（）
Text1.Text=Option1.Caption&Text1.Text
EndSub
PrivateSubOption2_Click（）
Text1.Text=Text1.Text&Option2.Caption
EndSub
步骤3：
按要求将文件保存至考生文件夹中。
简单应用
（1）
步骤1：
打开考生文件中的本题工程文件sjt3.vbp，如表在窗体中画出一个标签并设置其相关属性。
步骤2：
在代码编辑窗口，去掉程序中的注释符“'”，将问号“?
”改为正确的内容。
Timer1.Enabled=NotTimer1.Enabled
Timer1.Interval=2000
SelectCasea
Case0
步骤3：
按要求将文件保存至考生文件夹中。
（2）
步骤1：
打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“'”，将问号“?
”改为正确的内容。
List1.Clear
Fork=List1.ListCount-1To0Step-1
s=s+Val（List1.List（k））
List1.RemoveItemk
Text2.Text=s
步骤2：
按要求将文件保存至考生文件夹中。
综合应用
步骤1：
打开考生文件中的本题工程文件sjt5.vbp，打开代码编辑窗口，在指定位置编写以下代码：
Fori=1To5
Sum=0:
Counter=0:
Max=0
Forj=1To40
Ifa（i,j）Mod2=1Then
Sum=Sum+a（i,j）:
Counter=Counter+1
Else
Ifa（i,j）>MaxThen
Max=a（i,j）
EndIf
EndIf
Next
Avg=Sum/Counter
Label1（i-1）.Caption=Max:
Text2（i-1）.Text=Int（Avg*100）/100
Next
步骤2：
按要求将文件保存至考生文件夹中。
步骤3：
按键运行程序，先单击“显示数据”按钮，接着单击“统计”按钮，然后单击“保存”按钮保存结果。
***************************************************************************
第8套
基本操作
（1）
步骤1：
新建一个“标准EXE”工程，如表在窗体中用“复制”和“粘贴”画出控件数组并设置属性。
步骤2：
按要求将文件保存至考生文件夹中。
（2）
步骤1：
新建一个“标准EXE”工程，选择【工程】→【部件】命令,在弹出的“部件”对话框的列表中选中“MicroSoftCommonDialogControl6.0”项目,单击“确定”按钮。
步骤2：
在窗体Form1上画一个通用对话框，其相关属性设置如表所示。
步骤3：
编写两个命令按钮的Click事件，加入下面的代码：
PrivateSubCommand1_Click（）
CD1.ShowOpen
EndSub
PrivateSubCommand2_Click（）
CD1.ShowSave
EndSub
步骤4：
按要求将文件保存至考生文件夹中。
简单应用
（1）
步骤1：
打开考生文件中的本题工程文件sjt3.vbp，将组合框的Style属性设置为2。
步骤2：
在代码编辑窗口，去掉程序中的注释符“'”，将问号“?
”改为正确的内容。
SelectCaseCombo1.ListIndex
MsgBoxStr（x）&f1（x）
MsgBoxStr（x）&f2（x）
PrivateFunctionf2（ByValxAsInteger）AsString
IfxMod7=0Then
步骤3：
按要求将文件保存至考生文件夹中。
（2）
步骤1：
打开考生文件中的本题工程文件sjt4.vbp，将Shape1控件的Shape属性设置为3，BackColor属性设置为&H000000FF&。
步骤2：
在代码编辑窗口，去掉程序中的注释符“'”，将问号“?
”改为正确的内容。
PrivateFlagAsBoolean
Shape1.Top=Shape2.Top+Shape2.Height-Shape1.Height
Shape1.Left=Shape2.Left+Shape2.Width-Shape1.Width
步骤3：
按要求将文件保存至考生文件夹中。
综合应用
步骤1：
打开考生文件夹下的本题工程文件sjt5.vbp，打开代码编辑窗口，在指定位置编写代码。
PrivateSubfind（x（）AsInteger,tAsTextBox）
'======以下为考生编写的程序=========
Max=x
（1）
Fori=2ToUBound（x）
Ifx（i）>MaxThen
Max=x（i）
EndIf
Next
t.Text=Max
=======考生编写的程序结束========
EndSub
PrivateSubCommand2_Click（）
=========以下为考生编写的程序===========
Fori=1ToUBound（a）
c（i）=a（i）+b（i）
Next
=========考生编写的程序结束==============
OpenApp.Path&"\out51.txt"ForOutputAs#1
Fori=0To9
Print#1,c（i）
Next
Close#1
EndSub
步骤2：
按要求将文件保存至考生文件夹中。
步骤3：
按键运行程序，先单击“读数据”按钮，再单击“合并数组”按钮，最后单击“找最大值”按钮。
***************************************************************************
第9套
基本操作
（1）
步骤1：
新建一个“标准EXE”工程，打开VB菜单设计器设计菜单，各菜单项及属性设置如表9-1所示。
步骤2：
按要求将文件保存至考生文件夹中。
（2）
步骤1：
新建一个“标准EXE”工程，在窗体Form1中画一个形状控件和两个命令按钮，在属性设置窗口中设置其相关属性，属性及其值如表所示。
步骤2：
打开代码编辑窗口，分别编写两个命令按钮的Click事件过程。
PrivateSubCommand1_Click（）
Shape1.Width=Shape1.Width+100
EndSub
PrivateSubCommand2_Click（）
Shape1.Height=Shape1.Height+100
EndSub
步骤3：
按要求将文件保存至考生文件夹中。
简单应用
（1）
步骤1：
打开考生文件夹中的本题工程文件sjt3.vbp，在其中画出一个名为Text1，初始内容为空的文本框。
步骤2：
打开代码编辑窗口，去掉程序中的注释符“'”，将问号“?
”改为正确的内容。
LoopUntiln>2
DoWhilenModFactor=0
Factor=Factor+1
步骤3：
按要求将文件保存至考生文件夹中。
（2）
步骤1：
打开考生文件夹下的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“'”，将问号“?
”改为正确的内容。
Forj=kTon-k+1
a（i,j）=k
PrintTab（j*3）;a（i,j）;
Print
步骤2：
按要求将文件保存至考生文件夹中。
综合应用
步骤1：
打开考生文件夹中的本题工程文件sjt5.vbp，在窗体上画两个文本框，属性及其值如表所示。
步骤2：
在代码编辑窗口，去掉程序中的注释符“'”，将问号“?
”改为正确的内容。
Fork=1Toi-1
i=i-1
Forj=i+1To50
temp=a（i）
a（j）=temp
步骤3：
按要求将文件保存至考生文件夹中。
***************************************************************************
第10套
基本操作
（1）
步骤1：
新建一个“标准EXE”工程，如表10-1在窗体中画出控件并设置其相关属性。
步骤2：
按要求将文件保存至考生文件夹中。
（2）
步骤1：
新建一个“标准EXE”工程，在窗体Form1中画一个图像框、一个水平滚动条和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表所示。
步骤2：
打开代码编辑窗口，分别编写滚动条的Change事件过程和窗体的Load事件过程。
Dimlength,high
PrivateSubForm_Load（）
length=Image1.Width:
high=Image1.Height
EndSub
PrivateSubHScroll1_Change（）
Image1.Width=HScroll1.Value*length
End
升级会员 