r
程序填空r
有情提示””都得在VB程序内自己从打最好自己手打别复制r
1以下程序段用于输出杨辉三角r
PrivateSubForm_Clickr
Co
st
10r
Dimarr
AsI
tegerr
ForI1To
r
SPACEr
arri11r
arri1j1arri1jr
Pri
tarrijtr
2下面的事件过程判断文本框Text1中输入的数所在区间并在文本框Text2中输出判断结果r
PrivateSubComma
d1_Clickr
Dimi
t1AsI
tegerr
SPACEr
i
t1ValText1Textr
SPACEr
Case1to10r
CaseIs10r
3以下程序的功能是生成20个200到300之间的随机整数输出其中能被5整除的数并求出它们的和r
PrivateSubComma
d1_Clickr
DimsAsI
tegerr
SPACEr
s0r
SPACEr
XI
tR
d100200r
SPACEr
IfXMod50The
r
4下面的程序用于求三个数中最大数r
PriateSubComma
d1_Clickr
Dimabcmi
AsI
tegerr
aValI
putBox”请输入第一个数”r
bValI
putBox”请输入第二个数”r
cValI
putBox”请输入第三个数”r
SPACEr
maxar
SPACEr
IfbmaxThe
maxbr
SPACEr
IfcmaxThe
maxcr
5在窗体上画一个标签名称为Label1和一个计时器名称为Timer1然后编写如下几个事件过程要求每一秒钟Label1更新显示一次系统时间r
PrivateSubForm_Loadr
Timer1E
abledFalser
SPACEr
Timer1I
terval1000r
SPACEr
Timer1E
abledTruer
SPACEr
Label1Captio
Nowr
6在窗体上建立两个文本框Text1输入数及Text2显示结果一个命令按钮Comma
d1“判断”单击按钮时判断Text1中输入的数值是否是4的倍数r
PrivateSubComma
d1_Clickr
DimxAsI
tegerr
SPACEr
IfIsNumericText1TextFasleThe
r
SPACEr
xCl
tText1Textr
SPACEr
IfxMod40The
r
7窗体上建立了一个文本框Text1用于显示结果单击按钮弹出输入对话框录入06之间的数值判断输入值为星期几r
PrivateSubComma
d1_Clickr
DimxAsI
tegerr
SPACEr
xValI
putBox”请输入星期几06”r
SPACEr
SelectCasexr
SPACEr
CaseElser
8窗体上建立了一个文本框Text1“输入口令”和一个命令按钮Comma
d1“检查”判断密码是否正确并显示相应提示在加载窗体时设置密码框最大长度为8密码显示字符为””r
PrivateSubComma
d1_Clickr
xText1Textr
SPACEr
Ifx”12345678”The
r
SPACEr
Text1MaxLe
gth8r
SPACEr
Text1PasswordChar””r
1窗体上建立了两个文本框Text1（输入字符串）及Text2（转换结果），一个命令按钮Comma
d1“清除”。录入Text1内容时将，将录入内r