Min=a(i)Min=a(i)
EndIfNextI
NextIText1.Text=Min
Text1.Text=Min
27.设有如下程序:
PrivateStaticFunctionfac(nAsInteger)AsInteger
DimfAsInteger
f=f+n
fac=f
EndFunction
PrivateSubForm_Click()
DimiAsInteger
Fori=2To3
Print"#";i&"="&fac(i)
Nexti
EndSub
程序运行后,单击窗体,在窗体上显示的是()
A.#2=2B.#2=2C.#;2=2D.#;2=2
#3=3#3=5#;3=3#;3=5
28.在窗体中添加一个命令按钮Command1,并有以下程序:
Functionretnum()
nl=Chr(13)+Chr(10)
msg$="1.运行VB应用程序"+nl+"3.计算器"
msg$=msg$+nl+"请输入数字选择"
retnum=InputBox(msg$,Title,Default)
EndFunction
PrivateSubCommand1_Click()
r=retnum
Ifr=1Then
x=Shell("c:
\vbp\vbexam.exe",1)
ElseIfr=2Then
z=Shell("calc.exe",1)
Else
MsgBox"请输入1-2的数"
EndIf
EndSub
程序运行后,单击命令按钮,在输入对话框内输入2,窗体将显示()
A.请输入1-2的数B.Windows的计算器
C.调用C:
\vbp\vbexam.exe程序并运行D.出错
29.设在工程中有一个标准模块,其中定义了如下记录类型:
TypeBooks
nameAsString*10
telnumAsString*20
EndType
在窗体中添加一个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。
下列能够完成该操作的程序段是()
A.PrivateSubCommand1_Click()
DimBAsBooks
Open"c:
\person.txt"ForOutputAs#1
B.name=InputBox("输入姓名")
B.telnum=InputBox("输入电话号码")
Write#1,B.name,B.telnum
Close#1
EndSub
B.PrivateSubCommand1_Click()
DimBAsBooks
Open"c:
\person.txt"ForInputAs#1
B.name=InputBox("输入姓名")
B.telnum=InputBox("输入电话号码")
Write#1,B.name,B.telnum
Close#1
EndSub
C.PrivateSubCommand1_Click()
DimBAsBooks
Open"c:
\person.txt"ForOutputAs#1
B.name=InputBox("输入姓名")
B.telnum=InputBox("输入电话号码")
Write#1,B
Close#1
EndSub
A.PrivateSubCommand1_Click()
DimBAsBooks
Open"c:
\person.txt"ForOutputAs#1
name=InputBox("输入姓名")
telnum=InputBox("输入电话号码")
Write#1,name,telnum
Close#1
EndSub
30.一个工程中包含两个名称分别为Form1、Form2的窗体,一个名称为Func的标准模块。
假定在Form1和Func中分别建立了自定义过程,其定义格式为:
Form1中定义的过程:
PrivateSubFun1()
……
EndSub
Func中定义的过程:
PrivateSubFun2()
……
EndSub
若要在窗体Form2调用Form1和Func中分别建立的自定义过程,则调用格式正确的是()
A.CallForm1.Fun1()B.CallForm1.Fun1()
Func.Fun1()CallFun1()
c.Form1.Fun1()d.Fun1()
Func.Fun1()Fun1()
二、填空题
1.设A=5,B=6,C=7,D=8,计算表达式3>2*BORA=CANDB<>CORC>D的值是______。
2.鼠标的光标在不同的窗口内,其形状是不一样的,光标的形状通过_________属性来设置。
3.下面程序运行时,内层循环的循环总次数是_______________。
Form=1To3
Forn=0Tom-1
Nextn
Nextm
4.定义语句DimA(-3to3)asInteger,定义数组的元素个数是___________
5.执行下面的程序段后,X的值为_____________。
X=5
ForI=1to10Step2
X=X+I\5
NextI
6.在窗体中添加一个命令按钮,然后编写如下过程:
Functionfun(ByValnumAsLong)AsLong
DimkAsLong
k=1
num=Abs(num)
DoWhilenum
k=k*(numMod10)
num=num\10
Loop
fun=k
EndFunction
PrivateSubCommand1_Click()
DimnAsLong
DimrAsLong
n=InputBox("请输入一个数")
n=CLng(n)
r=fun(n)
Printr
EndSub
程序运行后,单击命令按钮,在对话框中输入234,输出结果为________________。