整理交院VB程序设计.docx
- 文档编号:29910742
- 上传时间:2023-08-03
- 格式:DOCX
- 页数:59
- 大小:66.46KB
整理交院VB程序设计.docx
《整理交院VB程序设计.docx》由会员分享,可在线阅读,更多相关《整理交院VB程序设计.docx(59页珍藏版)》请在冰豆网上搜索。
整理交院VB程序设计
交院VB程序设计
程序设计
第一题
题目:
(事件)单击窗体
(响应)求50以内所有偶数的和,并在窗体上输出来。
将结果存入变量S中。
代码:
DimIAsInteger
Fori=2To50
If(iMod2)=0Then
S=s+i
EndIf
Next
Print(CStr(s))
第二题
题目:
(事件)双击窗体
(响应)求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中
代码:
Dimi,jAsInteger
DimkAsLong
k=1
s=0
Fori=1To10
Forj=1Toi
k=k*j
Next
s=s+k
k=1
Next
Print(CStr(s))
第三题
题目:
(事件)单击窗体
(响应)求100以内偶数的和,并将结果输出在窗体上。
将结果存入变量SUM中
代码:
DimiAsInteger
Fori=1To100
IfiMod2=0Then
Sum=sum+i
EndIf
Next
Printsum
第四题
题目:
(事件)单击窗体
(响应)编写程序求10*11*12+11*12*13+….+15*16*17的结果
并将结果输出到窗体上。
将结果存入变量M中。
代码:
Dimi,jAsInteger
DimsAsLong
Fori=10To15
s=1
Forj=iToi+2
s=s*j
Next
m=m+s
Next
Print(CStr(m))
第五题
题目:
(事件)双击窗体
(响应)求100以内奇数的和,并将结果输出在窗体上。
将结果存入变量SUM中。
代码:
DimiAsInteger
Fori=1To100
IfiMod2=1Then
sum=sum+i
EndIf
Next
Printsum
第六题
题目:
(事件)单击窗体
(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100,
结果输出在窗体上
代码:
DimsAsSingle
Fori=1To10
a=i*i
Sum=1/a+Sum
Next
PrintSum
第七题
题目:
(事件)双击窗体
(响应)求1+1*2+1*2*3+….+1*2*3*….*10,
并将结果存到变量S中
代码:
DimsAsLong
j=1
Fori=1To10
j=j*i
Sum=Sum+j
Next
PrintSum
第八题
题目:
(事件)单击窗体
(响应)求1—1/2+1/3—1/4+….+1/99—1/100的值。
将结果存入变量J中
代码:
DimjAsSingle
DimiAsSingle
j=0
Fori=1To100
k=(-1)^(i+1)/i
j=k+j
Nexti
Printj
第九题
题目:
(事件)双击窗体
(响应)s=20+21+22+…+263,求s的值,并将结果存储到变量S中。
代码:
DimsAsLong
s=20
Fors=21To263
b=s+1
Sum=Sum+b
Next
PrintSum
第十题
题目:
(事件)单击窗体
(响应)求出100以内所有素数的和,并将结果输出
到窗体上,并存入所给变量SUM中
代码:
DimsumAsInteger
Fori=1To100
Forj=2Toi-1
ExitFor
Nextj
Nexti
IfiModj=0Then
EndIf
Ifj-iThen
sum=sum+i
EndIf
Printsum
第十一题
题目:
(事件)单击窗体
(响应)编写程序求10*11*12+11*12*13+….+15*16*17的结果
并将结果输出到窗体上。
将结果存入变量M中。
代码:
DimmAsLong
Fori=1To6
t=(i+9)*(i+10)*(i+11)
m=m+t
Next
Printm
第十二题
题目:
(事件)单击窗体
(响应)求10~20之间所有素数的乘积并输出在窗体上。
将结果存入变量L中
代码:
DimlAsLong
l=1
Fori=10To20
Forj=2Toi-1
IfiModj=0Then
ExitFor
EndIf
Nextj
Ifj=iThen
l=l*i
EndIf
Nexti
Printl
第十三题
题目:
(事件)单击窗体
(响应)求50以内所有偶数的和,并在窗体上输出来。
代码:
DimsAsInteger
s=0
Fori=2To50Step2
s=s+i
Nexti
Prints
第十四题
题目:
(事件)单击窗体
(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…….的前十项,并求其和。
代码:
DimsAsSingle
Dima()
Dimb()
Dimc()
a
(1)=2
b
(1)=1
c
(1)=a
(1)/b
(1)
a
(2)=3
a
(2)=2
a
(2)=a
(2)/b
(2)
s=s+c
(1)+c
(2)
Fori=3To10
a(i)=a(i-1)+a(i-2)
b(i)=b(i-1)+b(i-2)
c(i)=a(i)/b(i)
s=s+c(i)
Next
Prints
第十五题
题目:
(事件)单击窗体
(响应)求200~300之间既能被3整除又能被7整除的数。
并求出所有数之和存入变量SUM中。
代码:
DimsumAsInteger
sum=0
Fori=200To300
IfiMod3=0AndiMod7=0Then
sum=sum+i
EndIf
Next
Printsum
第十六题
题目:
(事件)双击窗体
(响应)求出100~200之间,能被5整除,但不能被3整除的数。
并求出所有数之和,存入变量SUM中
代码:
DimsumAsInteger
sum=0
Fori=100To200
IfiMod5=0AndiMod3<>0Then
sum=sum+i
EndIf
Next
Printsum
第十七题
题目:
(事件)双击窗体
(响应)求1!
+2!
+3!
+4!
+5!
并将结果输出到窗体上。
结果存入变量S中
代码:
DimsAsInteger
s=0
t=1
Fori=1To5
t=i*t
Sum=sum+t
Next
PrintSum
第十八题
题目:
(事件)双击窗体
(响应)求3+6+9+12+15+18+…..+300的和,并将结果输出到窗体上。
将结果存入变量SUM中
代码:
DimsumAsInteger
sum=0
Fori=3To300Step3
sum=sum+i
Nexti
Printsum
第二种方法:
当step为2的时候:
DimsAsInteger
DimiAsInteger
Fori=2To50Step2
s=s+i
Nexti
Prints
第十九题
题目:
(事件)单击窗体
(响应)求10!
的值,并将结果输出在窗体上。
将结果存入变量SUM中
代码:
DimsumAsLong
DimiAsInteger
sum=1
Fori=1To10
sum=i*sum
Next
Printsum
第一题
'题目:
(事件)双击窗体。
(响应)求出100~200之间,能被5整除,但不能被3整除的数。
并求所有数之和,存入变量中SUM中。
将结果输出到窗体
PrivateSubForm_DblClick()
'**********Program**********
Fori=100To200
IfiMod5=0AndiMod3<>0Then
SUM=SUM+i
EndIf
Nexti
PrintSUM
'**********End**********
第二题
'题目:
(事件)单击窗体。
(响应)求10!
的值,并将结果输出到窗体上。
将结果存入变量SUM中。
使用for循环实现
PrivateSubForm_Click()
'**********Program**********
SUM=1
Fori=1To10
SUM=SUM*i
Nexti
PrintSUM
'**********End**********
第三题
'题目:
(事件)单击窗体。
(响应)求1!
+2!
+3!
+4!
+5!
并将结果输出到窗体上结果存入变量S中
PrivateSubForm_Click()
'**********Program**********
Fori=1To5
SUM=1
Forj=1Toi
SUM=SUM*i
Nextj
s=s+SUM
Nexti
Prints
'**********End**********
第四题
'题目:
(事件)单击窗体。
(响应)求1-1/2+1/3-1/4+……+1/99-1/100的值。
将结果存入变量J中。
PrivateSubForm_Click()
'**********Program**********
Fori=1To100
j=j-1/i*(-1)^i
Nexti
Printj
'**********End**********
第五题
'题目:
(事件)单击窗体(响应)用输入框输入一自然数,判断是"正数"、"负数"或"零",并根据输入的数用消息框显示"正数"、"负数"或"零"。
PrivateSubForm_Click()
'**********Program**********
a=InputBox("输入一自然数:
")
Ifa>0ThenMsgBox"正数"
Ifa<0ThenMsgBox"负数"
Ifa=0ThenMsgBox"零"
'**********End**********
第六题
'题目:
(事件)单击窗体。
(响应)求出100以内所有奇数的和,并将结果输出到窗体上,并存入所给变量SUM中。
PrivateSubForm_Click()
'**********Program**********
Fori=1To99Step2
Sum=i+Sum
Nexti
PrintSum
'**********End**********
第七题
'题目:
(事件)双击窗体。
(响应)求3+6+9+12+15+18+……+300的和,并将结果输出到窗体上。
将结果存入变量SUM中。
PrivateSubForm_DblClick()
'**********Program**********
Fori=3To300Step3
SUM=i+SUM
Nexti
PrintSUM
'**********End**********
第八题
'题目:
(事件)单击窗体。
(响应)求从100到1000之间所有是3的倍数的数之和,当和大于3000时,停止计算并输出和。
请将结果输出到窗体上,并存入所给变量SUM中。
使用for...next语句完成程序
'**********Program**********
PrivateSubForm_Click()
Fori=100To1000
IfiMod3=0AndSUM<=3000Then
SUM=SUM+i
EndIf
Nexti
PrintSUM
EndSub
'**********End**********
第九题
'题目:
(事件)单击窗体。
(响应)求1+2+3+……+100的值,并把结果输出在窗体上。
结果存入变量SUM中。
PrivateSubForm_Click()
'**********Program**********
Fori=1To100
Sum=Sum+i
Nexti
PrintSum
'**********End**********
第十题
'题目:
(事件)单击窗体。
(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项,并求其和,将和保存在变量s中
PrivateSubForm_Click()
'**********Program**********
a=2
b=1
Fori=1To10
Printa/b
s=s+a/b
t=a
a=a+b
b=t
Next
Prints
EndSub
'**********End**********
第十一题
'题目:
(事件)单击窗体。
(响应)求数列1+3+3+9+27+……前6项的和,并将结果输出到窗体上。
将结果存入变量SUM中。
要求使用for...next循环
'**********Program**********
PrivateSubForm_Click()
a=1
b=3
s=a+b
Fori=1To4
s=s+b*a
t=b
b=b*a
a=t
Next
Prints
EndSub
'**********End**********
'第十二题
'题目:
(事件)双击窗体。
(响应)求出50以内所有奇数的和。
将结果存入变量SUM中。
PrivateSubForm_DblClick()
'**********Program**********
Fori=1To50
IfiMod2=1Then
Sum=Sum+i
EndIf
Nexti
PrintSum
'**********End**********
'第十三题
'题目:
(事件)单击窗体。
(响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果,并将结果输出到窗体上。
将结果存入变量M中
PrivateSubForm_Click()
'**********Program**********
DimaAsInteger,bAsInteger,cAsInteger,mAsInteger
a=9:
b=10:
c=11
Do
a=a+1
b=b+1
c=c+1
m=m+a*b*c
LoopUntila>14
Printm
'**********End**********
第十四题
'题目:
(事件)单击窗体。
(响应)求100以内偶数的和,并将结果输出在窗体上。
将结果存入变量SUM中
PrivateSubForm_Click()
'**********Program**********
Fori=1To100
IfiMod2=0Then
Sum=Sum+i
EndIf
Nexti
PrintSum
'**********End**********
'第十五题
'题目:
(事件)单击窗体。
(响应)求100到500之间奇数的和,将结果输出在窗体上并存入变量SUM中。
使用for循环完成程序
''**********Program**********
PrivateSubForm_Click()
Fori=100To500
IfiMod2=1Then
Sum=Sum+i
EndIf
Nexti
PrintSum
EndSub
'**********End**********
'第十六题
'题目:
(事件)单击窗体。
(响应)已知sum=1-1/4+1/9-1/16+1/25...-1/100,请将sum结果值输出到窗体上。
使用for...next语句完成程序
'**********Program**********
PrivateSubForm_Click()
Fori=1To10
j=j-1/i^2*(-1)^i
Nexti
Printa
EndSub
'**********End**********
'第十七题-
'题目:
(事件)单击窗体。
(响应)求sum=1+1+2+3+5+8+13+...+144的和,请将sum结果值输出到窗体上。
使用do...loopwhile语句完成程序
'**********Program**********
PrivateSubForm_Click()
DimiAsDouble,f(1To20)AsInteger,sum
f
(1)=1
f
(2)=1
sum=2
Ifi>2Then
Do
f(i)=f(i-1)+f(i-2)
sum=sum+f(i)
LoopWhilef(i)>145
EndIf
Printsum
EndSub
'**********End**********
'第十八题
'题目:
(事件)单击按钮。
(响应)随机产生N个两位正整数(N由输入对话框输入,且N>0),求出其中的最大数和最小数,并在标签框Label1上显示最大数与最小数的差。
PrivateSubForm_Click()
Dima()AsInteger,iAsInteger,nAsInteger,maxAsInteger,minAsInteger,sumAsInteger
n=Val(InputBox("inputnum:
"))
ReDima(n)
min=100:
max=1
Fori=1Ton
a(i)=CInt(Rnd*90+10)
Printa(i);
Ifa(i)>maxThenmax=a(i)
Ifa(i) Nexti label1.caption=max-min EndSub '第十九题 '题目: (事件)单击窗体响应)输出斐波那契数列1,1,2,3,5,8,13...第20个数的值即f1=1(n=1)f2=1(n=2)fn=f(n-1)+f(n-2)(n≥3)使用for...next语句完成程序,并将结果存入变量sum中 PrivateSubForm_click() Dimf(1To20)AsInteger,iAsInteger,sumAsInteger f (1)=1 f (2)=1 Fori=3To20 f(i)=f(i-1)+f(i-2) Nexti Printf(20) EndSub '第二十题 '题目: (事件)单击窗体。 (响应)我国现有人口为13亿,设年增长率为1%,计算多少年后增加到20亿。 并将结果输出在窗体上。 将结果存入变量year中。 使用while...wend语句完成程序。 '**********Program********** PrivateSubForm_click() DimaAsDouble,iAsInteger,yearAsInteger a=1300000000# Whilea<=2000000000# a=a*(1+0.01) Wend year=Log(a/1300000000#)/Log(1+0.01) Printa;year;1.01^44*13 EndSub '第二十一题 目: 编写函数fun,函数的功能是: 根据一个百分制'成绩mark(整数),显示对应五级制的评定。 条件如下: 'mark大于等于90显示"优秀"'mark小于90且大于等于80显示"良好"'mark小于80且大于等于70显示"中等"'mark小于70且大于等于60显示"及格" 'mark小于60显示"不及格"'要求使用IF语句来实现。 '------------------------------------------------- '注意: 请在指定的事件内编写代码 '代码只能写在两行标识之间 '不得修改已有代码 '保存时不得修改窗体和工程文件的名称及路径,否则后果自负。 '------------------------------------------------- PrivateFunctionfun(markAsInteger)AsString '**********Program********* Ifmark>=90ThenPrint"优秀" Ifmark<90Andmark>=80ThenPrint"良好" Ifmark<80Andmark>=70ThenPrint"中等" Ifmark<70Andmark>=60ThenPrint"及格" Ifmark<60ThenPrint"不及格" '**********End********** EndFunction PrivateSubForm_Load() Show Printfun(90) EndSub 第二十二题 题目: (事件)单击窗体。 (响应)求1-1/2+1/3-1/4+……+1/99-1/100的值。 将结果存入变量J中。 PrivateSubForm_Click() '**********Program********** DimaAs
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 整理 VB 程序设计