Ifmin>a(i)Thenmin=a(i)
Nexti
Print
Form1.ForeColor=vbBlack
Print"max="&max
Print"min="&min
Print"aver="&s/20
EndSub
4、产生10个随机两位正整数,放入一数组中,并按从小到大的顺序排列。
在窗体上输出原数据及排列后的数据。
运行效果如下图所示:
PrivateSubForm_Click()
Dima(10)AsInteger,iAsInteger,jAsInteger,bAsInteger
Print"排序前的数据:
"
Fori=1To10
a(i)=Int(Rnd*(99-10+1))+10
Printa(i);
Nexti
Print
Fori=1To9
Forj=i+1To10
Ifa(i)>a(j)Then
b=a(i)
a(i)=a(j)
a(j)=b
EndIf
Nextj
Nexti
Print"排序后的数据:
"
Fori=1To10
Printa(i);
Nexti
EndSub
5、新建一个工程,完成应用程序的设计。
具体要求如下:
(1)按照下图所示在窗体上放置控件。
建立一个文本框和两个命令按钮。
(2)在文本框中输入内容,单击“开始”后,把文本框中的字符按从小到大排列输出在窗体上,按结束退出应用程序。
text1.Multiline=truetext1.ScrollBars=3文本框滚动条
PrivateSubCommand1_Click()
Dima()AsString,iAsInteger,jAsInteger,bAsString,nAsInteger
n=Len(Text1.Text)
ReDima(1Ton)
Fori=1Ton
a(i)=Mid(Text1.Text,i,1)
Nexti
Fori=1Ton-1
Forj=i+1Ton
Ifa(i)>a(j)Then
b=a(i)
a(i)=a(j)
a(j)=b
EndIf
Nextj
Nexti
Fori=1Ton
Printa(i);
Nexti
EndSub
6、建立一个5行5列二维数组,要求对角线为1,其余元素为0。
运行结果如图所示。
PrivateSubForm_Click()
Dima(5,5)AsInteger,iAsInteger,jAsInteger
Fori=1To5
Forj=1To5
Ifi=jOri+j=6Then
a(i,j)=1
Else
a(i,j)=0
EndIf
Printa(i,j);
Nextj
Print放在Nextj下面换行效果
Nexti
EndSub
7、建立一个5行5列二维数组,要求右上三角元素(含对角线)为1,其余元素为0。
PrivateSubForm_Click()
Dima(5,5)AsInteger,iAsInteger,jAsInteger
Fori=1To5
Forj=1To5
Ifi<=jThena(i,j)=1
Nextj
Nexti
Fori=1To5
Forj=1To5
Printa(i,j);
Nextj
Print
Nexti
EndSub
8、编制程序,用随机函数产生20个两位数的整数,存于4行5列的二维数组中,将数组按矩阵形式输出到窗体,并求出其最大元素及最大元素的行、列坐标。
PrivateSubForm_Click()
Dima(4,5)AsInteger,maxAsInteger,iAsInteger,jAsInteger,hAsInteger,lAsInteger
Randomize
Fori=1To4
Forj=1To5
a(i,j)=Int(Rnd*(99-10+1))+10
Printa(i,j);
Nextj
Print
Nexti
max=a(1,1)
h=1
l=1
Fori=1To4
Forj=1To5
Ifa(i,j)>maxThen
max=a(i,j)
h=i
l=j
EndIf
Nextj
Nexti
Print"最大元素为:
";max;"位于第";h;"行";l;"列"
EndSub
9、编制通用函数过程,计算1+2+……+N的值。
在窗体的Click事件中调用该函数。
PrivateFunctionsum(nAsInteger)AsInteger
DimiAsInteger
Fori=1Ton
sum=sum+i
Nexti
EndFunction
PrivateSubForm_Click()
DimnAsInteger
n=InputBox("请输入N的值")
Print"1+……+"&n&"的和是"&sum(n)
EndSub
10、编制通用函数过程,计算N!
的值。
在窗体的Click事件中调用该函数。
PrivateFunctions(nAsInteger)AsDouble
DimiAsInteger
s=1
Fori=1Ton
s=s*i
Nexti
EndFunction
PrivateSubForm_Click()
DimnAsInteger
n=InputBox("请输入N的值")
Prints(n)
EndSub
11、编制通用函数过程,用于判断1个整数是否为素数,若是则显示true,若不是则显示false。
在窗体的Click事件中调用该函数。
PrivateFunctionsushu(nAsInteger)AsBoolean
DimiAsInteger
Ifn<2Then
sushu=False
Else
Fori=2ToInt(Sqr(n))‘int求不大于这个数的最大整数int(3.5)=3int(-3.5)=-4sqr平方这个数如果能被自己的平方根整除那它一定是素数
IfnModi=0ThenExitFor
Nexti
Ifi>Int(Sqr(n))Then
sushu=True
Else
sushu=False
EndIf
EndIf
EndFunction
PrivateSubForm_Click()
Dimnasinteger
n=inputbox(“请输入N的值”)
printsushu(n)
EndSub
12、编制一个判断奇偶数的Function函数过程。
在窗体的Click事件中调用该函数,输入一个整数,判断其奇偶性。
PrivateSubForm_Click()
DimnAsInteger
n=InputBox("请输入要判断的n的值")
Ifa(n)=TrueThen
Printn&"是奇数"
Else
Printn&"是偶数"
EndIf
EndSub
PrivateFunctiona(nAsInteger)AsBoolean
IfnMod2=0Then
a=False
Else
a=True
EndIf
EndFunction
13、新建一个工程,完成应用程序的设计,具体要求如下:
(1)按照下图所示在窗体上放置按钮和控件。
(2)取消窗体的最大化和最小化按钮。
(3)当单击命令按钮时,实现窗口放大功能,放大后再单击该按钮则还原窗口。
(4)同时可使用热键Alt+L和Alt+B实现窗口放大或还原。
(5)当窗体大小改变后,总是让命令按钮位于窗口的中央。
PrivateSubCommand1_Click()
IfCommand1.Capti