期末VB程序填空+设计.docx
- 文档编号:9344972
- 上传时间:2023-05-18
- 格式:DOCX
- 页数:112
- 大小:45.50KB
期末VB程序填空+设计.docx
《期末VB程序填空+设计.docx》由会员分享,可在线阅读,更多相关《期末VB程序填空+设计.docx(112页珍藏版)》请在冰点文库上搜索。
期末VB程序填空+设计
程序设计
1题目:
由输入对话框输入n(n必须为大于零且小于30的自然数),计算下列表达式的值,并在标签框label1上显示。
Sum=1/2+1/6+……+1/(k*(k+1)) (k<=n)
Privatesubform_click()
Dimnasinteger,sumasdouble,kasinteger
N=val(inputbox(“n=”,”请输入自然数n(n>0且n<30)”))
Dowhilen<=0!
!
!
!
n>30 or
N=val(inputbox(“n=”,”请重新输入”))
Loop
Sum=0
K=0
Do
K=!
!
!
!
k+1
Sum=sum+1/(k*(k+1))
Loopuntil!
!
!
!
(k+1)>n
Label1.caption=“sum”+str(sum)
Endsub
2题目:
下面的程序用于打印出以下图形。
程序代码:
Privatesubform_click()
Dimi%,j%,k%
ForI=3to0step-1
Forj=0to2*i
Print“”;
Nextj
Fork=5to!
!
!
!
11-2*i
Print“*”;
Nextk
Nexti
ForI=0to3
Forj=0to2*I+2
!
!
!
!
print“”;
Nextj
Fork=0to4-2*i
Print“*”;
Nextk
!
!
!
!
Nexti
Endsub
3题目:
以下程序段用于实现:
输入两个正整数m和n,求其最大公因数和最小公倍数。
程序代码:
Privatesubform_click()
Dima%,b%,num1%,num2%,temp
Num1=inputbox(“请输入一个正整数”)
Num2=inputbox(“请输入一个正整数”)
If!
!
a
!
then
Temp=num1:
num1=num2:
num2=temp
Endif
A=num1
B=num2
Dowhile!
!
amodb<>0!
!
Temp=amodb
A=b
!
!
b=temp!
!
Loop
Print“最大公约数为:
”;b
Print”最小公倍数为:
”;num1*num2/b
Endsub
4题目:
窗体上建立一个文本框text1,用于显示结果。
单击按钮弹出输入对话框,录入0-6之间的数值,判断输出值为星期几。
程序代码:
Privatesubcommand1_click()
Dimxasinteger
X=val(!
!
inputbox!
!
(“请输入星期几(0~6)”))
Selectcase!
!
x!
!
Caseis=0
Text1.text=“星期日”
Caseis=1
Text1.text=“星期1”
Caseis=2
Text1.text=“星期2”
Caseis=3
Text1.text=“星期3”
Caseis=4
Text1.text=“星期4”
Caseis=5
Text1.text=“星期5”
Caseis=6
Text1.text=“星期6”
Case !
!
else!
!
Text1.text=“输入错误”
Endselect
5题目:
下面的时间过程判断文本框text1中输入的数所在区间,并在文本框text2中输出判断结果。
程序代码:
privatesubcommand1_click()
Dimint1asinteger
!
!
int1!
!
=val(text1.text)
Selectcaseint1
Case0
Text2.text=“值为0”
Case!
!
1to10!
!
Text2.text=“值在1和10之间(包括1和10)”
CaseIs>!
!
10!
!
Text2.text=“值大于10”
Caseelse
Text2.text=“值小于0”
Endselect
Endsub
OptionExplicit
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目:
程序输出结果为:
n=3x=42y=9
'请在【?
】处填入正确的内容
'-------------------------------------------------------
'
PrivateSubCommand1_Click()
Dimn,x,yAsInteger
'**********SPACE**********
n=0:
x=【1】:
y=0
DoWhilex<20
'**********SPACE**********
n=n【+1】
y=x+y
x=x*(x+1)
'**********SPACE**********
【loop】
Form1.Print"n="&Str(n)
Form1.Print"x="&Str(x)
Form1.Print"y="&Str(y)
EndSub
OptionExplicit
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目:
窗体上建立了一个文本框Text1,用于显示结果。
'单击按钮弹出输入对话框录入0-6之间的数值,
'判断输入值为星期几
'请在【?
】处填入正确的内容
'-------------------------------------------------------
'
PrivateSubCommand1_Click()
DimxAsInteger
'**********SPACE**********
x=Val(【inputbox】("请输入星期几(0~6)"))
'**********SPACE**********
SelectCase【x】
CaseIs=0
Text1.Text="星期日(Sunday)"
CaseIs=1
Text1.Text="星期一(Monday)"
CaseIs=2
Text1.Text="星期二(Tuesday)"
CaseIs=3
Text1.Text="星期三(Wednesday)"
CaseIs=4
Text1.Text="星期四(Thursday)"
CaseIs=5
Text1.Text="星期五(Friday)"
CaseIs=6
Text1.Text="星期六(Saturday)"
'**********SPACE**********
Case【else】
Text1.Text="输入错误"
EndSelect
EndSub
OptionExplicit
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目:
窗体中有Text1-Text7共7个文本框,单击按钮Command1在
'Text7中显示前6个文本框中的数值的最大数
'请在【?
】处填入正确的内容
'-------------------------------------------------------
'
PrivateSubCommand1_Click()
Dima,b,c,d,e,f,mAsInteger
a=Val(Text1.Text):
b=Val(Text2.Text):
c=Val(Text3.Text)
d=Val(Text4.Text):
e=Val(Text5.Text):
f=Val(Text6.Text)
Callmax(a,b,c,m)
Callmax(m,d,e,m)
Callmax(m,f,f,m)
'**********SPACE**********
Text7.Text=【m】
EndSub
'**********SPACE**********
Submax(x,y,z【z】)
Ifx>yThen
m=x
Else
m=y
EndIf
'**********SPACE**********
Ifm<【str(m)】Then
m=z
EndIf
EndSub
OptionExplicit
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目:
窗体上建立了两个文本框Text1(输入字符串)及
'Text2(转换结果),一个命令按钮Command1("清除")。
'录入Text1内容时将,将录入内容大写字母转为小写,
'小写转为大写
'请在【?
】处填入正确的内容
'-------------------------------------------------------
'
PrivateSubCommand1_Click()
Text1.Text=""
Text2.Text=""
Text1.SetFocus
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
DimsAsString*1
'**********SPACE**********
s=【chr】(KeyAscii)
SelectCases
'**********SPACE**********
Case"A"【to】"Z"
s=LCase(s)
Case"a"To"z"
'**********SPACE**********
s=【ucase(s)】
CaseElse
s="*"
EndSelect
Text2.Text=Text2.Text+s
EndSub
'下面的程序段,用于实现在一个nXm的矩阵中,找出值最大的元素
'所在的行和列,并输出其值及行号和列号。
'
PrivateSubForm_Click()
Dimmat()AsInteger
DimnAsInteger,mAsInteger
n=Val(InputBox("请输入矩阵的行数"))
m=Val(InputBox("请输入矩阵的列数"))
'**********SPACE**********
【redimmat(n,m)】
Fori=1Ton
Forj=1Tom
mat(i,j)=InputBox("请输入数组元素值")
mat(i,j)=Val(mat(i,j))
Nextj
Nexti
Print"所建立的矩阵为"
Fori=1Ton
Forj=1Tom
Printmat(i,j);
Nextj
Nexti
Max=mat(1,1)
Fori=1Ton
Forj=1Tom
'**********SPACE**********
If【max Max=mat(i,j) col=j '**********SPACE********** 【row=I】 EndIf Nextj Nexti Print Print"矩阵最大的元素的值为: ";mat(row,col) Print"它所在的行号为: ";row;"列号为: ";col EndSub OptionExplicit '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '题目: 在窗体上画一个标签(名称为Label1)和一个 '计时器(名称为Timer1),然后编写如下几个事件过程: '要求: 每一秒钟Label1更新显示一次系统时间 '请在【? 】处填入正确的内容 '------------------------------------------------------- ' PrivateSubForm_Load() Timer1.Enabled=False '**********SPACE********** Timer1.Interval=【1000】 EndSub PrivateSubForm_Click() '**********SPACE********** Timer1.Enabled=【true】 EndSub PrivateSubTimer1_Timer() '**********SPACE********** Label1.Caption=【now】 EndSub OptionExplicit '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '题目: 写出程序运行后,单击窗体,Form1上显示的内容 'sum函数的功能为求阶乘和 'isum=1 'isum=3 'isum=6 'isum=10 'isum=15 '请在【? 】处填入正确的内容 '------------------------------------------------------- ' PrivateSubForm_Click() DimIAsInteger,isumAsInteger '**********SPACE********** ForI=1To【5】 isum=sum(I) '**********SPACE********** Form1.Print"isum="【+isum】 NextI EndSub PrivateFunctionsum(nAsInteger) StaticjAsInteger '**********SPACE********** 【j=】j+n sum=j EndFunction '以下程序段用于输出杨辉三角: 结果样式如图1 ' PrivateSubForm_Click() Constn=10 Dimarr(n,n)AsInteger ForI=1Ton arr(I,I)=1 '**********SPACE********** 【arr(i,1)=1】 NextI ForI=3Ton Forj=2ToI-1 '**********SPACE********** arr(i,j)=【arr(I-1,j-1)+arr(I-1,j)】 Nextj NextI ForI=1Ton Forj=1ToI '**********SPACE********** 【printarr(i,j)】 Nextj Print NextI EndSub OptionExplicit '下面过程max()用于求3个数中最大值,利用这个过程求5个数中最大值。 ' PrivateSubForm_Click() Print"5个数34、124、68、73、352的最大值是: " max1=max(34,124,68) '**********SPACE********** max1=【max(max1,73,352) Printmax1 EndSub PublicFunctionmax(ByVala%,ByValb%,ByValc%) '**********SPACE********** If【a>b】Then m=a Else m=b EndIf '**********SPACE********** If【m>c】Then max=m Else max=c EndIf EndFunction '下面的程序实现: 从键盘输入一个数字,将其插入一个有序数组中,插入后的数组仍保持有序。 ' '请在【】处填入正确的内容? PrivateSubForm_Click() Dima(10)AsInteger,xAsInteger Fori=1To8 a(i)=2*i-1 Printa(i); Nexti Print x=InputBox("请输入要插入的整数") '**********SPACE********** 【a(0)=x】 i=8 DoWhilea(i)>x '**********SPACE********** 【a(i+1)=a(i) i=i-1 Loop '**********SPACE********** Ifi>0Then【a(i+1)=x】 Fori=1To9 Printa(i); Nexti EndSub '根据输入的学习成绩,分别显示优秀(90分以上),良好(75分以上), '及格(60分以上),不及格几个等级。 ' '请在【】处填入正确的内容? PrivateSubCommand1_Click() X=Val(Text1.Text) IfX>=90Then Print"优秀" '**********SPACE********** ElseIfX>=75Then Print"良好" ElseIfX>=60Then '**********SPACE********* 【print"及格" '**********SPACE********** 【else】 Print"优秀" EndIf EndSub '下面的程序段用于实现以下功能: 利用冒泡法将一组整数从小到大排序? ' PrivateSubForm_Click() Constn=15 Dima(1Ton)AsInteger,workAsBoolean DimiAsInteger,jAsInteger,xAsInteger Randomize Fori=1Ton a(i)=Int(90*Rnd)+10 Nexti Fori=1Ton Printa(i); Nexti Print '**********SPACE********** Fori=nTo2【step-1】 work=True Forj=1Toi-1 Ifa(j)>a(j+1)Then x=a(j): a(j)=a(j+1): a(j+1)=x '**********SPACE********** 【work=false】或者【work=0】 EndIf Nextj '**********SPACE********** IfworkThen【exitfor】 Nexti Fori=1Ton Printa(i); Nexti EndSub OptionExplicit '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '题目: 在窗体上建立两个文本框Text1(输入数)及Text2(显示结果), '一个命令按钮Command1("判断")。 单击按钮时判断Text1中输入的数值 '是否是4的倍数。 '请在【? 】处填入正确的内容 '------------------------------------------------------- ' PrivateSubCommand1_Click() DimxAsInteger '**********SPACE********** IfIsNumeric(Text1.Text)=【false
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 期末 VB 程序 填空 设计