按要求完善程序。
PrivateSubCommand1_Click（）
DimxAsInteger,yAsInteger
IfText1.Text<>""AndIsNumeric（Text1.Text）Then'如果文本框已输入数值数据
x=Val（Text1.Text）'将输入的数值赋给变量x
Else
MsgBox"请在文本框中输入数值"
Text1.SetFocus
ExitSub
EndIf
IfText2.Text<>""AndIsNumeric（Text2.Text）Then
y=Val（Text2.Text）
Else
MsgBox"请在文本框中输入数值"
Text2.SetFocus
ExitSub
EndIf
Ifx=yThen
MsgBox"两个数相等"
ElseIfxx_____Then
MsgBox"第一个数小于第二个数"
Else
__msgbox”第一个数大于第二个数”___________
EndIf
EndSub
6.以下程序的功能是随机生成20个1到100之间的正整数，用选择法将其按从大到小的顺序排列后输出。
PrivateSubCommand1_Click（）
Dima（20）AsInteger,iAsInteger
DimjAsInteger,tempAsInteger
Print"排序前：
"
Fori=1To20
a（i）=Int（Rnd*100）+1
Printa（i）;
Nexti
Print
Fori=1To19
Forj=i+1________To20
If_a（j）>a（i）_______Then
t=a（i）
a（i）=a（j）
___a（j）=t_____
EndIf
Nextj
Nexti
Print"排序后：
"
Fori=1To20
Printa（i）;
Nexti
EndSub
7.执行以下程序，单击命令按钮后，如果从键盘上输入5，则第一行输出结果是_12345_____，第二行输出结果是_00000000000_____。
PrivateSubCommand1_Click（）
Dima（）AsInteger
DimnAsInteger,iAsInteger
n=InputBox（"inputn:
"）
ReDima（n）
Fori=1Ton
a（i）=i
Printa（i）;
Nexti
Print
ReDima（10）
Fori=0To10
Printa（i）;
Nexti
EndSub
8.设有数组声明语句：
DimA（-1To2,-1To1）AsLong，则数组A在内存中所占的字节数为__48____。
9.阅读下面程序，当单击窗体后，窗体上输出的是_17133________。
PrivateSubForm_Click（）
DimiAsInteger,kAsInteger
DimaAsInteger,bAsInteger
a=5:
b=1
Fori=1Toa+bStepb
i=i+1
a=a+i
b=b+i
k=k+1
Nexti
Printa;b;k
EndSub
10.设用Functiongcd（xAsInteger,yAsInteger）定义了一个求两个数的最大公约数的程序，点击窗体时，能在窗体上显示96和64的最大公约数，请补充程序。
FunctionGcd（xAsInteger,yAsInteger）'定义函数求任意两个数的最大公约数
DoWhiley<>0
r=xMody
x=y
y=r
Loop
Gcd=x
EndFunction
PrivateSubForm_Click（）
DimaAsInteger,bAsInteger
a=96:
b=64
_x=Gcd（a,b）__________'调用函数求两个数的最大公约数
Print"Gcd=";x
EndSub
下面程序是接受用户从键盘上输入的一个正整数，找出大于或等于该数的第一个素数。
OptionExplicit
PrivateSubCommand1_Click（）
DimnAsInteger,kAsInteger
DimiAsInteger
n=InputBox（"请输入一个正整数"）
____k=n________
Do
Fori=2ToSqr（k）
IfkModi=0ThenExitFor
Nexti
If____i>sqr（k）_____Then
ExitDo
Else
___k=k+1_________
EndIf
Loop
Print"大于等于";n;"的第一个素数是";k
EndSub
阅读下面程序，当单击窗体后，窗体上输出的是___1274________。
PrivateSubForm_Click（）
DimiAsInteger,jAsInteger
DimkAsInteger
Fori=1To10Step3
Forj=1To10Step2
Ifj>=5Theni=i+4:
ExitFor
j=j+1
k=k+1
Nextj
Ifi>8ThenExitFor
Nexti
Printi;j;k
EndSub
下列程序段的执行结果为__1822__________。
j=0:
n=5
Do
j=（j+1）*（j+2）
n=n-1
LoopUntiln<3
Printj;n
工程中包括两个窗体form1.form2和一个标准模块modul1，代码如下:
modul1通用声明段代码:
PublicbAsInteger
窗体form1的代码:
PublicaAsInteger
PrivateSubForm_Click（）'form1的click事件
a=10
b=20
Form2.Show
EndSub
窗体form2的代码:
PrivateSubForm_Click（）
PrintForm1.a；
Printb
EndSub
执行程序，依次点击两个窗体，在第二窗体上显示_1020__________。
完善下列程序，要求实现按每行5个输出1到100之间所有的素数。
PrivateSubForm_Click（）
DimnAsInteger,iAsInteger
DimkAsInteger,flagAsBoolean
Forn=2To100
Fori=2ToSqr（n）
IfnModi=0Then
_____exitfor_____
EndIf
Nexti
Ifi>sqr（n）Then
Printn;
___k=k+1________
IfkMod5=0ThenPrint
EndIf
Nextn
EndSub
随机文件的读操作通过__get________语句实现，而写操作通过put语句实现。
执行下面程序段，如果运行时输入2，则在窗体上输出结果是__4____。
DimxAsInteger
x=InputBox（"inputx"）
Ifx>1Then
y=x+2
ElseIfx<5Then
y=x+3
ElseIfx=2Then
y=x
EndIf
Printy
执行下面程序，若依次输入10，20，30，40，50，60，则输出结果是__103050204060____。
OptionBase1
PrivateSubCommand1_Click（）
Dima（3,2）AsInteger
Dimi%,j%,t
Fori=1To3
Forj=1To2
a（i,j）=InputBox（"请输入数组元素的值"）
Nextj
Nexti
ForEachtIna
Printt;
Nextt
EndSub
运行如下程序段，输出结果为___16_____。
PrivateSubcommand1_click（）
a=1:
b=2:
c=3
a=a+b:
b=b+a:
c=b+a
Ifa<>3Orb<>3Then
a=b-a:
b=c-a:
c=b+a
EndIf
Printa+b+c
EndSub
执行以下程序，单击命令按钮后，如果在弹出的对话框中单击"是"按钮，则窗体上的输出内容是_6______。
PrivateSubCommand1_Click（）
DimaAsInteger
a=MsgBox（"非法数据！
"&Chr（13）&Chr（10）&"请重新输入",vbYesNo+vbCritical,"提示信息"）
Printa
EndSub
1.运行如下程序后，输出结果为__19______。
Form=1To4
a=0
Forj=1To5
a=1
Fork=1To6
a=a+3
Nextk
Nextj
Nextm
Printa
2.编程输出所有满足下列条件的三位正整数，它除以11所得的商等于各位数字的平方和。
OptionExplicit
PrivateSubCommand1_Click（）
DimnAsInteger,rAsInteger,sAsInteger
DimpAsInteger,mAsInteger
Forn=100To999
p=n\11
m=n
______s=0________
Do
r=mMod10
s=s+r*r
____m=m/10________
LoopUntilm=0
If_____s=p_____ThenPrintn;
Nextn
EndSub
运行如下程序后，输出结果为____30__。
a=0
Forj=1To30Step2
a=a+jmod5
Nextj
Printa
3.运行下面的程序，显示结果是___45________。
PrivateFunctiondigit（nAsInteger,kAsInteger）AsInteger
digit=0
DoWhilek>0
digit=nMod10
n=n\10:
k=k-1
Loop
EndFunction
PrivateSubForm_Click（）
Printdigit（4567,4）;
Printdigit（4567,3）
EndSub
4.任意输入三个数，将其按从小到大的顺序输出。
完善以下程序。
PrivateSubForm_Click（）
DimaAsInteger,bAsInteger,cAsInteger
DimtempAsInteger
a=InputBox（"输入第一个数"）
b=InputBox（"输入第二个数"）
c=InputBox（"输入第三个数"）
Print"初始值：
";a;b;c
Ifa>bThen
temp=a:
a=b:
b=temp
EndIf
If_a>c________Then
temp=a:
a=c:
c=temp
EndIf
If____b>c______Then
temp=b:
b=c:
c=temp
EndIf
Print"排序后：
";a;b;c
EndSub
5.随机生成10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：
第1个元素与第10个元素互换，第2个元素与第9个元素互换……分别输出数组原来各元素的值和对换后各元素的值。
PrivateSubCommand1_Click（）
Dima（10）AsInteger
DimiAsInteger,jAsInteger
Print"原序列：
"
Fori=1To10
a（i）=Int（Rnd*90）+10
Printa（i）;
Nexti
Print
Fori=1To___5_____
t=a（i）
___a（i）=a（11-i）_____
_____a（11-i）=t___
Nexti
Print"交换后的序列：
"
Fori=1To10
Printa（i）;
Nexti
Print
EndSub
6.执行以下程序段，第一行输出结果是__6543_____，第二行输出结果是123_______。
PrivateSubForm_Click（）
Dima
DimiAsInteger
a=Array（1,2,3,4,5,6,7,8,9）
Fori=0To3
Printa（5-i）;
Next
Print
a=Array（"abc","123","def"）
Printa
（1）
EndSub
7.执行以下程序，单击命令按钮后，输出结果是___012345678910___。
PrivateSubCommand1_Click（）
Dima（10）AsInteger
Dimb
Fori=1To10
a（i）=i
Nexti
ForEachbIna
Printb;
Nextb
EndSub
8.文件"text.txt"中的内容为1，2，3
执行下列语句:
Open"text.txt"ForOutputAs#1
Write#1，4，5，"aaa"
Close#1
则text.txt中的内容为_4,5‘aaa‘_______。
9.执行下面程序段，如果运行时输入2，则在窗体上输出结果是___4___。
DimxAsInteger
x=InputBox（"inputx"）
Ifx>1Then
y=x+2
ElseIfx<5Then
y=x+3
ElseIfx=2Then
y=x
EndIf
10.运行如下程序后，输出结果为_2127_____。
DimiAsInteger,yAsInteger
Fori=3To15Step3
y=y+i
i=i+3
Nexti
Printi;y
Printy
11.假设递归函数fact（n）用来求n的阶乘，请补充程序。
PrivateFunctionfact（nAsInteger）AsLong
Ifn=0Orn=1Then
fact=1
Else
fact=__n*fact（n-1）_________
EndIf
EndFunction
12.运行如下程序段，输出结果为___16_____。
PrivateSubcommand1_click（）
a=1:
b=2:
c=3
a=a+b:
b=b+a:
c=b+a
Ifa<>3Orb<>3Then
a=b-a:
b=c-a:
c=b+a
EndIf
Printa+b+c
EndSub
13.运行以下程序，单击窗体后，如果依次输入20和40，则输出内容是____60____。
PrivateSubForm_Click（）
DimxAsInteger
x=InputBox（"请输入变量x的值","输入窗口"）
y=InputBox（"请输入变量y的值","输入窗口"）
Printx+y
EndSub
14.运行下列程序，单击命令按钮后，在窗体上输出结果为___91215___。
OptionBase1
PrivateSubCommand1_Click（）
Dima（3,3）,s（3）
Dimx,i%
15.Fori=1To3
s（i）=0
Forj=1To3
a（i,j）=i+j
s（i）=s（i）+a（i,j）
Nextj
Nexti
ForEachxIns
升级会员 