最新VB编程题目及答案文档格式.docx
- 文档编号:22108468
- 上传时间:2023-02-02
- 格式:DOCX
- 页数:20
- 大小:20.85KB
最新VB编程题目及答案文档格式.docx
《最新VB编程题目及答案文档格式.docx》由会员分享,可在线阅读,更多相关《最新VB编程题目及答案文档格式.docx(20页珍藏版)》请在冰豆网上搜索。
输入“ASDFGT”,显示“TGFDSA”
19.随机产生10个[30,100]内的整数,求最大值及所对应的下标
20.随机产生10个[30,100]内的整数,求最大值、最小值和平均值。
21.随机产生10个[30,100]内的整数,求最小值及所对应的下标。
22.随机生成一个整型的二维数组,范围在[10,20]之间,以下三角形式输出该数组。
23.随机产生10个1~100的正整数放入数组,显示产生的数,求最大值、最小值、平均值。
24.利用随机函数生成一个4×
4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所有数据之和
25.已知有序数组a(),编程插入x(x的值为14)。
数组a中的元素分别为{12,6,4,89,75,63,100,20,31}。
26.编写一函数,计算Double类型一维数组所有元素的平均值。
27.用函数过程求表达式1+1/2+1/3+1/4+…+1/n的和.
28.编一子过程ProcMin,求一维数组a中的最小值,子过程的形参自己确定。
29.编一个函数,求一维数组a中的最大值,函数的形参自己确定。
30.编写一个过程计算并输出区间[100,1000]内所有素数的和(要求判断素数使用过程(函数或子过程)来实现。
调用该过程。
(提示:
只能被1和自身整除的自然数称为素数。
)
(注:
本答案第一行代码应在题目之后,自行调整)
PrivateSubCommand11_Click()
'
Dimmax%
X1=Val(InputBox("
input"
))
X2=Val(InputBox("
x3=Val(InputBox("
max=X1
Ifmax<
=X2Then
max=X2
EndIf
=x3Then
max=x3
MsgBox("
3个数之中的最大数max="
&
max)
EndSub
PrivateSubCommand12_Click()
2.'
有一元二次方程:
a=Val(InputBox("
B=Val(InputBox("
c=Val(InputBox("
s=B^2-4*a*c
Ifa<
>
0Then
Ifs=0Then
两个相等实根"
ElseIfs>
两个不相等实根"
ElseIfs<
两个不相等虚根"
Else
无解"
PrivateSubCommand13_Click()
3.输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示"
恭喜!
"
,若小于60,则弹出消息框,显示"
抱歉!
X=Val(InputBox("
IfX>
=60Then
PrivateSubCommand14_Click()
yes=Val(InputBox("
year"
IfyesMod4=0AndyesMod100<
0OryesMod400=0Then
MsgBox(yes&
"
是闰年"
不是闰年"
PrivateSubCommand15_Click()
score=Val(InputBox("
SelectCasescore
CaseIs>
=90
MsgBox("
优秀"
CaseIs>
=80
良好"
=70
中"
=60
及格"
CaseElse
不及格"
EndSelect
PrivateSubCommand16_Click()
a="
645"
n=Len(a)
Fori=1ToInt(n/2)
c=Mid(a,i,1)
Mid(a,i,1)=Mid(a,n-i+1,1)
Mid(a,n-i+1,1)=c
Nexti
MsgBox(a)
PrivateSubCommand1_Click()
7.输入两个整数,求它们的最大公约数
m=Val(InputBox("
inputm值"
n=Val(InputBox("
inputn值"
Ifn>
mThen
t=n
n=m
m=t
r=mModn
DoWhiler<
0
m=n
n=r
Loop
最大公约数="
n)
PrivateSubCommand2_Click()
Dimsum1%,sum2%
sum1=0:
sum2=0
Fori=200To400
IfiMod5=0Then
sum1=sum1+i
ElseIfiMod7=0Then
sum2=sun2+i
Debug.Printi,sum1,sum2
5的倍数之和sum="
sum1)
7的倍数之和sum="
sum2)
PrivateSubCommand3_Click()
Dimsum%
sum=0
Fori=100To300
IfiMod3=0AndiMod7=0Then
sum=sum+i
sum="
sum)
PrivateSubCommand4_Click()
10.分别统计1-100中,满足3的倍数、7的倍数的数各有多少
m=0:
n=0
Fori=1To100
IfiMod3=0Then
n=n+1
m=m+1
3的倍数个数="
7的倍数个数="
m)
PrivateSubCommand5_Click()
如果分别输入7个评委对某个参赛者的打分数,按照去掉一个最高分和一个最低分的计算办法,求出该参赛者的平均得分
Dimsum%,max%,min%
sum=0:
max=0:
min=999
Fori=1To7
=XThen
max=X
Ifmin>
min=X
sum=sum+X
Avg=(sum-max-min)/5
最高分="
最低分="
min)
总和="
平均分="
Avg)
PrivateSubCommand10_Click()
DimchAsString
ch="
ASDEAS"
n=0
Fori=1ToLen(ch)
st=Mid(ch,i,1)
IfUCase(st)="
A"
Then
字符串中出现A字符的系数"
PrivateSubCommand6_Click()
X=13
DoWhileX<
=26
X=X*1.008
MsgBox(n)
PrivateSubCommand7_Click()
X=1
Fori=6To1Step-1
X=(X+1)*2
MsgBox(X)
PrivateSubCommand8_Click()
flag=1
Forj=2Toi-1
IfiModj=0Then
flag=0
Nextj
Ifflag=1Then
MsgBox(i&
是素数"
PrivateSubCommand9_Click()
ForX=0To33
Fory=0To50
z=100-X-y
If3*X+2*y+0.5*z=100Then
PrintX,y,z
Nexty
NextX
PrivateSubCommand20_Click()
Dimf(11)AsInteger
f(0)=1
f
(1)=1
Fori=2To10
f(i)=f(i-1)+f(i-2)
Fori=0To10
Printf(i);
PrivateSubCommand21_Click()
输入"
ASDFGT"
,显示"
TGFDSA"
Dims(10)AsString
Fori=0To9
s(i)=InputBox("
Fori=9To0Step-1
Prints(i)
PrivateSubCommand22_Click()
Dima(10)AsInteger,max%
a(i)=Int(Rnd*71+30)
max=a(0)
maxi=0
Fori=1To9
Ifa(i)>
=maxThen
max=a(i)
maxi=i
max="
maxi="
maxi)
PrivateSubCommand23_Click()
Dima(10)AsInteger,max%,min%
min=a(0)
min=a(i)
sum=sum+a(i)
min="
avg="
sum/10)
PrivateSubCommand17_Click()
Dima(10)AsInteger
Mini=0
Ifa(i)<
=minThen
Mini=i
mini="
Mini)
PrivateSubCommand18_Click()
Dima(10,10)AsInteger
Forj=0To9
a(i,j)=Int(Rnd*11+10)
Forj=0Toi
Printa(i,j),
PrivateSubCommand19_Click()
a(i)=Int(Rnd*100+1)
Printa(i)
PrivateSubCommand24_Click()
Dima(4,4)AsInteger
Dimsum%,i%,j%
Fori=0To3
Forj=0To3
a(i,j)=Int(Rnd*31+20)
sum=sum+a(i,j)
PrivateSubCommand25_Click()
Dima(),iMin%,n%,i%,j%,t%
a=Array(2,6,4,89,75,63,100,20,31)
X=14
n=UBound(a)'
获得数组的下标上界
Fori=0Ton-1'
进行n-1轮比较
iMin=i'
对第i轮比较时,初始假定第i个元素最小
Forj=i+1Ton'
在数组i+1~n个元素中选最小元素的下标
Ifa(j)<
a(iMin)TheniMin=j
Nextj
t=a(i)'
i+1~n个元素中选出的最小元素与第i个元素交换
a(i)=a(iMin)
a(iMin)=t
Nexti
Fork=0Ton'
查找欲插入数x在数组中的位置
IfX<
a(k)ThenExitFor
Nextk
ReDimPreservea(n+1)'
数组增加一个元素
Fori=nTokStep-1'
数组元素后移一位,腾出位置
a(i+1)=a(i)
a(k)=X
Fori=0Ton+1
Printa(i);
Next
PrivateSubCommand26_Click()
Dima(),n%,s!
a=Array(1,4,7,9,12,23,56)
n=UBound(a)
s=sum1(a())
s)
s/n)
PrivateSubCommand27_Click()
n=InputBox("
INPUT"
s=sum2(n)
SUM2="
PrivateSubCommand28_Click()
28.编一子过程ProcMin,求一维数组a中的最小值,子过程的形参自己确定
Dima(),n%,min%
a=Array(1,4,7,9,12,-23,56)
Callprocmin(a(),min)
PrivateSubCommand29_Click()
s=max(a())
加拿大beadworks公司就是根据年轻女性要充分展现自己个性的需求,将世界各地的珠类饰品汇集于“碧芝自制饰品店”内,由消费者自选、自组、自制,这样就能在每个消费者亲手制作、充分发挥她们的艺术想像力的基础上,创作出作品,达到展现个性的效果EndSub
他们的成功秘诀在于“连锁”二字。
凭借“连锁”,他们在女孩们所喜欢的小玩意上玩出了大名堂。
小店连锁,优势明显,主要有:
(1)位置的优越性PrivateSubCommand30_Click()
(2)东西全Dimi%,sum!
f%
我们熟练的掌握计算机
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 最新 VB 编程 题目 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)