江苏师范大学VB程序设计习题集大题答案Word下载.docx
- 文档编号:18982926
- 上传时间:2023-01-02
- 格式:DOCX
- 页数:13
- 大小:167.81KB
江苏师范大学VB程序设计习题集大题答案Word下载.docx
《江苏师范大学VB程序设计习题集大题答案Word下载.docx》由会员分享,可在线阅读,更多相关《江苏师范大学VB程序设计习题集大题答案Word下载.docx(13页珍藏版)》请在冰豆网上搜索。
(界面如图所示)
Fori=1To9
Forj=1Toi
PrintStr(i)&
"
&
x"
Str(j)&
="
Str(i*j)&
Space
(2);
Nextj
Nexti
4、编写程序,对输入的学生成绩给出五级评分。
要求:
学生成绩由文本框(Text1)输入,结果显示在标签(Label1)中。
评分标准如下:
优90≤成绩≤100
良80≤成绩<
90
中70≤成绩<
80
及格60≤成绩<
70
不及格0≤成绩<
60
If90<
=mAndm<
=100Then
Label1.Caption="
优"
ElseIf80<
90Then
良"
ElseIf70<
80Then
中"
ElseIf60<
70Then
及格"
ElseIf0<
60Then
不及格"
5、编写程序求
的值,要求结果显示在窗体上。
Fori=1To100
s=s+i
Forj=1To50
m=m+j^2
Sum=s+m
PrintSum
6、随机生成15个100以内的正整数并显示在一个文本框(Text1)中,再将所有对称位置的两个数据对调后显示在另一个文本框(Text2)中(第1个数与第15个数对调,第2个数与第14个数对调,……,第7个数与第9个数对调)。
Optionbase1
Text1="
"
Text2="
Dima(15)AsInteger
Fori=1To15
a(i)=Int(101*Rnd)
Text1=Text1&
Str(a(i))
Forj=1To15
Ifj<
8Then
t=a(j)
a(j)=a(16-j)
a(16-j)=t
Text2=Text2&
Str(a(j))
7、随机生成20个两位正整数显示在一个文本框(Text1)中,并求出它们的平均值显示在另一个文本框(Text2)中。
OptionBase1
Dima(20)AsInteger
Fori=1To20
a(i)=Int(90*Rnd+10)
s=s+a(i)
Text2=s/20
8、随机生成50个三位正整数显示在一个文本框中(Text1)中,并将它们逆序显示在另一个文本框(Text2)中。
Dima(50)AsInteger
Fori=1To50
a(i)=Int(900*Rnd+100)
26Then
a(j)=a(51-j)
a(51-j)=t
9、用InputBox函数输入10个数到数组A中,输入后将这10个数显示在一个文本框(Text1)中,并计算其中所有正数的和,将结果显示在另一个文本框(Text2)中。
Dima(10),sAsInteger
Fori=1To10
a(i)=Val(InputBox("
))
Ifa(i)>
0Then
Next
Text2=s
10、生成100个[0,100]之间的随机整数存于数组A中,并将它们显示在一个文本框(Text1)中,在数组A中查找指定的元素Number。
Number用InputBox函数输入,查找结果显示在窗体上。
Dima(100),sAsInteger
DimnumberAsInteger
number=InputBox("
)
Printa(number)
PrivateSubForm_Load()
11、编程求由一位随机整数构成的4×
5二维数组A的每一列元素的和。
Dima(4,5),s1,s2,s3,s4,s5AsInteger
Fori=1To4
Forj=1To5
a(i,j)=Int(9*Rnd+1)
Ifj=1Then
s1=s1+a(i,1)
Ifj=2Then
s2=s2+a(i,2)
Ifj=3Then
s3=s3+a(i,3)
Ifj=4Then
s4=s4+a(i,4)
Ifj=5Then
s5=s5+a(i,5)
Picture1.Printa(i,j);
Picture1.Print
Text1=Str(s1)&
Str(s2)&
Str(s3)&
Str(s4)&
Str(s5)
12、单击命令按钮command1时,生成包含[1,9]之间随机整数的两个5*5矩阵,分别显示在图片框Picture1和Picture2中,并求两个矩阵之和显示在图片框Picture3中。
Dima(5,5),b(5,5),c(5,5)AsInteger
Fori=1To5
b(i,j)=Int(9*Rnd+1)
c(i,j)=a(i,j)+b(i,j)
Picture2.Printb(i,j);
Picture3.Printc(i,j);
Picture2.Print
Picture3.Print
13、编写程序,在窗体上打印出如图所示的杨辉三角形。
行数由用户指定。
Dima(),nAsInteger
n=InputBox("
ReDima(n,n)
Fori=1Ton
Ifi=jOrj=1Then
a(i,j)=1
a(i,j)=a(i-1,j-1)+a(i-1,j)
PrintFormat(a(i,j),"
@@@@@!
);
14、随机生成一个由两位正整数构成的5行5列矩阵显示在窗体上,并求出该矩阵中两条对角线元素之和。
Dima(5,5),s1,s2AsInteger
a(i,j)=Int(90*Rnd+10)
Printa(i,j);
Ifi=jThen
s1=s1+a(i,j)
Ifi+j=6Then
s2=s2+a(i,j)
Prints1,s2
15、随机生成一个由两位正整数构成的6行6列矩阵显示在窗体上,并求出该矩阵中所有元素之和。
Dima(6,6),s1AsInteger
Fori=1To6
Forj=1To6
Prints1
16、编写一个求1+2+3+…+n的函数,单击命令按钮(Command1)时调用该函数求1+2+3+4+5的值,结果显示在一个文本框(Text1)中。
Text1=s(5)
Functions(nAsInteger)AsInteger
EndFunction
17、编写程序,判断一个数N是否是奇数。
要求使用通用过程。
m=InputBox("
s(m)
Functions(nAsInteger)AsString
IfnMod2=1Then
是奇数"
不是奇数"
18、编写求表达式
的值的Function过程。
Functionss(x,y,zAsInteger)AsSingle
ss=Sqr(Abs(x^3+y^3+z^3))
19、编写一个摄氏温度与华氏温度转换的通用过程。
在一个文本框(Text1)中输入摄氏温度,单击命令按钮command1时调用该通用过程在另一个文本框(Text2)中显示对应的华氏温度。
摄氏温度(C)与华氏温度(F)转换的公式是:
。
DimnAsInteger
n=Val(Text1)
Text2=Format(s(n),"
00.0"
Functions(mAsInteger)AsSingle
s=m*9/5+32
20、编写一个判断某正整数N是否是完数的通用过程。
完数:
一个数恰好等于它的因子之和(除自身),如:
6=1+2+3,因此6是完数。
Functionf(nAsInteger)AsString
Fori=1Ton/2
IfnModi=0Then
Ifs=nThen
是完数"
不是完数"
21、编写一个求正整数m和正整数n的最大公约数的函数。
Functionff(m,nAsInteger)AsInteger
DimrAsInteger
r=mModn
DoWhiler<
>
0
m=n
n=r
Loop
ff=n
22、编写一个对数组元素进行排序的通用过程
Functionff(b()AsInteger)AsInteger
Forj=i+1To10
Ifb(i)>
b(j)Then
t=b(i)
b(i)=b(j)
b(j)=t
Str(b(i))
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 江苏 师范大学 VB 程序设计 习题集 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)