【第4题】
打开文件“考生文件夹\\175\\工程”，完善Command1_Click事件及s函数代码并保存。 实现功能：用递归法求1+2+3+…+100的值，结果输出在窗体上。 Public Function S(n As Integer) As Integer If n = 1 Then S = ① Else
S = ② + S(n - 1) End If ①1 End Function ②n ③100 Private Sub Command1_Click() Dim Sum As Integer Sum = S(③)
Print \"Sum=\" & CStr(Sum) End Sub 【第5题】
打开文件“考生文件夹\\851\\工程”，完善程序实现如下功能并保存：
花果山上有一洞，小猴每次采取跳1阶或者跳3阶的办法从山下跳跃上台阶进洞，编程在Text1中输入台阶数，在Label1中显示有多少种不同的跳法。正确的运行结果如下图所示，调试时输入的台阶数最大不要超过35！
Function s(n As Integer) As Long If n = 1 Or n = 2 Then s = ① Else
If n = 3 Then s = 2 Else
s = s(n - 1) + s(n - 3) End If End If
①1 ② ③s(n) End Function
Private Sub Command1_Click() Dim n As Integer n = Val(②) = Str(③) End Sub 【第6题】
打开文件“考生文件夹\\861\\年龄问题.vbp”，完善程序实现如下功能并保存：
有5个人坐在一起，第5个人说他比第4个人小3岁；第4个人说他比第3个人小3岁；第3个人说他比第2个人小3岁；第2个人又说他比第1个人小3岁；第1个人说他是38岁。编写程序，计算出第5个人的年龄并显示。 Private Sub cmdDisplay_Click()
Print \"第5人的年龄:\"; age(①) End Sub
Function age(n As Integer) As Integer If n = 1 Then ①n age = ② ②38 Else ③End If age = age(n - 1) - 3 ③
End Function 【第3题】
打开文件“考生文件夹\\89\\工程”，完善Command1_Click事件代码并保存。
乘坐飞机的经济舱时，免费托运行李一般不得超过20公斤，超重每公斤按全票价的%计算。
实现功能：输入行李重量及经济舱全票价后，点击按钮，计算出行李托运费用，输出到对应文本框中。
Private Sub Command1_Click() Dim w As Integer '行李重量 Dim pj As Integer '机票价格 Dim fy As Single '托运费用 w = Val pj = Val
If w <= 20 Then
①fy =0 ①
②End If Else
③fy fy = (w - 20) * pj *
② = ③ End Sub 【第4题】
打开文件“考生文件夹\\122\\工程”，完善Command1_Click事件代码并保存。
王晓珊家距离学校s1（千米），某天她和李明各自同时从家里步行出发上学，王晓珊步行速率v1（千米/小时），李明步行速率v2（千米/小时)，结果他们同时到达学校。
实现功能：输入s1、v1、v2，在窗体上输出李明家与学校之间的距离s2。 Private Sub Command1_Click() Dim s1 As Single Dim s2 As Single ①s1/v1 Dim v1 As Single ②v2 Dim v2 As Single ③s2 Dim t As Single
s1 = Val(InputBox(\"请输入王晓珊家离学校的距离：\")) v1 = Val(InputBox(\"请输入王晓珊步行速度：\")) v2 = Val(InputBox(\"请输入李明步行速度：\")) t = ①
s2 = ② * t Print ③ End Sub 【第6题】
打开“考生文件夹\\772”中的文件“工程”，完善Command1_Click事件代码并保存。 实现功能：某商场正在搞促销活动，买300元送200元，例如：某顾客购买商品449元，返还顾客200元，不满300元的零头不送。在文本框中输入一个正整数，计算返还的金额并显示在标签上，如样张所示。
Private Sub Command1_Click() Dim a As Integer Dim s As Integer a = Val(Text1.①) s = (②) * 200
Label1.③ = Str(④) End Sub
①text ②a\\300 ③caption ④s 【第1题】
打开文件“考生文件夹\\373\\操作”，完善程序实现以下功能并保存。
找出100以内的质数对（若两个质数的差为2则称为质数对），并成对显示结果。其中，函数IsP(m)判断参数m是否为质数。 Public Function IsP(m) As Boolean Dim i As Integer
__________(1)____________ For i = 2 To Int(Sqr(m))
If ________(2)__________ Then IsP = False Next i End Function
Private Sub Command1_Click()
Dim i As Integer, p1 As Boolean, p2 As Boolean p1 = IsP(3)
For i = 5 To 100 Step 2 p2 = IsP(i)
If p1 and p2 Then Print _________(3)_________ , i p1 = p2 Next i End Sub
【第8题】
① Isp=true ② M mod 2=0 ③ I-2 打开文件“考生文件夹\\859\\玫瑰花数.vbp”，完善程序实现如下功能并保存： 如果一个4位数等于它的各位数字的4次方和，则这个4位数称为“玫瑰花”数，例如1634就是一个玫瑰花数。试编程求出所有的玫瑰花数，结果如下图所示。
Private Sub cmdDemoRose_Click() Dim i As Integer Dim s As Integer Dim m As Integer For i = 1000 To 9999 s = 0
For j = ① To 4 m = Mid(i, j, 1) s = s + ② Next j
If i = s Then Print i ③ End Sub
① 1 ② m^4 ③ next i 【第8题】
打开文件“考生文件夹\\863\\细胞分裂.vbp”，完善程序实现如下功能并保存： 有一种细胞每3分钟分裂一次，每次分裂时每个细胞分裂成2个，30分钟后有2048个细胞。问开始时有多少个细胞 Private Sub cmdDivision_Click()
Dim f(10) As Integer ' 30分钟共分裂10次 Dim i As Integer ① 2048 f(10) = ① ② step -1 For i = 9 To 0 Step ② ③ f(0) f(i) = f(i + 1) / 2 Next i Print ③ End Sub 【第1题】
打开文件“考生文件夹\\375\\操作”，完善程序实现以下功能并保存。
从键盘输入若干个数直到输入负数为止，统计所有非负数的平均值并输出。 Private Sub Command1_Click() Dim x As Single, y As Single Dim z As Integer
x = InputBox(\"输入一个数：\")
① x>=0 Do while _____(1)________
② y+x y=_____(2)_________
③ y/z z = z + 1
x = InputBox(\"输入一个数：\") Loop
If z = 0 Then z = 1 End If
y=______(3)___________ Print \"平均值为：\"; y End Sub 【第1题】
打开文件“考生文件夹\\372\\操作”，完善程序实现以下功能并保存。
Private Sub Command1_Click() Dim s As Single
Dim a As Integer, b As Integer, c As Integer, k As Integer s = 0 ① 1 a = ______(1)_________ ② a b = 1 ③ b For k = 1 To 20 s = s + a / b
c = ______(2)_________ a = ______(3)_________ b = c + a Next k Print s End Sub 【第7题】
打开文件“Z:\\114\\工程”， 完善Form_Click事件代码并保存。 完善程序，求1/1+1/2+2/3+…+21/34+…前20项的值。 Private Sub Command1_Click() Dim s As Integer Dim a As Integer Dim b As Integer Dim k As Integer s = 0 a = 1 b = 1
For k = 1 To 10 ① a+b s = s + a / b ② s+b/a a = ① ③ a+b s = ② b = ③ Next k Print s End Sub
【第3题】
打开文件“考生文件夹\\374\\操作”，完善程序实现以下功能并保存。 输出数组的最大值。
Private Sub Command1_Click() Dim arr1, Max As Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) ______(1)________= -32768
① max For i = _____(2)______ To 7
② 0 If arr1(i) > Max Then _____(3)__________
③ max=arr1(i) Next i
Print \"最大值是: \"; Max End Sub 【第4题】
打开文件“考生文件夹\\376\\操作”，完善程序实现如下功能并保存： 在所有的两位整数中，输出个位数字和十位数字不相同的整数及个数。 Private Sub Command1_Click()
Dim n As Integer, a As Integer, b As Integer, x As Integer
n = 0
For a=______(1)____________ For b = 0 To 9
If a <> b Then
x=______(2)________ Print x; n = n + 1 End If Next b Print Next a
Print \"总个数：\";______(3)__________ End Sub 【第9题】
① 1 to 9 ② a*10+b ③ n 打开文件“考生文件夹\\850\\工程”，完善程序实现如下功能并保存： 在文本框text1中输入一段含有数字的短文（如样张），编写程序查找统计非数字字符的个数，并在label1中显示。
Private Sub Command1_Click() Dim x As String, y As String Dim s As Integer, i As Integer x = s = ①
For i = 1 To Len(x) ② = Mid(x, i, 1)
If Asc(y) < 48 Or Asc(y) > 57 Then s = s + 1 End If Next i = Str(③) End Sub 【第10题】
① 0 ② y ③ s 打开文件“考生文件夹\\857\\恺撒密码.vbp”，完善程序实现如下功能并保存：
公元前60年，古罗马统帅“朱利叶斯·恺撒”(Caesar)第一个用当时发明的“恺撒密码”
书写军事文书，进行战时通信。恺撒加密法简而言之，就是字母替换加密，每一个字母用字母表中该字母后的第三个字母代替。即 明文：ABCDEFGHIJKLMNOPQRSTUVWXYZ 密文：DEFGHIJKLMNOPQRSTUVWXYZABC 编写程序，将明文加密输出。例如： 输入：How are you! 输出：Krz duh brx!
Private Sub cmdCode_Click() Dim pt As String ' 明文 Dim ct As String ' 密文
Dim n As Integer ' 字母在字母表中的序号 Dim ch As String Dim i As Integer pt = ct = \"\"
For i = 1 To Len(pt) ① ch ch = Mid(pt, i, 1) ② asc(ch)-asc(\"A\") Select Case ① ③ ct+ch Case \"A\" To \"Z\"
n = Asc(ch) - Asc(\"A\") n = (n + 3) Mod 26 ch = Chr(n + 65) Case \"a\" To \"z\" n = ②
n = (n + 3) Mod 26 ch = Chr(n + 97) End Select ct = ③ Next i = ct End Sub
因篇幅问题不能全部显示，请点此查看更多更全内容