1、一、操作题，每题 10分，6 题共60分【第4题】打开文件“考生文件夹175工程1.vbp”，完善Command1_Click事件及s函数代码并保存。实现功能：用递归法求1+2+3+100的值，结果输出在窗体上。Public Function S(n As Integer) As IntegerIf n = 1 ThenS = ElseS = + S(n - 1)End IfEnd FunctionPrivate Sub Command1_Click()Dim Sum As IntegerSum = S()Print “Sum=“ age()End SubFunction age(n As I
2、nteger) As IntegerIf n = 1 Thenage = Elseage = age(n - 1) - 3End Function【第3题】打开文件“考生文件夹89工程1.vbp”，完善Command1_Click事件代码并保存。乘坐飞机的经济舱时，免费托运行李一般不得超过20公斤，超重每公斤按全票价的1.5%计算。实现功能：输入行李重量及经济舱全票价后，点击按钮，计算出行李托运费用，输出到对应文本框中。Private Sub Command1_Click()Dim w As Integer 行李重量Dim pj As Integer 机票价格Dim fy As Single
3、托运费用w = Val(Text1.Text)pj = Val(Text2.Text)If w =0 y+x y/z 1 a bs = s + a / bc = _(2)_a = _(3)_b = c + aNext kPrint sEnd Sub【第7题】打开文件“Z:114工程1.vbp”， 完善Form_Click事件代码并保存。完善程序，求1/1+1/2+2/3+21/34+前20项的值。Private Sub Command1_Click()Dim s As IntegerDim a As IntegerDim b As IntegerDim k As Integers = 0a =
4、 1b = 1For k = 1 To 10s = s + a / ba = s = b = Next kPrint sEnd Sub【第3题】打开文件“考生文件夹374操作3.vbp”，完善程序实现以下功能并保存。输出数组的最大值。Private Sub Command1_Click()Dim arr1, Max As Integerarr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)_(1)_= -32768For i = _(2)_ To 7If arr1(i) Max Then _(3)_Next iPrint “最大值是: “; MaxEnd
5、Sub【第4题】打开文件“考生文件夹376操作5.vbp”，完善程序实现如下功能并保存：在所有的两位整数中，输出个位数字和十位数字不相同的整数及个数。Private Sub Command1_Click() a+b s+b/a a+b max 0 max=arr1(i)Dim n As Integer, a As Integer, b As Integer, x As Integern = 0For a=_(1)_For b = 0 To 9If a b Thenx=_(2)_Print x;n = n + 1End IfNext bPrintNext aPrint “总个数：“;_(3)_E
6、nd Sub【第9题】打开文件“考生文件夹850工程1.vbp”，完善程序实现如下功能并保存：在文本框text1中输入一段含有数字的短文（如样张） ，编写程序查找统计非数字字符的个数，并在label1中显示。Private Sub Command1_Click()Dim x As String, y As StringDim s As Integer, i As Integerx = Text1.Texts = For i = 1 To Len(x) = Mid(x, i, 1)If Asc(y) 57 Thens = s + 1End IfNext iLabel1.Caption = Str
7、()End Sub【第10题】打开文件“考生文件夹857恺撒密码.vbp”，完善程序实现如下功能并保存： 1 to 9 a*10+b n 0 y s公元前60年，古罗马统帅“朱利叶斯恺撒”(Caesar)第一个用当时发明的“恺撒密码”书写军事文书，进行战时通信。恺撒加密法简而言之，就是字母替换加密，每一个字母用字母表中该字母后的第三个字母代替。即明文：ABCDEFGHIJKLMNOPQRSTUVWXYZ密文：DEFGHIJKLMNOPQRSTUVWXYZABC编写程序，将明文加密输出。例如：输入：How are you!输出：Krz duh brx!Private Sub cmdCode_Cl
8、ick()Dim pt As String 明文Dim ct As String 密文Dim n As Integer 字母在字母表中的序号Dim ch As StringDim i As Integerpt = txtPt.Textct = “For i = 1 To Len(pt)ch = Mid(pt, i, 1)Select Case Case “A“ To “Z“n = Asc(ch) - Asc(“A“)n = (n + 3) Mod 26ch = Chr(n + 65)Case “a“ To “z“n = n = (n + 3) Mod 26ch = Chr(n + 97)End Selectct = Next itxtCt.Text = ctEnd Sub ch asc(ch)-asc(“A“) ct+ch
