vb新操作题(含答案).doc

《vb新操作题(含答案).doc》由会员分享，可在线阅读，更多相关《vb新操作题(含答案).doc（10页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、一、操作题，每题 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)1n100 End IfEnd FunctionPrivate Sub Command1_Click() Dim Sum As Integer Sum = S() Print Sum= & CStr(Sum)End Sub【第5

2、题】打开文件“考生文件夹851工程1.vbp”，完善程序实现如下功能并保存：花果山上有一洞，小猴每次采取跳1阶或者跳3阶的办法从山下跳跃上台阶进洞，编程在Text1中输入台阶数，在Label1中显示有多少种不同的跳法。正确的运行结果如下图所示，调试时输入的台阶数最大不要超过35！Function s(n As Integer) As LongIf n = 1 Or n = 2 Then s = Else1text1.texts(n) If n = 3 Then s = 2 Else s = s(n - 1) + s(n - 3) End IfEnd IfEnd FunctionPrivate

3、Sub Command1_Click()Dim n As Integern = 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 Subn38End IfFunction age(n As

4、 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 A

5、s Single 托运费用 w = Val(Text1.Text) pj = Val(Text2.Text)fy =0End Iffy If w =0 y+x y/z 2048 step -1 f(0) Dim f(10) As Integer 30分钟共分裂10次 Dim i As Integer f(10) = For i = 9 To 0 Step f(i) = f(i + 1) / 2 Next i Print End Sub【第1题】打开文件“考生文件夹375操作4.vbp”，完善程序实现以下功能并保存。从键盘输入若干个数直到输入负数为止，统计所有非负数的平均值并输出。Private

6、 Sub Command1_Click() Dim x As Single, y As Single Dim z As Integer x = InputBox(输入一个数：) Do while _(1)_ y=_(2)_ z = z + 1 x = InputBox(输入一个数：) Loop If z = 0 Then z = 1 End If y=_(3)_ Print 平均值为：; yEnd Sub【第1题】打开文件“考生文件夹372操作1.vbp”，完善程序实现以下功能并保存。Private Sub Command1_Click() Dim s As Single Dim a As I

7、nteger, b As Integer, c As Integer, k As Integer 1 a b s = 0 a = _(1)_ b = 1 For k = 1 To 20 s = s + a / b c = _(2)_ a = _(3)_ b = c + a Next k Print 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 Integer Dim a As Integer Dim

8、 b As Integer Dim k As Integer s = 0 a = 1 b = 1 a+b s+b/a a+b For k = 1 To 10 s = s + a / b a = s = b = Next k Print sEnd Sub【第3题】打开文件“考生文件夹374操作3.vbp”，完善程序实现以下功能并保存。输出数组的最大值。Private Sub Command1_Click() Dim arr1, Max As Integer arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) max 0 max=arr1(i) _(1)_

9、= -32768 For i = _(2)_ To 7 If arr1(i) Max Then _(3)_ Next i Print 最大值是: ; MaxEnd 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 1 to 9 a*10+b n If a b

10、 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 StringDim s As Integer, i As Integer 0 y sx = Text1.Texts = For i = 1

11、To Len(x) = Mid(x, i, 1) If Asc(y) 57 Then s = s + 1 End IfNext iLabel1.Caption = Str()End Sub【第10题】打开文件“考生文件夹857恺撒密码.vbp”，完善程序实现如下功能并保存：公元前60年，古罗马统帅“朱利叶斯恺撒”(Caesar)第一个用当时发明的“恺撒密码”书写军事文书，进行战时通信。恺撒加密法简而言之，就是字母替换加密，每一个字母用字母表中该字母后的第三个字母代替。即明文：ABCDEFGHIJKLMNOPQRSTUVWXYZ密文：DEFGHIJKLMNOPQRSTUVWXYZABC编写程序，

12、将明文加密输出。例如：输入：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 ch asc(ch)-asc(A) ct+ch ct = For i = 1 To Len(pt) ch = Mid(pt, i, 1) Select Case Case A To Z n = Asc(ch) - Asc(A)

13、 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 = ctEnd Sub10每题 分 . 0 = + = = = = - ( ,( = ( - + * ( ) . = 序中表母 密 明明 ( _ 如例密加序 。替字的字表字个，密字就言密撒通时进军”码的发当第 (斯利帅罗0存保下实善， 密 件生题0 . + ( ) , ( = * * , ( 示显 并个字计统写编如短字段输中 存并功实程” 程工 夹考题

14、 _)_总 + _ _ +0 * * 0 题 _ _ , ( 数个整相数字位输整两存保能实善” 夹“件题 :最 _ _ ( _ (_ * * * _)_ ) = 0 = * , , , ( 值最存并下以程， 作 文“题 = + + /+ + = + =/ *= = ( 值值0/+ +/ ，存保码 善完 工 “题 = _)_ _(_ / = =_(_ * * * , ( 存存功实序” 作 件“题 ;为 _ _ = 0 数个 += _)(_= _ _ ：入( ( 出输平负非统数输直个输存存能现善” 作 文“题 ) 0 - 0 * / * + = 0 共0 0 ) - = =/ + *= * 考(

15、件_夹 胞程个有开 胞 ”钟0完 分细裂每 一钟 存存下 现 程” 裂细 及件考件题代 并 存 = = , = 0 = * *= 能 =用 * 上体输果0+求 ( 示图下(数玫所程试 数一 例” 玫数 ，和 各它 数个 存保 下实善， 数 夹考“题 _(_ ( ( -= 0 = _ ) = _(_ 数质 参) 函其果对，数称 数两（的内存并下现善” 夹“题 ( = 0 ) ) 00 ( 示张如 标显并 还，数 个框本 不零 0满元 返 品购顾如0送0 动在商：存保码 完 .“件中文考题 = )：度李输 )：度晓入( ( = )：距校珊王( ( = /( 间学与输体 、 输能校达时果)小（率步，时米 速珊，发里时自明某米 校距存并件 ， 工 夹生题 .* * - = 0 . ( 费运 价票 重李 ( _ 中中应输用运行，点价票经李输能算% 票斤每，公超不行费舱济存存代 ， 件考题 - - ( : 年第 = ( ( 示 显的人算，写岁 人第岁 比人第 小 人 小 说第岁个比人个起人存存下如善， 题龄 生题 . ( ( = ) . = ) ( 过超最台输调示如行的跳同少有 在台入 在，阶跃山办 或跳次每，存并下现程， . 夹“题 ( ( ( 0 0