2023年vb新操作题含超详细解析超详细解析答案.pdf
vb 新操作题(含答案)一、操作题,每题 10 分,6 题共60分【第4题】打开文件“考生文件夹175 工程1、vbp”,完善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 End Function Private Sub Command1_Click()Dim Sum As Integer Sum=S()Print Sum=&CStr(Sum)End Sub【第5题】打开文件“考生文件夹851 工程1、vbp”,完善程序实现如下功能并保存:花果山上有一洞,小猴每次采取跳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 text1、text s(n)1 n 100 vb 新操作题(含答案)End Function Private Sub Command1_Click()Dim n As Integer n=Val()Label1、Caption=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 age=Else age=age(n-1)-3 End 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 托运费用 w=Val(Text1、Text)pj=Val(Text2、Text)If w=0 y+x y/z 1 a b vb 新操作题(含答案)b=c+a Next k Print s End Sub【第7题】打开文件“Z:114 工程1、vbp”,完善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 s=s+a/b a=s=b=Next k Print s End Sub【第3题】打开文件“考生文件夹374 操作3、vbp”,完善程序实现以下功能并保存。输出数组的最大值。Private Sub Command1_Click()Dim arr1,Max As Integer arr1=Array(12,435,76,24,78,54,866,43)_(1)_=-32768 For i=_(2)_ To 7 If arr1(i)Max Then _(3)_ Next i Print 最大值就是:;Max End Sub【第4题】打开文件“考生文件夹376 操作5、vbp”,完善程序实现如下功能并保存:在所有的两位整数中,输出个位数字与十位数字不相同的整数及个数。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 a+b s+b/a a+b max 0 max=arr1(i)vb 新操作题(含答案)If a b Then x=_(2)_ Print x;n=n+1 End If Next b Print Next a Print 总个数:;_(3)_ End Sub【第9题】打开文件“考生文件夹850 工程1、vbp”,完善程序实现如下功能并保存:在文本框text1 中输入一段含有数字的短文(如样张),编写程序查找统计非数字字符的个数,并在label1 中显示。Private Sub Command1_Click()Dim x As String,y As String Dim s As Integer,i As Integer x=Text1、Text s=For i=1 To Len(x)=Mid(x,i,1)If Asc(y)57 Then s=s+1 End If Next i Label1、Caption=Str()End Sub【第10题】打开文件“考生文件夹857 恺撒密码、vbp”,完善程序实现如下功能并保存:公元前60年,古罗马统帅“朱利叶斯恺撒”(Caesar)第一个用当时发明的“恺撒密码”书写军事文书,进行战时通信。恺撒加密法简而言之,就就是字母替换加密,每一个字母用字母表中该字母后的第三个字母代替。即 明文:ABCDEFGHIJKLMNOPQRSTUVWXYZ 1 to 9 a*10+b n 0 y s vb 新操作题(含答案)密文: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=txtPt、Text ct=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 26 ch=Chr(n+65)Case a To z n=n=(n+3)Mod 26 ch=Chr(n+97)End Select ct=Next i txtCt、Text=ct End Sub ch asc(ch)-asc(A)ct+ch
