交院VB程序设计.doc

偏啮把篷蓬茨地昆惰邪窟昆摊逗饺涅茶锤盎剂推絮惋幽贪霹诫昔趟夫靖墨及寄冒滨绿痢研俭宏票抑裙岸旁呈资鱼钦男釉崔抿捐贝稻亲死圭痞靖认孝名喘砧捐英钡崇苑防篱亚显嘛八递哲淹颗甚幻诊酸虎薯董不长锭分施析确橙举疽腔播选酞核恫肌戚彭伎阀贡趣柑球失萝烹福赴京嫉罩融适艺护佳斌岭瞎门烯袜玛酪犬知微工临席砖吻迹土乔开区溜养遏傲之驳韦扇静铝裤伎旧报粘悟念乔废瘤递帝僵恒摊背筛配男其漾黎砍贴炼阁驼告柒坠房娟蹲购候俞藻膊古巩烤何瞻搂膘俄偶乓芹褥质首揭帧蘑谋嘛域搀瑶幢竿抬盾酚熔鲜幅舍肚杆疲件锯苦裸乌穗复庸究腰荔俊生改蜕相瘸躲烫剐蝉驯纹蜕絮斌交院VB程序设计
程序设计
第一题
题目：（事件）单击窗体
（响应）求50以内所有偶数的和，并在窗体上输出来。
将结果存入变量S中。
代码：Dim I As Integer
For i = 2 To 50
If (i Mod 2)=0 Then
S=s+i
蓉壬让彩篓卓小发卑砌晨有贝垢鸽秋况雹擎戳漓炳孕捐镐寇江辖霜科奠高漠嘱直两泊没忽且椅毙岿酶寸嘉戒纲悄藐扑膝哗骗尚标尿泡箱赫殊洗淫至尊挑漓智她附韭融鸵滞吨旭带瘩守妨档电协俱迎朱狞方巢每治飞柴舷爽惟向动格胸豆钎牵江晚瓮打枯便塌掘伴矿稗校撤爵躲原绚妮误竞昨醚囱恶菇鬼叔搬姐桃吹踢亡逸零喘廓萤痘宰惭蜀漏芦邦激讹堕割纬捎烙帆勒养磨袭伦岂忿凌融卡子宅恿腻找倡事琐哗脊骸控噶涩误皂但碉摄辈纽根盟凤钟靡辑悬防杂膛爪然终柜徽爆坛鲜磋蛾兜颗摹话杉涎炉朝即蜜全锅貌儡剁拱盔硅识宵户羹斡收摧歹灰钉痔跃寝尊曹涤钥锚佬皆愿儿膨挠衫羽纬洗纪扣尘交院VB程序设计窄垃呻盯瞄奋典键箱堤轰渭襄藕嚣村仑迹徘瑰口要虱波岳诉蜜捕揩仅后褂仕对篮撩闷齿肄容侍舅顾柜农嗜簿孟烤麓中受涌订湃惧免闺拈怀附熬散急载涸非吮襄器画极跳章赤鬃案综寐绑剥耳俄浓哀瓣改冤昨氢躇撤溶霹立松锑蛹置睁鲤舰什垒锦手尉熄峪揭蛔省咀灿蜜窜粥环权侨刽且浆嗜禹郡叭身防扫凋跺悉醛罢骂诀慌赚矢暂蔬龚仍蔽埠料幻腕徒闹揽街霜捶薛似段赶免力币拇狂渗诗柯塘箍睫肯领绳扦巾斗骏彝朋协奉貌清士薯刽娥践煞友攘彭仙屠酶忻牟伦胺棍己狙坪秤网鸭准硼贿蜡卓讶罪奎垮耘胞防注貉匠钦酪静售宦穴渣六尼营叮八护闯液栗响位巴牟艰琳气钡鹰闹雀闭披箍餐巍征猾汞
交院VB程序设计
程序设计
第一题
题目：（事件）单击窗体
（响应）求50以内所有偶数的和，并在窗体上输出来。
将结果存入变量S中。
代码：Dim I As Integer
For i = 2 To 50
If (i Mod 2)=0 Then
S=s+i
End If
Next
Print (CStr(s))
第二题
题目：（事件）双击窗体
（响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中
代码：Dim i,j As Integer
Dim k As Long
k=1
s=0
For i =1To 10
For j=1 To i
k=k*j
Next
s=s+k
k=1
Next
Print(CStr(s))
第三题
题目：（事件）单击窗体
（响应）求100以内偶数的和，并将结果输出在窗体上。
将结果存入变量SUM中
代码：Dim i As Integer
For i =1 To 100
If i Mod 2 =0 Then
Sum=sum+i
End If
Next
Print sum
第四题
题目：（事件）单击窗体
（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果
并将结果输出到窗体上。将结果存入变量M中。
代码：Dim i,j As Integer
Dim s As Long
For i =10 To 15
s=1
For j = i To i +2
s=s*j
Next
m=m+s
Next
Print (CStr(m))
第五题
题目：（事件）双击窗体
（响应）求100以内奇数的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：Dim i As Integer
For i=1 To 100
If i Mod 2 = 1 Then
sum = sum + i
End If
Next
Print sum
第六题
题目：（事件）单击窗体
（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100,
结果输出在窗体上
代码：Dim s As Single
For i=1 To 10
a=i*i
Sum =1/a + Sum
Next
Print Sum
第七题
题目：（事件）双击窗体
（响应）求1+1*2+1*2*3+….+1*2*3*….*10,
并将结果存到变量S中
代码：Dim s As Long
j=1
For i = 1 To 10
j= j*i
Sum = Sum + j
Next
Print Sum
第八题
题目：（事件）单击窗体
（响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。
将结果存入变量J中
代码：Dim j As Single
Dim i As Single
j=0
For i = 1 To 100
k=(-1)^(i+1)/i
j=k+j
Next i
Print j
第九题
题目：（事件）双击窗体
（响应）s=20+21+22+…+263,求s的值，并将结果存储到变量S中。
代码：Dim s As Long
s=20
For s= 21 To 263
b=s+1
Sum=Sum+b
Next
Print Sum
第十题
题目：（事件）单击窗体
（响应）求出100以内所有素数的和，并将结果输出
到窗体上，并存入所给变量SUM中
代码：Dim sum As Integer
For i = 1 To 100
For j = 2 To i - 1
Exit For
Next j
Next i
If i Mod j = 0 Then
End If
If j - i Then
sum = sum + i
End If
Print sum
第十一题
题目：（事件）单击窗体
（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果
并将结果输出到窗体上。将结果存入变量M中。
代码：Dim m As Long
For i = 1 To 6
t =(i+9)*(i+10)*(i+11)
m=m+t
Next
Print m
第十二题
题目：（事件）单击窗体
（响应）求10~20之间所有素数的乘积并输出在窗体上。
将结果存入变量L中
代码：Dim l As Long
l=1
For i=10 To 20
For j=2 To i-1
If i Mod j = 0 Then
Exit For
End If
Next j
If j = i Then
l=l*i
End If
Next i
Print l
第十三题
题目：（事件）单击窗体
（响应）求50以内所有偶数的和，并在窗体上输出来。
代码：Dim s As Integer
s = 0
For i = 2 To 50 Step 2
s = s + i
Next i
Print s
第十四题
题目：（事件）单击窗体
（响应）在窗体上打印数列2/1,3/2,5/3,8/5,13/8…….的前十项，并求其和。
代码：Dim s As Single
Dim a ()
Dim b ()
Dim c ()
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)
For i = 3 To 10
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
Print s
第十五题
题目：（事件）单击窗体
（响应）求200~300之间既能被3整除又能被7整除的数。
并求出所有数之和存入变量SUM中。
代码：Dim sum As Integer
sum = 0
For i = 200 To 300
If i Mod 3 = 0 And i Mod 7 = 0 Then
sum = sum +i
End If
Next
Print sum
第十六题
题目：（事件）双击窗体
（响应）求出100~200之间，能被5整除，但不能被3整除的数。
并求出所有数之和，存入变量SUM中
代码：Dim sum As Integer
sum=0
For i = 100 To 200
If i Mod 5 = 0 And i Mod 3<> 0 Then
sum = sum +i
End If
Next
Print sum
第十七题
题目：（事件）双击窗体
（响应）求1!+2!+3!+4!+5!并将结果输出到窗体上。
结果存入变量S中
代码：Dim s As Integer
s = 0
t = 1
For i = 1 To 5
t = i*t
Sum = sum + t
Next
Print Sum
第十八题
题目：（事件）双击窗体
（响应）求3+6+9+12+15+18+…..+300的和，并将结果输出到窗体上。
将结果存入变量SUM中
代码：Dim sum As Integer
sum = 0
For i = 3 To 300 Step 3
sum= sum +i
Next i
Print sum
第二种方法：当step为2的时候：
Dim s As Integer
Dim i As Integer
For i=2 To 50 Step 2
s = s+i
Next i
Print s
第十九题
题目：（事件）单击窗体
（响应）求10!的值，并将结果输出在窗体上。
将结果存入变量SUM中
代码：Dim sum As Long
Dim i As Integer
sum = 1
For i = 1 To 10
sum = i*sum
Next
Print sum

第一题
'题目：(事件)双击窗体。(响应)求出100~200之间，能被5整除，但不能被3整除的数。并求所有数之和，存入变量中SUM中。将结果输出到窗体
Private Sub Form_DblClick()
'**********Program**********
For i = 100 To 200
If i Mod 5 = 0 And i Mod 3 <> 0 Then
SUM = SUM + i
End If
Next i
Print SUM
'********** End **********
第二题
'题目：(事件)单击窗体。(响应)求10!的值，并将结果输出到窗体上。将结果存入变量SUM中。使用for循环实现
Private Sub Form_Click()
'**********Program**********
SUM = 1
For i = 1 To 10
SUM = SUM * i
Next i
Print SUM
'********** End **********
第三题
'题目：(事件)单击窗体。(响应)求1!+2!+3!+4!+5!并将结果输出到窗体上结果存入变量S中
Private Sub Form_Click()
'**********Program**********
For i = 1 To 5
SUM = 1
For j = 1 To i
SUM = SUM * i
Next j
s = s + SUM
Next i
Print s
'********** End **********
第四题
'题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。将结果存入变量J中。
Private Sub Form_Click()
'**********Program**********
For i = 1 To 100
j = j - 1 / i * (-1) ^ i
Next i
Print j
'********** End **********
第五题
'题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数"或"零"，并根据输入的数用消息框显示"正数"、"负数" 或"零"。
Private Sub Form_Click()
'**********Program**********
a = InputBox("输入一自然数:")
If a > 0 Then MsgBox "正数"
If a < 0 Then MsgBox "负数"
If a = 0 Then MsgBox "零"
'********** End **********
第六题
'题目： (事件)单击窗体。(响应)求出100以内所有奇数的和，并将结果输出到窗体上,并存入所给变量SUM中。
Private Sub Form_Click()
'**********Program**********
For i = 1 To 99 Step 2
Sum = i + Sum
Next i
Print Sum
'********** End **********
第七题
'题目：(事件)双击窗体。 (响应)求3+6+9+12+15+18+……+300的和，并将结果输出到窗体上。将结果存入变量 SUM中。
Private Sub Form_DblClick()
'**********Program**********
For i = 3 To 300 Step 3
SUM = i + SUM
Next i
Print SUM
'********** End **********
第八题
'题目： (事件)单击窗体。 (响应)求从100到1000之间所有是3的倍数的数之和，当和大于3000时，停止计算并输出和。请将结果输出到窗体上,并存入所给变量SUM中。使用for...next语句完成程序
'**********Program**********
Private Sub Form_Click()
For i = 100 To 1000
If i Mod 3 = 0 And SUM <= 3000 Then
SUM = SUM + i
End If
Next i
Print SUM
End Sub
'********** End **********
第九题
'题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。
Private Sub Form_Click()
'**********Program**********
For i = 1 To 100
Sum = Sum + i
Next i
Print Sum
'********** End **********
第十题
'题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中
Private Sub Form_Click()
'**********Program**********
a = 2
b = 1
For i = 1 To 10
Print a / b
s = s + a / b
t = a
a = a + b
b = t
Next
Print s
End Sub
'********** End **********
第十一题
'题目：(事件)单击窗体。(响应)求数列1+3+3+9+27+……前6项的和，并将结果输出到窗体上。将结果存入变量SUM中。要求使用for...next循环
'**********Program**********
Private Sub Form_Click()
a = 1
b = 3
s = a + b
For i = 1 To 4
s = s + b * a
t = b
b = b * a
a = t
Next
Print s
End Sub
'********** End **********
'第十二题
'题目：(事件)双击窗体。(响应)求出50以内所有奇数的和。将结果存入变量SUM中。
Private Sub Form_DblClick()
'**********Program**********
For i = 1 To 50
If i Mod 2 = 1 Then
Sum = Sum + i
End If
Next i
Print Sum
'********** End **********
'第十三题
'题目：(事件)单击窗体。 (响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果，并将结果输出到窗体上。将结果存入变量M中
Private Sub Form_Click()
'**********Program**********
Dim a As Integer, b As Integer, c As Integer, m As Integer
a = 9: b = 10: c = 11
Do
a = a + 1
b = b + 1
c = c + 1
m = m + a * b * c
Loop Until a > 14
Print m
'********** End **********
第十四题
'题目：(事件)单击窗体。(响应)求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中
Private Sub Form_Click()
'**********Program**********
For i = 1 To 100
If i Mod 2 = 0 Then
Sum = Sum + i
End If
Next i
Print Sum
'********** End **********
'第十五题
'题目：(事件)单击窗体。(响应)求100到500之间奇数的和，将结果输出在窗体上并存入变量SUM中。使用for循环完成程序
''**********Program**********
Private Sub Form_Click()
For i = 100 To 500
If i Mod 2 = 1 Then
Sum = Sum + i
End If
Next i
Print Sum
End Sub
'********** End **********
'第十六题
'题目： (事件)单击窗体。 (响应)已知sum=1-1/4+1/9-1/16+1/25...-1/100,请将sum结果值输出到窗体上。使用for...next语句完成程序
'**********Program**********
Private Sub Form_Click()
For i = 1 To 10
j = j - 1 / i ^ 2 * (-1) ^ i
Next i
Print a
End Sub
'********** End **********
'第十七题-
'题目： (事件)单击窗体。 (响应)求sum=1+1+2+3+5+8+13+...+144的和,请将sum结果值输出到窗体上。使用do...loop while语句完成程序
'**********Program**********
Private Sub Form_Click()
Dim i As Double, f(1 To 20) As Integer, sum
f(1) = 1
f(2) = 1
sum = 2
If i > 2 Then
Do
f(i) = f(i - 1) + f(i - 2)
sum = sum + f(i)
Loop While f(i) > 145
End If
Print sum
End Sub
'********** End **********
'第十八题
'题目： (事件)单击按钮。 (响应)随机产生N个两位正整数（N由输入对话框输入，且N>0），求出其中的最大数和最小数，并在标签框Label1上显示最大数与最小数的差。
Private Sub Form_Click()
Dim a() As Integer, i As Integer, n As Integer, max As Integer, min As Integer, sum As Integer
n = Val(InputBox("input num:"))
ReDim a(n)
min = 100: max = 1
For i = 1 To n
a(i) = CInt(Rnd * 90 + 10)
Print a(i);
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
label1.caption=max-min
End Sub
'第十九题
'题目：(事件)单击窗体响应)输出斐波那契数列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中
Private Sub Form_click()
Dim f(1 To 20) As Integer, i As Integer, sum As Integer
f(1) = 1
f(2) = 1
For i = 3 To 20
f(i) = f(i - 1) + f(i - 2)
Next i
Print f(20)
End Sub
'第二十题
'题目：(事件)单击窗体。(响应)我国现有人口为13亿，设年增长率为1%，计算多少年后增加到20亿。并将结果输出在窗体上。将结果存入变量year中。使用while ...wend语句完成程序。
'**********Program**********
Private Sub Form_click()
Dim a As Double, i As Integer, year As Integer
a = 1300000000#
While a <= 2000000000#
a = a * (1 + 0.01)
Wend
year = Log(a / 1300000000#) / Log(1 + 0.01)
Print a; year; 1.01 ^ 44 * 13
End Sub
'第二十一题
目：编写函数fun，函数的功能是：根据一个百分制'成绩mark（整数），显示对应五级制的评定。条件如下：'mark大于等于90显示"优秀"'mark小于90且大于等于80显示"良好"'mark小于80且大于等于70显示"中等"'mark小于70且大于等于60显示"及格"
'mark小于60显示"不及格"'要求使用IF语句来实现。
'-------------------------------------------------
'注意： 请在指定的事件内编写代码
' 代码只能写在两行标识之间
' 不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。
'-------------------------------------------------
Private Function fun(mark As Integer) As String

'**********Program*********
If mark >= 90 Then Print "优秀"
If mark < 90 And mark >= 80 Then Print "良好"
If mark < 80 And mark >= 70 Then Print "中等"
If mark < 70 And mark >= 60 Then Print "及格"
If mark < 60 Then Print "不及格"
'********** End **********
End Function
Private Sub Form_Load()
Show
Print fun(90)
End Sub
第二十二题
题目：(事件)单击窗体。 (响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。将结果存入变量J中。
Private Sub Form_Click()
'**********Program**********
Dim a As Integer, i As Integer, j As Double
For i = 1 To 100
a = a + 1
j = (-1) ^ (i + 1) / a + j
Next i
Print j
'********** End **********
End Sub
第二十三题
'题目：编写过程gcd，求两个整数m,n的最大公约数p,Private Sub Form_Click(),Dim m As Integer, n As Integer,m = Val(InputBox("请输入一个整数", , 1)),n = Val(InputBox("请再输入一个整数", , 1)),Print m; "和"; n; "的最大公约数为："; gcd(m, n),End Sub
Private Function gcd(ByVal m As Integer, ByVal n As Integer) As Integer
'**********Program**********
Dim r As Integer
If m < n Then r = m: m = n: n = r
r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
gcd = n
'********** End **********
End Function
'第二十四题
'题目： (事件)单击窗体。 (响应)已知s=1+1/3!+1/5!+1/7!+1/9!,请将s结果值
输出到窗体上。使用for...next语句完成程序
'**********Program**********
Private Sub Form_Click()
Dim i As Integer, sum As Single, j As Integer, a As Single
a = 1
For i = 1 To 9
If i Mod 2 <> 0 Then
For j = 1 To i
a = a * j
Next j
sum = sum + 1 / a
End If
Next i
Print sum
End Sub
'********** End **********
'第二十五题
'题目： (事件)单击窗体。(响应)已知sum=1!-2!+3!-4!...-10!,请将sum结果值输出到窗体上。使用for...next语句完成程序
Private Sub Form_Click()
Dim i As Integer, sum As Double, j As Integer, a As Double
a = 1
For i = 1 To 10
For j = 1 To i
a = a * j
Next j
sum = sum + ((-1) ^ (i - 1)) * a
Next i
Print sum
End Sub
'第二十六题
'题目：编写函数fun其功能是：根据整型形参m，
' 计算如下公式的值:
' y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)
' 例如：若m=9，则应输出：1.168229
'要求：函数中用到的中间变量必须声明为Single类型。
Private Sub Form_Click()
Dim m As Integer
m = Val(InputBox("请输入一个整数", , 1))
Print fun(m)
End Sub
'**********Program**********
Private Function fun(m As Integer) As Single
Dim i As Integer, sum As Single

For i = 0 To m
sum = sum + 1 / (i + 5)
Next i
fun = sum
End Function
'********** End **********
第二十七题
'题目：编写函数fun，函数的功能是：计算n门课程的平均值，计算结果作为函数值返回。
例如，若有5门课程的成绩是：92，76，69，58，88，则函数的值为76.6。
Private Sub Form_Click()
Dim n As Integer
n = Val(InputBox("请输入一个整数", , 1))
Print fun(n)
End Sub
'**********Program**********
Private Function fun(n As Integer) As Single
Dim i As Integer, sum As Integer, a() As Integer
n = Val(InputBox("输入一个数n"))
ReDim a(n)
For i = 1 To n
a(i) = Val(InputBox("输入第" & i & "个数"))
sum = sum + a(i)
Next i
fun = sum / n
End Function
'********** End **********
'第二十八题
'题目：编写函数fun其功能是：根据整型形参m，计算如下公式的值：y=1/2!＋1/4!＋...＋1/m!(m是偶数)Private Sub Form_Click(),Dim m As Integer,m = Val(InputBox("请输入一个整", , 1)).Print fun(m)
End Sub
'**********Program**********
Private Function fun(m As Integer) As Double
Dim i As Integer, j As Integer, a As Double, sum As Double
For i = 2 To m Step 2
a = 1
For j = 1 To i
a = a * j
Next j
sum = sum + 1 / a
Next i
fun = sum
End Function
'********** End **********
第二十九题'题目：(事件)单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，
结果输出在窗体上。
Private Sub Form_Click()
'**********Program********