计算机二级VB编程题目含答案

⑴不得增、删窗体上的控件，不得改变窗懺和控件的名執⑵不得删改两行' “之间90代码左⑶ 不得删改模藝Jb鬧中的代码；⑷编程后’需运行理序，并在运行后关闭程序窗口。

1、打开芳生文件夹下工程文件Qpfh.vtp潘加适当的事件过程代码'买现以下功鉉在上边文本框中输入正整数W的值*单击"计算”‘按钮.则在下边文本框中显示平疔和S的值HS = *片2彳十…十矿Private Sub Comma nd1_Click()Dim n As Integer, i As Integer, s As Doublen = Val(Text1.Text)s = 0For i = 1 To ns = s + i A 2Next iText2.Text = sEnd Sub2.打开着生文件夹下工程文件Qtds.vhp,祈加适当的雪件过程代码，实现以下功能*单击“逮数据”按钮，读入考生交件表下的泸町 E 丈件中的10个整数，存入吕数组中：单主*特定值”披迅求出敢组中所有被除后余2的数，并昱示在文朮框中.Private Sub Comma nd1_Click()'''不得删除本行注释Dim i As In tegerOpe n App.Path & "\" & "yssj.txt" For In putAs #1Fori = 1 To 10In put #1, a(i)Next iClose #1End SubPrivate Sub Comma nd2_Click()'''不得删除本行注释Dim i As In tegerText1.Text =""Fori = 1 To 10If a(i) Mod 3 = 2 The nText1.Text = Text1.Text & Str(a(i)) End IfNext iEnd Sub-|Dl xl1.打开考生文件夹下的工程文件Xhyj.vbp,添加适当同事件代码，求1+( 1+2) +(1+2^3 H ■*■ (1+2+3+ '"+N)的值，曲是用户在Textl中任意输入的一t 正整麹单击“计算结果”授超时，结果显示在Te^2中.Private Sub comma nd1_Click()'''不得删除本行注释Dim a As Integer, b As Double, i As Integer, n As Integern = Val(Text1.Text)a = 0b = 0For i = 1 To n a = a + ib = b + aNext i Text2.Text = b End SubForm!■"■(jGasooi \ r*"□603002 \ "®03003\"John"2、打开矜生文件夹下的工程文件x«jt .Vbp,添加适当的事件代码，实现以下功能；⑴单击“建立文件”按钮’通过输入框：辻削也“）连续输典如上图所示的3个学生的学号、姓各并以汁亦沁讥的文件名保存在琴主文件夬林⑵单击“显示文件” JJffl，以行换的方式将文件Xhxr^.txt文件的内容界示衽文本框中・逹立文件Private Sub Comma nd1_Click()'''不得删除本行注释Dim i%, xh$, xm$Open App.Path & "\" & "Xhxm.txt" For Output As #1Fori = 1 To 3xh = InputBox("请输入学号") xm = InputBox("请输入姓名")Write #1, xh, xmNext iClose #1End Sub Private Sub Comma nd2_Click()“'不得删除本行注释Dim s as stri ngOpen App.Path & "\" & "Xhxm.txt" For Input As #2Do While Not EOF(2)Line In put #2, sText1.Text = Text1.Text & s & vbCrLf LoopClose #2End SubE 1 +(l+2)+(l+Z+3)^,..+(lJ 口］灯凄取立忡This is a cat■ ■II ■>—J Illi加比打丫mrix 蒐ntx%f 跖htyr 打开专生文件来下的工程交件 皿乳辭p,添加适当的事件代真，实现以下功能：（1）单击“读取文件"披超，读入蜡生文件夹下的伽讪上此文件，并显示到T 曲门中「 ⑵单击“加密”按迅将Textl 中册内容»每个字符的ASCII®加5的规刚加密， 并■密文县示在T 已注2中°2、打幵考生文阵夹下的工程文f4 Jjtpj.vhp,歸加适当的專件代咼 实现以下功懸⑴单击二主咸数组"按祁 生成15牛诃73之间的領机整較*存干数组中，并将数 组显■小在本框Text 1中■> ⑵单玉丝降序摊列，授耳 将文本框Tsxtl 中的数组攪賤降序排列显示在TextZ 中.Private Sub Comma nd1_Click() '读取文件”按钮代码 '''不得删除本行注释 Dim st As Stri ng Textl.Text =""Open App.Path & "\" & “jmwb.txt" For Input As #1 While Not EOF(1) In put #1, stText1.Text = Text1.Text + st + vbCrLf Private Sub Comma nd2_Click()Dim s As String, co As String, c As String, Dim n As Integer, i As Integer, p As Integer s = Trim(Text1.Text) n = Len(s)co ="" For i = 1 To nWend Close #1End Subc = Mid(s, i, 1) p = Asc(c) + 5 co = co + Chr(p) Next iText2.Text = co End SubPrivate Sub comma nd1_click() “'不得删除本行注释 - For N = 1 To 15x(N) = Int(Rnd * 91 + 10)Text1.Text = Text1.Text + Str(x(N)) Next N End SubPrivate Sub Comma nd2_Click() “'不得删除本行注释 -Dim m As In teger, K As In teger For N = 1 To 15For m = N + 1 To 15 If x(m) > x(N) ThenK = x(N) x(N) = x(m) x(m) = K End If Next mText2.Text = Text2.Text + Str(x(N)) Next N End SubK 打开着生文件吏下的工程文件Pds.vbp,湎加谴当鬧雪件代码，实现以下功能;单击命令按剧，凋甲程序中提供的&etChac 过程*产主 随机字符显亦在TextL中，芥判断该宇符属于宇臥数宇或其它宇符中的哪一奘分别在L 甜41上昱示w 是 序母于賢匸整亍證型堡鑒證・ ________________________________________________________________Private Sub Comma nd1_Click() Dim char As String * 1 char = Trim(Text1.Text) If Not IsNumeric(char) The nIf (Asc(char) >= 65 And Asc(char) <= 90) Or _ (Asc(char) >= 97 And Asc(char) <= 120) Then Label1.Caption ="输入的是字母"Else: Label1.Caption ="输入的是其它符号 ” End If Else: Label1.Caption ="输入的是数字" End If End Sub2、打开考生文件夹下的工程文件细訪・vbp 添加适当的事件优码，买现以下功 能2 在文本框中输入含大小写字母的宁符串原字符串儿单击命令拽钮唏大写”，原字 符爭全部转为大写并在文本框中显示出来；单击命令按哥"转小写”，原字符串全部转 为中写并在文本框中显示出来；单击命令按祀“复原3测在文事框中显示原字符串-Private Sub Comma nd1_Click() Text1.Text = UCase(Text1.Tag) End SubPrivate Sub Comma nd2_Click() Text1.Text = LCase(Text1.Tag) End SubPrivate Sub Comma nd3_Click() Text1.Text = Text1.Tag End SubPrivate Sub Text1_KeyUp(KeyCode As In teger, Shift As In teger) '对于文本框控件中输入的每次键盘按键弹起事件做一次文本内容保存 Text1.Tag = Text1.Text '用Text1.Tag 属性作为保存 textbox 控件文本内容的临时存储区 End Subii FormlQ T X ]-in ； X.if 輪人英玄字母：.Forml加英游母：是字理孚符I I________ j "■“ A I;命 F&rml■回田r 打开考生文件夬下的工程文杵 哉町.诵卩，希加适当的事件过程代玛，实现以 下功能’在上边三个文本框中分别任意输入一个整航 单击"求值"按刼 则在左下文本框 中见示三个数中曲最丸值，在右下文本框中显示三个数中的最小值.Private Sub comma nd1_Click() '''不得删除本行注释Dim a As Integer, b As Integer, c As Integer Dim max As In teger, min As In teger a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) max = a + b + Abs(a - b) max = max / 2 min = a + b - Abs(a - b) min = min / 2max = max + c + Abs(max - c) max = max / 2min = min + c - Abs(min - c) min = min / 2 Text4.Text = max Text5.Text = min End Sub画*Edir.l茲 打开考生文件夹下工程文件Shqz.vbp,添加适当的事件过程代码，实现以下 功％在左上文■本框中输人正整数门的値 在左下文平框中输入正整数n 的值缶不小于 n).单击披钮，则按窗体上部所显示的公武求出绍合数.芥将其显示在右边文本 框中o 生可调用程序中所提快的FactH 程完成阶乘的计算)p4最小值：fnl nl(m-nV tKi For (nlEZHH -.in]xi辐入年楼阿1.打开萼主文件夹下的工程文件rdrn-Ybp,祈加适当的雪件过程代码，实现以下功能；在上边文本框中输人一个年份，单击“判ffiffl*如臬i*年是闰年，在下边文本框中显示躇闰年&否则，显示〃刑列年耳JS：肇件遂祓4整陰但不能辔100塾除电是闰号年楼能被400整除的也是@年・Private Sub Comma nd1_Click()Dim a As In tegerIf Not lsNumeric(Text1.Text) ThenMsgBox "请输入数字！", 48,"输入的不是数字”Else a = Val(Text1.Text)If (a Mod 4 = 0 And a Mod 100 <> 0) Or a Mod 400 = 0 ThenText2.Text ="闰年”Else: Text2.Text ="非闰年”End IfEnd ifText1.SetFocusText1.SelStart = 0Text1.SelLe ngth = Len (Text1.Text)End Sub-w譬暮冥譬脊着it祥开It2.打开罟生文件央下的工程文件灶打.讪p潘加适当的事件过程代码，实现以下功能：单击“写入艾件"按钮，将如右上图所示由丈璋字符… 构咸的图黑写入考主目录下附文件.该團窠的总行镇等于文本框中薪入的数值，第一行1个7以后每行谨増1个.Private Sub Comma nd1_Click()'''不得删除本行注释Dim n As In teger, i As In tegern = Val(Text1.Text)If n < 0 Or (Not IsNumeric(Text1.Text)) Then MsgBox " 请输入正整数",48,"输入的不是正整数”Ope n App.Path & "\" & "jfwj.txt" For Output As #1For i = 1 To nPrint #1, String(i, "*")Next iClose #1End Sub・ Forml21 42 63 @4 105 1；r打开考生文件央下的工程文件阳咗•胡w 淆加适当的事件代码，实现职下功能！___ 里蚩我鱼—生列怛里壘丕丄型空±lW<tcW 5灵丄聖险區数.________________________Private Sub Comma nd1_Click()'''不得删除本行注释Dim i As In tegerFor i = 1 To 200If i Mod 3 = 0 And i Mod 7 = 0 The nTextl.Text = Textl.Text + Str(i) End IfNextEnd Sub乩打开等生丈件夹下的工程文件证対小0渍加适当閑事件代码，买现以下功能：单击按钮，读入若生文件夹下的J3^t a+txt文件中的诃个整数］就入总“教组中.如果选中“求和"单选KfflOpl,在丈本框叫中显示仁数组元素之和何调用已有代码中的陶盘过程对壮上数组元素进行彊加）；如果选中“求积"单选擡祖Op2, 在T1中显示住匸数组元素之积（可调用Bhb过程对直“数组元売进行累乘）.Private Sub Comma nd1_Click()'''不得删除本行注释Dim sum As Sin gle, i As In tegerOpe n App.Path & "\" & "Jsdata.txt" For In put As #1For i = 1 To 15In put #1, Arr(i)Next iClose #1If Op1 The nT1.Text = AaaEnd IfIf Op2 ThenT1.Text = BbbEnd IfEnd Sub1.打畔考生文件夬F的工程Ot/.vfcR編写适当的書件过程代玛，实现以下功鉉在上方文本框中输入正整数N的值，单壬“求和”按迅则求出从1到U范圃內所有能被3整除的数的和’并在下面文本框中且示.Private Sub Comma nd1_Click()'''不得删除本行注释Dim i As Integer, n As Integer, s As Integern = Val(Text1.Text)If n < 0 Or (Not lsNumeric(Text1.Text)) Then MsgBox " 请输入正整数",48,"输入的不是正整数” s = 0 For i = 1 To nIf i Mod 3 = 0 The ns = s + iEnd IfNext iText2.Text = sEnd Sub毎一Fornni打开琴生文件夹下的工程希加适当的事件过程代码，实现以下功危在文本框血讥1中輸人一个十逬制正整数，单击“转换严按钮，将该数转换为二逬制数(可调用已肓代码中的敌制转换函魏前买现h并在比祇2中昼示口Private Sub Comma nd1_Click()'''不得删除本行注释Dim a As In tegera = Val(Text1.Text)Text2.Text = zh(a)zh过程在原本的程序代码中已经有了〜直接可用End SubIs 打汗考生文件夾下的工程Ch^Z.vbp,潘加适当的事件过程代祸，实现限下功 赂 在Textl中输入双fSSSS 蛊的值，单击"求出Y 的值:”捜艇 在Tcxtz 中昱 示函魏Y 的值.「宗一 1 yV 1Qy = J 2x-l10^x<ZO_U K -J. X^ZO__ _ _ _Private Sub Comma nd1_Click()'''不得删除本行注释 Dim x As DoubleDim y As Double x = Val(Textl.Text) If x < 10 The ny = x - 1 Elself x < 20 The n y = 2 * x - 1 Else: y = 3 * x - 1 End If Text2.Text = y End Sub工、打开舊主文件夹下的工程添加适当的事件过程代码，实现以下功 能：1)单击“建立数组"按钮，将z&j ■七讥文件中的“个字符依衣读出用赋给皱绸 耳中0?]10个元爲 芥在文本眶Textl 中昼示=Z)单击经逆序排列”按钮，将数组□中的字符逆序WE 列・并在丁门说中显示.-lai xf溝掲定慮机整数的范国一q F RooT0 93 631，打开考生文件夾F 的工程文件3jz 3.vbp,添加适当的事件代码.实现以下功 能*Private Sub Comma nd1_Click() '''不得删除本行注释 - Text1.Text =""Ope n App.Path & "\" & "zfwj.txt" For In put As #1Fori = 1 To 10 In put #1, a(i)Text1.Text = Text1.Text & "" & a(i) Next i Close #1 End SubPrivate Sub Comma nd2_Click() '''不得删除本行注释 -Dim t As Stri ng Text2.Text ="" Fori = 1 To 10 t = a(i) a(i) = a(10 - i + 1) a(10 - i + 1) = tText2.Text = Text2.Text & ” ” & a(i) Next i End Sub怕 FermiFtrrml程序运行时，在文本框teictl和texts中分别输入陋机整数的下隈和上限"单击命令按钮，生成上下限范围(封I用区间)內的三个随机整轨并在窗体下都创三个标签中分别宅珂11来口_ _Private Sub Comma nd1_Click()Dim a As In tegerDim b As In tegera = Val(Text1.Text)b = Val(Text2.Text)Label1.Caption = Int(Rnd() * (b - a + 1) + a)Label2.Caption = Int(Rnd() * (b - a + 1) + a)Label3.Caption = Int(Rnd() * (b - a + 1) + a)End Sub"981001*,誓厂"geioo3\ 它那"^61006\ "YLT"gBioarr^TXM" S1__________氛打开希生文件夬下的工程文件Xh.vtopi淆加适当的重件代码，实现此下功能, 单击命奢搜钮，在文本框中逐行显示若生文件先下Bdata.txt文件的內锹Private Sub Comma nd1_Click()Dim s as stri ngOpe n App.Path & "\" & "Bdata.txt" For In put As #1Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text + s + Chr(13) + Chr(10)LoopClose #1End Sub打开芳生交件夹下的工程3站-vbp ，编写适当的事件过程代码，实现以下功能；在理址丄中任意输入一牛三位的正整数，单击血求各位数尹披艇在Wx 略Text3 和T 打说中分别显示这个三位魏闻个位数宁、十位数宇和百位数宇.Private Sub Comma nd1_Click() ”'不得删改本行注释 Dim n As In teger n = Val(Text1.Text) If n < 100 Or n > 999 The nMsgBox "请输入三位正整数",,"输入出错” Else: Text2.Text = Int(n Mod 10)Text3.Text = In t((n Mod 100)/10) Text4.Text = Int(n / 100)End If End Sub笫1題z打开着生文件夹下冊工程幻曲■诩0湎加适当的彗件过程代码，冥现臥下功能: 单击^产生刃按钮，中施机主戚io 个w 〜弱之间的正整翫 单主 援钮，将Lxatl 中所有的奇薮務动到L±3t2中’ 单击按祀，蓿空Lxstl 和li S t2中的所有敕字.■. f-orm 1个位数字是I 十位数字是; 百位数字是】-ini xj^IIU VIII I Mil弔i 求各位数字:Private Sub Comma nd1_Click()'产生按钮的代码 i = List1.List In dex For i = 0 To 9List1.AddItem In t(90 * Rnd + 10) Next i End SubPrivate Sub Command3_Click()'清除按 钮的代码 List1.Clear List2.ClearEnd SubPrivate Sub Comma nd2_Click() ”'不得删改本行注释 Dim n As Double, j As In teger i = List1.List In dexFor i = List1. ListCou nt - 1 To 0 Step -1 n = Val(List1. List(i)) If n Mod 2 = 1 The n List2.AddItem n List1.Removeltem i End If Next iEnd Sub585236充产生打■开若主文件夫下的工程Te E f ,vbp-添加适当的事件过程代码，实现以下功能； 单击盘读入数据"按钮，读入考生文件夹下的迥."匕文件，并显示到血川丄中： 单击虫统计英文字母”按钮则统计Textl 中英文字母的个数，并把统计结果县示在标 签 Labe 11 上.211293 zl227 229233打开着生文件夷下的工程8北.讪归济加适当创事件过程代码，实现以下功能:单击血求23〜3兀之间的素数”披钮，列表框listl 中品示2 □0-300 ±间的秦数.Private Sub Comma nd1_Click() “'不得删除本行注释Dim n As Integer, k As Integer, i As Integer For n = 200 To 300 k = In t(Sqr( n)) Fori = 2 To kIf n Mod i = 0 Then Exit For Next iIf i > k Then List1.AddItem n Next n End Sub-IPI x|EC De s e e hhhh _T T- T- T-man couftld. come 土 size the man 伸ai si ze o*f the日k — man c^ould b&uy 41□JV * 一 ：』F 共］前个 英文字母谏入数据Private Sub Comma nd1_Click() '读入数据”按钮代码 “'不得删除本行注释 Dim st As Stri ng Textl.Text =""Ope n App.Path & "\" & "yy.txt" For In put As #1While Not EOF(1) In put #1, stText1.Text = Text1.Text + st + vbCrLf Wend Close #1 End SubPrivate Sub Comma nd2_Click() “'不得删除本行注释Dim x As String, y As String * 1, n As In teger, i As In teger, p As In teger x = Trim(Text1.Text) n = Len(x) p = 0 For i = 1 To ny = UCase(Mid(x, i, 1)) If y >= "A" A nd y <= "Z" The n p = p + 1 End If Next iLabel1.Caption ="共"& p & ” 个字母" End Sub。