26.以下选项中，不合法的VisualBasic的变量名是（_xyz）
27.窗体上有一个名称为HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置（即刻度值）。
下面能够实现上述操作的事件过程是______。
答：
PrivateSubHScroll1_Change（）
PrintHScroll1.Value
EndSub
28.
请输入B的值在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
x=0
DoUntilx=-1
a=InputBox（"请输入A的值"）
a=Val（a）
b=InputBox（"请输入B的值"）
b=Val（b）
x=InputBox（"请输入x的值"）
x=Val（x）
a=a+b+x
Loop
Printa
EndSub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为
（2）。
29.下列哪项是窗体对象的方法而不是属性Print。
30.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
PrivateSubCommand1_Click（）
n=Val（Text1.Text）
Ifn\2=n/2Then
f=f1（n）
Else
f=f2（n）
EndIf
Printf;n
EndSub
PublicFunctionf1（ByRefx）
x=x*x
f1=x+x
EndFunction
PublicFunctionf2（ByValx）
x=x*x
f2=x+x+x
EndFunction
程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是7236。
31.在窗体上画一个名称为Combo1的组合框，画两个名称分别为Label1和Label2及Caption属性分别为“城市名称”和空白的标签。
程序运行后，当在组合框中输入一个新项后按回车键（ASCⅡ码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示；如果存在，则在Label2中给出提示“输入项已在组合框中”。
请在空白处将程序补充完整。
PrivateSubCombo1KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
Fori=0ToCombo1.ListCount-1
ifCombo1.Text=Combo1.List（i）Then
Label2.Caption="输入项已在组合框中"
ExitSub
EndIf
Nexti
Label2.Caption="已成功添加输入项"
Combo1.AddItemCombo1.Text
EndIf
EndSub
32.在窗体上画一个命令按钮Command1，然后编写如下程序：
Functionpower（xAsSingle,ByValyAsInteger）
DimresultAsSingle
result=1
DoWhiley>0
result=result*x
y=y-1或-1+y
Loop
power=result
EndFunction
PrivateSubCommand1_Click（）
Fori=0To10
r=power（2,i）
Printr
Nexti
EndSub
33.在窗体上画一个命令按钮，然后编写如下程序：
Functionfun（ByValnumAsLong）AsLong
DimkAsLong
k=1
num=Abs（num）
DoWhilenum
k=k*（num\10）
num=num\10
Loop
fun=k
EndFunction
PrivateSubCommand1_Click（）
DimnAsLong
DimrAsLong
n=InputBox（"请输入一个数"）
n=CLng（n）
r=fun（n）
Printr
EndSub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为0。
34.语句Print5*5\5/5的输出结果是25。
35.以下程序的功能是：
从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。
请在______处填入适当的内容，将程序补充完整。
PrivateSubForm_Click（）
DimxAsSingle,amaxAsSingle,aminAsSingle
x=InputBox（"Enterascore"）
amax=x
amin=x
DoWhilex>=0
Ifx>amaxThen
amax=x
EndIf
IfxxThen
amin=x
EndIf
x=InputBox（"Enterascore"）
Loop
Print"Max=";amax,"Min=";amin
EndSub.
36.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
PrivateSubCommand1_Click（）
S$=InputBox（"请输入一个字符串"）
Text1.Text=S$
EndSub
PrivateSubText1_Change（）
Label1.Caption=UCase（Mid（Text1.Text,7））
EndSub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"VisualBasic"，则在标签中显示的内容是BASIC。
37.VisualBasic应用程序通常由3类模块组成，即窗体模块、标准模块和类模块。
38.在窗体上画一个列表框，然后编写如下两个事件过程：
PrivateSubForm_Click（）
list1.RemoveItem1
list1.RemoveItem3
list1.RemoveItem2
EndSub
PrivateSubForm_Load（）
list1.AddItem"itemA"
list1.AddItem"itemB"
list1.AddItem"itemC"
list1.AddItem"itemD"
list1.AddItem"itemE"
EndSub
运行上面的程序，然后单击窗体，列表框中所显示的项目为itemA、itemC。
39.以下程序段执行后y的值是9。
x=8.6
y=int（x+0.5）
printy
40.
执行下面的程序段后，变量S的值9。
S=5
Fori=2.6To4.9Step0.6
S=S+1
Nexti
.41设a=2*2.4356，下列语句的输出结果分别是48.71E-01、-4.8712。
PrintFormat$（a,"00.00E+00"）
PrintFormat$（a,"-#.####"）
42.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBase1
PrivateSubCommand1_Click（）
Dima（10）AsInteger
Fori=1To10
a（i）=i
Next
Callswap（a）
Fori=1To10
Printa（i）;
Next
EndSub
Subswap（b（）AsInteger）
n=10
Fori=1Ton/2
t=b（i）
b（i）=b（n）
b（n）=t
n=n-1
Next
EndSub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a
（1）与a（10）的值互换，a
（2）与a（9）的值互换，……，a（5）与a（6）的值互换。
请填空。
43.当用Append方式打开文件时，如果对文件进行写操作，则写入的数据附加到原来文件的后面。
44.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
PrivateSubCommand1_Click（）
a$="NationalComputerRankExamination"
n=Len（a$）
s=0
Fori=1Ton
b$=Mid（a$,i,1）
Ifb$="n"Then
s=s+1
EndIf
Nexti
Prints
EndSub
程序运行后，单击命令按钮，输出结果是4。
45.以下程序在文本框Text1中输入任一字符串，并按相反的次序显示在文本框Text2中。
PrivateSubCommand1_Click（）
DimNAsString,DAsString
N=Text1.Text
M=Len（Text1.Text）
Fori=MTo1Step-1
c=Mid（N,i,1）
D=D&C
Nexti
Text2.Text=D
EndSub
46.执行以下程序段，并输入1.23，则程序的输出结果应是23。
N=Str（InputBox（"请输入一个实数：
"））
p=InStr（N,"."）
PrintMid（N,p）
47.在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：
FunctionFun（xAsInteger,ByValyAsInteger）AsInteger
x=x+y
Ifx<0Then
Fun=x
Else
Fun=y
EndIf
EndFunction
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger
a=-10:
b=5
Text1.Text=Fun（a,b）
Text2.Text=Fun（a,b）
EndSub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是-5和5。
48.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。
程序运行后，Command1为禁用（灰色）。
当向文本框中输入任何字符时，命令按钮Command1变为可用。
请在______处填入适当的内容，将程序补充完整。
PrivateSubForm_Load（）
Command1.Enabled=False
EndSub
PrivateSubText1_Change（）
Command1.Enabled=True
EndSub
49.
以下程序用来输出20个在开区间（10,87）中的随机整数R，每行输出4个整数。
PrivateSubCommand1_Click（）
Fori=1To20
R=Int（76*Rnd+11）
Printr;
IfiMod4=0ThenPrint
Nexti
EndSub
50.在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为：
“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。
程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示（选择“第三个项目”的情况）。
下面是实现上述功能的程序，请填空。
PrivateSubCommand1_Click（）
IfList1.ListIndex>=0Then
List1.RemoveItemList1.listIndex
Label1.Caption=List1.ListCount
Else
MsgBox"请选择要删除的项目"
EndIf
EndSub
51.请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。
（1）在窗体上画一个文本框，名称为Text1，高度为350，宽度为2000，字体为
“黑体”，并设置其它相关属性，使得在运行时，在文本框中输入的字符
都显示为“？
”（如图所示）。
*注意：
存盘时必须存放在考生文件夹下，工程文件名为sj3.vbp，窗体文件
名为sj3.frm。
**********************************************************************
（2）在Form1的窗体上画一个命令按钮，名称为C1，标题为“更改标题”（如
图所示）。
请编写适当的事件过程，使得在运行时，如果单击C1，则按钮
的标题改为“已经按下按钮”。
程序中不得使用任何变量。
*注意：
存盘时必须存放在考生文件夹下，工程文件名为sj4.vbp，窗体文件
名为sj4.frm。
解析：
第1小题
文本框的PasswordChar属性
用来设置文本框中所显示的内容。
在默认状态下，该属性的设置值是空字符串，此时文本框所显示的是键盘所输入的字符；如果将该属性的值设置为一个非空字符串，则从键盘向文本框输入字符时，文本框中的实际内容仍是键入的字符，但显示的是PasswordChar属性所设置的字符串的第一个字符。
解题方法：
新建一个窗体，点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框，通过属性窗口设置其Font属性为“黑体”，Height属性为350，Width属性为2000，PasswordChar属性为“?
”。
按要求保存文件即完成本题。
第2小题
命令按钮的Caption属性
用来确定命令按钮上所显示的文本信息，其语法为：
命令按钮名.Caption=字符串
解题方法：
新建一个名为Form1的窗体，点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出一个命令按钮，通过属性窗口设置其Name属性为“C1”,Caption属性为“更改标题”。
打开代码窗口，输入如下的代码：
PrivateSubC1_Click（）
C1.Caption="已经按下按钮"
EndSub
按要求保存文件即完成本题。
52.
（1）在考生文件夹下有工程文件wy44.vbp及窗体文件wy44.frm，该程序是不完整的，请在有？
号的地方填入正确内容，然后删除？
及所有注释符（即'号），但不能修改其它部分。
存盘时不得改变文件名和文件夹。
本题描述如下：
在窗口中有一个名为Image1的图像框，有一个名为Timer1的计时器，有一个名为HScroll1的滚动条，还有一个名为C1，标题为"开始"的命令按钮，要求程序运行后，点击开始按钮，则图像框中的图片根据计时器中设定的时间间隔交替变更，如果改变滚动条中滚动框的位置，则图片交替变换的速度也随之变化。
***********************************************************************
（2）在考生文件夹下有工程文件wy45.vbp及窗体文件wy45.frm，该
升级会员 