VB本科期末上机考试练习题答案Word格式文档下载.docx
《VB本科期末上机考试练习题答案Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VB本科期末上机考试练习题答案Word格式文档下载.docx（45页珍藏版）》请在冰豆网上搜索。
DimiAsInteger,a（20）AsInteger,maxAsInteger
原始数据为：
"
max=0
Fori=1To20
a（i）=Int（Rnd*（400-200+1））+200
Printa（i）;
IfiMod5=0ThenPrint
Ifmax<
a（i）Thenmax=a（i）
最大值为：
max
EndSub
3、产生20个两位的随机整数，输出这20个数（以每行5个的形式输出这20个数，其中的偶数用红色显示），找出其中的最大值和最小值，计算并输出平均值。
Dima（20）AsInteger,iAsInteger,maxAsInteger,minAsInteger,sAsInteger
原数组为：
min=100
Form1.ForeColor=vbBlack
Ifa（i）Mod2=0Then
Form1.ForeColor=vbRed
Else
EndIf
先变色，再输出
IfiMod5=0ThenPrint
Ifmin>
a（i）Thenmin=a（i）
Print
max="
min="
min
aver="
s/20
4、产生10个随机两位正整数，放入一数组中，并按从小到大的顺序排列。
在窗体上输出原数据及排列后的数据。
Dima（10）AsInteger,iAsInteger,jAsInteger,bAsInteger
Print"
排序前的数据：
Fori=1To9
Forj=i+1To10
Ifa（i）>
a（j）Then
b=a（i）
a（i）=a（j）
a（j）=b
Nextj
排序后的数据：
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）
Fori=1Ton-1
Forj=i+1Ton
6、建立一个5行5列二维数组，要求对角线为1，其余元素为0。
运行结果如图所示。
Dima（5,5）AsInteger,iAsInteger,jAsInteger
Fori=1To5
Forj=1To5
Ifi=jOri+j=6Then
a（i,j）=1
a（i,j）=0
Printa（i,j）;
Print放在Nextj下面换行效果
7、建立一个5行5列二维数组，要求右上三角元素（含对角线）为1，其余元素为0。
Dima（5,5）AsInteger,iAsInteger,jAsInteger
Fori=1To5
Ifi<
=jThena（i,j）=1
Nexti
8、编制程序，用随机函数产生20个两位数的整数，存于4行5列的二维数组中，将数组按矩阵形式输出到窗体，并求出其最大元素及最大元素的行、列坐标。
Dima（4,5）AsInteger,maxAsInteger,iAsInteger,jAsInteger,hAsInteger,lAsInteger
Randomize
Fori=1To4
a（i,j）=Int（Rnd*（99-10+1））+10
max=a（1,1）
h=1
l=1
Ifa（i,j）>
maxThen
max=a（i,j）
h=i
l=j
最大元素为:
"
;
max;
位于第"
h;
行"
l;
列"
9、编制通用函数过程，计算1+2+……+N的值。
在窗体的Click事件中调用该函数。
PrivateFunctionsum（nAsInteger）AsInteger
DimiAsInteger
sum=sum+i
EndFunction
DimnAsInteger
n=InputBox（"
请输入N的值"
）
1+……+"
n&
的和是"
sum（n）
10、编制通用函数过程，计算N！
的值。
PrivateFunctions（nAsInteger）AsDouble
s=1
s=s*i
n=InputBox（"
请输入N的值"
Prints（n）
11、编制通用函数过程，用于判断1个整数是否为素数，若是则显示true，若不是则显示false。
PrivateFunctionsushu（nAsInteger）AsBoolean
DimiAsInteger
Ifn<
2Then
sushu=False
Fori=2ToInt（Sqr（n））‘int求不大于这个数的最大整数int（3.5）=3int（-3.5）=-4sqr平方这个数如果能被自己的平方根整除那它一定是素数
IfnModi=0ThenExitFor
Ifi>
Int（Sqr（n））Then
sushu=True
Dimnasinteger
n=inputbox（“请输入N的值”）
printsushu（n）
12、编制一个判断奇偶数的Function函数过程。
在窗体的Click事件中调用该函数，输入一个整数，判断其奇偶性。
请输入要判断的n的值"
Ifa（n）=TrueThen
Printn&
是奇数"
是偶数"
PrivateFunctiona（nAsInteger）AsBoolean
IfnMod2=0Then
a=False
a=True
13、新建一个工程，完成应用程序的设计，具体要求如下：
（1）按照下图所示在窗体上放置按钮和控件。
（2）取消窗体的最大化和最小化按钮。
（3）当单击命令按钮时，实现窗口放大功能，放大后再单击该按钮则还原窗口。
（4）同时可使用热键Alt+L和Alt+B实现窗口放大或还原。
（5）当窗体大小改变后，总是让命令按钮位于窗口的中央。
IfCommand1.Capti
升级会员 