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