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

《计算机二级VB编程题目含答案》由会员分享，可在线阅读，更多相关《计算机二级VB编程题目含答案（13页珍藏版）》请在装配图网上搜索。

1、不得增、删窗如上的控件，不得改变窗体和控件的名称,不得删改两行.”之间的代码. 不得卿改模块九bw中的代码；编程后，需运行程序，并在运行后关闭程序窗口.3打开考生文件关下工程文件Qpfh,vbp添加适当的事件过程代码，实现以下 功能：在上边文本框中输入正整数加加值.单击“计算“按钮，则在下边文本框中显示平方和S的值.s 十 2” 十 +Af3Private Sub Command1_Click()Dim n As Integer, i As Integer, s As Double n = Val(Text1.Text)For i = 1 To ns = s + i A 2Next iText

2、2.Text = sEnd Sub2、打开考生文件夹下工程文件世壮入明邛，濡加适当的事件过程代码，实现以下 功能士单击“谈数据”按钮，读入考生文件来下的步力七文件中由1。个整数，存入 司数组中：单由何特定值”按钮，求出敷组中所有被2除后余2的效，并显示在文本框 中,Private Sub Command1_Click()不得删除本行注释Dim i As IntegerOpen App.Path & & yssj.txt For InputAs #1Fori = 1 To 10Input #1, a(i)Next iClose #1End SubPrivate Sub Command2_Clic

3、k()不得删除本行注释Dim i As IntegerText1.Text =Fori = 1 To 10If a(i) Mod 3 = 2 ThenText1.Text = Text1.Text & Str(a(i)End IfNext iEnd Sub】、打开考生文件夹下的工程文件KhVI “b p，添加适当的事件代码，求1+f 1+2 )+(1+2+3 1+11+2+3+*TH)的值，M是用户在Tex七1中任意输入的一个 正整数，单击计算结果按祖时，结果显示在工门成卬.Private Sub command1_Click()不得删除本行注释Dim a As Integer, b As D

4、ouble, i As Integer, n As Integern = Val(Text1.Text)a = 0 b = 0For i = 1 To nNext iText2.Text = bEnd Sub九打开考生文件夹下的工程文件.Vbp,添加适当的事件代码，实现以下功能；单击建立文件K按钮，逋过输入框：；nputh口如连续输入如上图所示的3个学生 的学号、姓名，并以Khx* St的文件名保存在考生文件夹中F单击显示文件按钮，以行情的方式格文件Xhxrn.txt文件的内容显示在文本 框中.Private Sub Command1_Click()不得删除本行注释Dim i%, xh$, x

5、m$Open App.Path & & Xhxm.txt ForOutput As #1Fori = 1 To 3xh = InputBox(请输入学号)xm = InputBox(请输入姓名)Write #1, xh, xmNext iClose #1End SubPrivate Sub Command2_Click()”不得删除本行注释Dim s as stringOpen App.Path & & Xhxm.txt ForInput As #2Do While Not EOF(2)Line Input #2, sText1.Text = Text1.Text & s & vbCrLfLo

6、opClose #2End Sub1,打开着生文件夹下的工程文件加*ebp,添加适当的事件代码？实现以下功能；（1）单击“读取文件”按钮，读人考生文件史下的丁m比，七比文件 笄显示到工时七1也单击“加密按钮，将Textl中的内容1曼每个字符的43n工科加5的规则加密， 并将密文显示在Tot2中.Private Sub Command1_Click()馔取文件按钮代码不得删除本行注释Dim st As StringTextl.Text =Open App.Path & & jmwb.txt ForInput As #1While Not EOFInput #1, stText1.Text = T

7、ext1.Text + st + vbCrLfWendClose #1End SubPrivate Sub Command2_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 nc = Mid(s, i, 1)p = Asc(c) + 5 co = co + Chr(p)Next iText2.Text = coEnd Sub九 打开考生文件夹下的工程文件

8、1义Vb氏液加适当的事件代码，实现以下功能！单击二生成效组”按祐生成邙个1口1 0口之间的随机整数存于数组中，并得数 组显示在文本框由七1中口单击出降序排列*接触 将文本框Tsxtl中的数坦按照降序排列显示在Texts中.Private Sub command1_click()不得删除本行注释一For N = 1 To 15x(N) = Int(Rnd * 91 + 10)Text1.Text = Text1.Text + Str(x(N)Next NEnd SubPrivate Sub Command2_Click()”不得删除本行注释一Dim m As Integer, K As Inte

9、gerFor N = 1 To 15For m = N + 1 To 15If x(m) x(N) ThenK = x(N)x(N) = x(m)x(m) = KEnd IfNext mText2.Text = Text2.Text + Str(x(N)Next NEnd Sub Fermiorx是字母字将1、打开考生文件史下的工程文件Pds.vbp,添加适当的事件代码，实现以下功能, 单击命令按钮n调用程序中提供的GetChau过程,产生TS机字符显示在Textl 中，并判断该字符属于字母、数字或其它字符中的哪一类，分别在工年211上显示”是 字母字符二是数字字符”或是其它字符7Privat

10、e Sub Command1_Click()Dim char As String * 1char = Trim(Text1.Text)If Not IsNumeric(char) ThenIf (Asc(char) = 65 And Asc(char) = 97 And Asc(char) = 120) Then Label1.Caption =输入的是字母Else: Label1.Caption =输入的是其它符号 End IfElse: Label1.Caption =输入的是数字End IfEnd Sub能m-jn; x:请输入效字母；转据I厨置篁康Fwral-：ni.x|l潇菽盘籽母；

11、转大号转小写I pwl，Formt2、打开考生文件夹下的工程文件皿石h.vbp添加适当的事件代鹃，买现以下功在文本框中输入含大小写字母的字符串（原字符审）单击命令按钮特大写”，原字 符串全部转为大写并在文本椎中显示出来；单击命令按钮*转小与二原字符串全部转 为小写并在文本框中显示出来；单击命吩按钮翻复原工则在文本椎中显示原字符串.Private Sub Command1_Click()Text1.Text = UCase(Text1.Tag) End SubPrivate Sub Command2_Click()Text1.Text = LCase(Text1.Tag) End SubPriv

12、ate Sub Command3_Click()Text1.Text = Text1.Tag End SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)对于文本框控件中输入的每次键盘按键弹起事件做一次文本内容保存Text1.Tag = Text1.Text用Text1.Tag属性作为保存 textbox控件文本内容的临时存储区End Sub】、打开考生文件夹下的工程文件 加打,vfcp,需加适当的事件过程代码，实现以 下功能】在上边三个文本框中分别任意输入一个整数，单击褶求值”按祖，则在左下文本框 中显示三个数中的最

13、尢值，在右下文本框中显示三个数中的最小值.Private Sub command1_Click()不得删除本行注释Dim a As Integer, b As Integer, c As IntegerDim max As Integer, min As Integera = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)max = a + b + Abs(a - b)max = max / 2min = a + b - Abs(a - b)min = min / 2max = max + c + Abs(max - c)max =

14、max / 2min = min + c - Abs(min - c)min = min / 2Text4.Text = maxText5.Text = minEnd Sub餐.Fermifnlnl(m-nVt2、打开考生文件先下工程文件Shqz.vbp,添加适当的事件过程代码 实现以下 功能.在左上文本框中输入正整数门的值，在左下文本框中输入正整数期的值/不小于 n),单击,万技钮，则接窗体上部所显示的公式求出组合数.井招苴显示在右边文本 框中。f考生可调用程序中所提胖的ft过程完成阶乘的计算)1、打开考生文件夹下的工程文件rdrn.YbPf添加适当的事件过程代码，实现以 下功能;在上边文本

15、框中输入一个年份，单击判蟒按钮.如果该年是闰年，在下道文本 框中显示“闺年否则，显示啊日同年”注：年份能被4整除但不能被100整除的是闰年f年份能被4口口整除的也是0年。Private Sub Command1_Click()Dim a As IntegerIf Not IsNumeric(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 =非闰年

16、End IfEnd ifText1.SetFocusText1.SelStart = 0Textl.SelLength = Len(Textl.Text) End Sub*黑接其犬X* 普It然 打开考生文件夹下的工程文件 生式.唐口 添加适当的事件过程代码，实现以 下功能：单击“写入文件”搜钮，将如右上图所示由文本字符 构成的图案与A考生目 录下的好助.七让文件.该囤案的总行敏等于文本框中输入的数值，第一行1个 以后每行递增1个.Private Sub Command1_Click()不得删除本行注释Dim n As Integer, i As Integern = Val(Text1.Te

17、xt)If n 0 Or (Not IsNumeric(Text1.Text) Then MsgBox ”请输入正整数,48,输入的不是正整数 Open App.Path & & jfwj.txt For Output As #1For i = 1 To nPrint #1, String(i, *)Next iClose #1End Sub1、打开考生文件史下的工程文件咫.在？添加适当的事件代码，实现以下功 能：单击按钮，在Textl中显示1到冲口之间所有能被3和7整除的数.Private Sub Command1_Click()不得删除本行注释Dim i As IntegerFor i =

18、 1 To 200If i Mod 3 = 0 And i Mod 7 = 0 ThenTextl.Text = Textl.Text + Str(i) End IfNextEnd Sub九打开考生文件夹下的工程文件破液加适当的事件代码实现以下功 能：单击按钮，读入考生文件夹下的.七迂文件中的15个整鲂放入巨”数组 中,如果选中“求就T单选按钮pl，在文本框工中显示具注数组元素之和（可调用 已有代码中的过程对反匹敷组元素进行累加卜如果选中“求积”单选按钮。解， 在T1中显示As数组元素之积（可调用Bhb过程对以口敌组元素进行累乘）.Private Sub Command1_Click()不得删

19、除本行注释Dim sum As Single, i As IntegerOpen App.Path & & Jsdata.txt For Input As #1Fori = 1 To 15Input #1, Arr(i)Next iClose #1If Op1 ThenT1.Text = AaaEnd IfIf Op2 ThenTl.Text = BbbEnd IfEnd SubForml二里凶1.打开考生文件夹下的工程ot-vfcpF编写适当的事件过程代M,实现以下功 能士在主力文本框中输入正整数H的值，单违求和”按由则求出从1到N范圉内所 有能被3整除的数的和,并在下面文本框中显示.Pri

20、vate Sub Command1_Click()不得删除本行注释Dim i As Integer, n As Integer, s As Integern = Val(Text1.Text)If n 0 Or (Not IsNumeric(Text1.Text) Then MsgBox ”请输入正整数,48,输入的不是正整数 s = 0For i = 1 To nIf i Mod 3 = 0 Then s = s + iEnd IfNext iText2.Text = sEnd Sub、一 Fornnl2、打开考生文件夹下的工程的出*b曰漆加适当的事件过程代码，实现以下功 能士在文本框工白岗

21、t1中输入一个十进制正整数，单击”转换按钮，将该数转换为二 迸制数（可调用已有代码中的数制转换函数此实现月并在工群口中显示口Private Sub Command1_Click()不得删除本行注释Dim a As Integera = Val(Text1.Text)Text2.Text = zh(a)zh过程在原本的程序代码中已经有了直接可用End Sub1s打开着生文件夹下的工程Qhm.vbp,添加适当的事件过程代宿，实现以下功 能：在Tut 1中输入双精度变量X的值，单击”求出工的值一搜钿，在PKtZ中显 示函被Y的值.乂 - 11Qy = J 2x-l10x20Lox-i 小口Priva

22、te Sub Command1_Click() 不得删除本行注释Dim x As DoubleDim y As Double x = Val(Textl.Text) If x 10 Then y = x - 1ElseIf x 20 Then y = 2 * x - 1Else: y = 3 * x - 1 End IfText2.Text = y End SubPrivate Sub Command2_Click()不得删除本行注释一Dim t As StringText2.Text =Fori = 1 To 10t = a(i)a(i) = a(10 - i + 1)a(10 - i +

23、1) = tText2.Text = Text2.Text & & a(i)Next iEnd Sub2、打开考生文件夹下的工程添加适当的事件过程代码，实现以下功 能二1）单击建立数组”按祖，将.七世文件中的1。个字符依枳读出并赋给数地 自卬的10个元素，并在文本框Textl中显示IZ）单击“逆序排列”按祖，将数蛆中的字符逆序排列，并在TstZ中显示.Private Sub Command1_Click()不得删除本行注释一Text1.Text =Open App.Path & & zfwj.txt For InputAs #1Fori = 1 To 10Input #1, a(i)Text1

24、.Text = Text1.Text & & a(i)Next iClose #1End Sub Fermi_1口1 X诣握定居机整数的落圉一q F RooT0 93633打开考生文件夹下的工程文件3jz3.vbp,添加适当的事件代码，实现以下功 能*程序运行时,在文本椎七R*七1和textS中分别输入随机整数的下限和上限.单击 命令按钮，生成上下限范围(封闭区间)内的三个随机整数，并在窗体下部的三个标签 中分别显布til来口Private Sub Command1_Click() Dim a As IntegerDim b As Integer a = Val(Textl.Text) b =

25、 Val(Text2.Text) Labell.Caption = Int(Rnd()* (b -a + 1)+a)Label2.Caption = Int(Rnd()* (b -a + 1)+a)Label3.Caption = Int(Rnd()* (b -a + 1)+a)End Sub2、打开考生文件夹下的工程文件工h.Fbp,添加适当的毒件代码,实现以下功能, 单击命令按钮，在文本框TS11中霞行显示着主文件夹下“六明网心文件的内容.Private Sub Command1_Click()Dim s as stringOpen App.Path & & Bdata.txt For I

26、nput As #1Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text + s + Chr(13) + Chr(10)LoopClose #1End Sub打开考生攵件夹下的工程835.vbp编写适当的事件过程代码，实现以下功能，在岷就1中任意输入一个三位的正整数，单击求各位数字典拽迅在比北小Text3 和止xN中分别显示这个三位数的个位数字、十位数字和百位数字.Private Sub Command1_Click() ”不得删改本行注释Dim n As Integer n = Val(Textl.Text) If n 999

27、ThenMsgBox 请输入三位正整数输入出错Else: Text2.Text = Int(n Mod 10)Text3.Text = Int(n Mod 100) / 10) Text4.Text = Int(n / 100)End IfEnd Sub第1题i5852367673579112373打开着生文件夬下的工程为曲“bp,添加适当的事件过程代码，实现以下功能: 单击“产生用按钮，在131a中随机生成10个汨之间的正整数5 单击门一按钮，格Lxatl中所有的奇教移动至（l L3t2中,单击港除R按钮.清空Lxstl和liSt2中的所有数字.Private Sub Command1_Cl

28、ick()产生按钮的代码i = List1.ListIndexFori = 0 To 9List1.AddItem Int(90 * Rnd + 10)Next iEnd SubPrivate Sub Command3_Click()清除按钮的代码List1.ClearList2.ClearEnd SubPrivate Sub Command2_Click()”不得删改本行注释Dim n As Double, j As Integeri = List1.ListIndexFor i = List1.ListCount - 1 To 0 Step -1n = Val(List1.List(i)I

29、f n Mod 2 = 1 ThenList2.AddItem nList1.RemoveItem iEnd IfNext iEnd SubA)Themancouftld. come 士B)Thesizethe man weiC)Thesi ze0*f the sk JD)Themancould b&uy：b_JjT Forml共1M7个 英文字母谀人数据跳讦英支字辱;第2题:打开考生文件美下的工程Trf .黄小，添加适当的事件过程代码，实现UA下功能； 单击.读人数据R按钮，读入考生文件夹下的YY.小匕文件，并显示到 阵*日中： 单击.统计英文字母”按钮则统计Textl中英文字母的个数，并把

30、统计结果显示在标 舞 Labe 11 上.Private Sub Command1_Click()馔入数据”按钮代码”不得删除本行注释Dim st As StringTextl.Text =Open App.Path & & yy.txt For InputAs #1While Not EOFInput #1, stText1.Text = Text1.Text + st + vbCrLfWendClose #1End SubPrivate Sub Command2_Click()”不得删除本行注释Dim x As String, y As String * 1, n As Integer, i As Integer, p As Integerx = Trim(Text1.Text)n = Len(x)p = 0For i = 1 To ny = UCase(Mid(x, i, 1)If y = A And y k Then List1.AddItem nNext nEnd Sub