福建省计算机二级VB编程题
全国计算机二级《VB》练习题及答案
全国计算机二级《VB》练习题及答案全国计算机二级《VB》练习题及答案9月计算机等级考试将于9月23日-26日举行，目前处于紧张的备考阶段，以下是店铺搜索整理的一份全国计算机二级《VB》练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们店铺!1.双击窗体中的对象后，VB将显示的窗口是(C)(单)A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口2.下述选项中，VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)(单)A.CaptionB.TextD.Top5.标签默认属性是(A)(单)A.CaptionD.Top6.执行以下程序段：a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)(单)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)>x Then Print a(I);End Sub程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
福建省计算机二级VB设计题目含答案
ListBox 相关属性：；；在属性窗口中设置列表框的list属性，按ctrl+回车表示输入下一个项目相关代码如下：Private Sub C1_Click()Form1.Picture =LoadPicture("k:\fjexam95\jztx.bmp") End Sub Private Sub C2_Click()Form1.Picture = LoadPicture("") End Sub标签控件属性：；；滚动条控件属性：；；；菜单编辑器按钮：将菜单降级为子菜单按钮：相关代码如下：Private Sub Add_Click()Label1.Caption = Val(Text1.Text) + Val(Text2.Text) End SubPrivate Sub Sub_Click()Label1.Caption = Val(Text1.Text) - Val(Text2.Text) End Sub Private Sub Clean_Click() Label1.Caption = "" Text1.Text = ""Text2.Text = ""End Sub相关代码如下：Private Sub Command1_Click() Text1.Visible = FalseEnd SubPrivate Sub Command2_Click() Text1.Visible = TrueText1.Text = "VB程序设计"End SubPrivate Sub Form_Click() Timer1.Interval = 0End Sub Private Sub Timer1_Timer()L1.Caption = L1.Caption + 1End Sub标签控件属性：名称---L1Caption---0，BorderStyle---1计时器控件属性：Interval---2000Shape 控件属性：；；；；Form 属性：Private Sub Command1_Click() Timer1.Interval = 500End Sub Private Sub Timer1_Timer()If Val(Text1.Text) > 0 Then Text1.Text = Text1.Text - 1 If Text1.Text = 0 Then Timer1.Interval = 0End SubPrivate Sub Command1_Click() List2.AddItem List1.TextEnd Sub Private Sub Command2_Click()MsgBox "你共选修了" & List2.ListCount & "门课程"End Sub 相关属性：；；Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Label1.Caption = "00:00:00" Timer1.Enabled = False End Sub Private Sub Timer1_Timer()Label1.Caption = Format(Time, "hh:mm:ss")End SubPrivate Sub Command1_Click() Picture1.ClsPicture1.Line (0, 0)-(1800, 1100) End Sub Private Sub Command2_Click() Picture1.ClsPicture1.Circle (900, 550), 300, , , , 2End Sub；Private Sub Command1_Click()Text2.Text = Text1.SelTextEnd SubPrivate Sub Command1_Click()List1.AddItem Text1.TextList2.AddItem Len(Trim(Text1.Text))Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub；；Label控件属性：AutoSize—true;Text属性：Heigh—600；Width—3000；MultiLine---True；ScrollBars—1-Horizontal Private Sub Text1_Change() Text2.Text = Text1.Text End SubPrivate Sub c1_Click()If ch1 And ch2 ThenText1.Text = "报名参加篮球和排球比赛" ElseIf ch1 ThenText1.Text = "报名参加篮球比赛" ElseIf ch2 Then Text1.Text = "报名参加排球比赛" ElseText1.Text = ""End IfEnd SubForm属性：Backcolor：蓝色；标签：Backstyle---0-transparent；Alignment---2-center；Forecolor---红色代码：Private Sub C1_Click()Label1.Caption = "祝考生考试顺利"End SubForm属性：Caption---课程选择ListBox控件属性：Style---1-checkbox；list：“高等数学”“英语”“计算机基础”“大学物理”“思想品德”Private Sub Command1_Click()If Text1.Text = "student" ThenLabel2.Caption = "欢迎使用本系统" ElseLabel2.Caption = "口令错，请重新输入“Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Text1.SetFocusEnd IfEnd SubText1属性：PassWordChar---*添加Label2，Label3，Label4，Label5.其Caption分为”调出颜色”,”红(R)”,”绿(G)”,”蓝(B)”的标签控件，Label1的Caption 为空，和添加三个水平滚动条(名称为hs1,hs2,hs3)，且min,max属性值均为0，255。
福建省计算机二级vb试题及答案
福建省计算机二级vb试题及答案一、选择题（每题2分，共20分）1. Visual Basic是一种______。
A. 操作系统B. 编程语言C. 数据库管理系统D. 办公软件答案：B2. 在Visual Basic中，下列哪个关键字用于声明变量？A. DimB. SubC. FunctionD. End答案：A3. 如果要在Visual Basic中创建一个窗体，应该使用哪个控件？A. LabelB. TextBoxC. FormD. Button答案：C4. 在Visual Basic中，哪个函数用于将字符串转换为大写？A. StrConvB. UCaseC. LCaseD. Trim5. 下列哪个选项不是Visual Basic的事件？A. ClickB. LoadC. OpenD. Change答案：C6. 在Visual Basic中，如何表示一个数组？A. Dim numbers(5) As IntegerB. Dim numbers As IntegerC. Dim numbers(5)D. Dim numbers As Integer(5)答案：A7. Visual Basic中，哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B8. 在Visual Basic中，哪个关键字用于循环遍历数组？A. ForB. WhileC. DoD. If答案：A9. Visual Basic中，哪个函数用于获取当前日期？B. DateC. TimeD. Today答案：D10. 在Visual Basic中，下列哪个选项用于创建一个单选按钮？A. CheckBoxB. RadioButtonC. OptionButtonD. ToggleButton答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以定义一个函数。
福建二级vb编程题
第1题：打开考生文件夹下的工程文件sxhs.vbp，添加适当的事件过程代码，实现以下功能：在文本框Text1中输入一个三位正整数，单击“判断”按钮，若该数为水仙花数，则在标签Label1中显示“是水仙花数”；否则，显示“不是水仙花数”。
水仙花数是一个三位正整数，其各位数字立方和等于该数本身。
例如，153是个水仙花数，153=13+53+33。
注：⑴不得增、删窗体上的控件，不得改变窗体和控件的名称；⑵不得删改两行“’############################# ”之间的代码；⑶不得删改模块*.bas中的代码；⑷编程后需运行程序，并在运行后关闭程序窗口（即单击活动窗体的“×”按钮）。
第1题：打开考生文件夹下的工程文件gwqj.vbp，编写适当的事件过程代码，实现以下功能：在文本框Text1中输入一个正整数，单击“各位非零数字之积”按钮，在文本框Text2中显示该数每一位非零数字相乘的积。
注：⑴不得增、删窗体上的控件，不得改变窗体和控件的名称；⑵不得删改两行“’#############################”之间的代码；⑶不得删改模块*.bas中的代码；⑷编程后需运行程序，并在运行后关闭程序窗口（即单击活动窗体的“×”按钮）。
第1题：打开考生文件夹下的工程文件jsxc.vbp，添加适当的事件过程代码，实现以下功能：在文本框Text1中输入一个字符串，串的首字符为第1位，单击“生成新字符串”按钮，依次从这个字符串的各个奇数位取出字符，构成新的字符串，并将新字符串显示在文本框Text2中。
注：⑴不得增、删窗体上的控件，不得改变窗体和控件的名称；⑵不得删改两行“’############################# ”之间的代码；⑶不得删改模块*.bas中的代码；⑷编程后需运行程序，并在运行后关闭程序窗口（即单击活动窗体的“×”按钮）。
第1题：打开考生文件夹下工程文件jspfh.vbp，添加适当的事件过程代码，实现以下功能：在文本框Text1中输入正整数N，单击“计算”按钮后，在文本框Text2中显示不大于该数的所有奇数的平方和。
计算机二级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。
计算机二级考试《VB》练习题及答案
xx年计算机二级考试《VB》练习题及答案1、一个栈的初始状态为空。
现将元素1、2、3、4、5、A、B、c、D、E依次入栈，然后再依次出栈，那么元素出栈的顺序是( )。
A.12345ABCDEB.EDCBA54321C.ABCDEl2345D.54321EDCBA2、以下表达中正确的选项是( )。
A.循环队列有队头和队尾两个指针，因此，循环队列是非线性构造B.在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况C.在循环队列中，只需要队尾指针就能反映队列中元素的动态变化情况D.循环队列中元素的个数是由队头指针和队尾指针共同决定3、在长度为凡的有序线性表中进展二分查找，最坏情况下需要比拟的次数是( )。
A.0(n)B.O(n2)C.O(1092n)D.0(nlog2n)4、以下表达中正确的选项是( )。
A.顺序存储构造的存储一定是连续的，链式存储构造的存储空间不一定是连续的B.顺序存储构造只针对线性构造，链式存储构造只针对非线性构造C.顺序存储构造能存储有序表，链式存储构造不能存储有序表D.链式存储构造比顺序存储构造节省存储空间5、数据流图中带有箭头的线段表示的是( )。
A.控制流B.事件驱动C.模块调用D.数据流6、在软件开发中，需求分析阶段可以使用的工具是( )。
A.N—s图B.DFD图C.PAD图D.程序流程图7、在面向对象方法中，不属于“对象”根本特点的是( )。
A.一致性B.分类性C.多态性D.标识唯一性8、一问宿舍可住多个学生，那么实体宿舍和学生之间的联系是( )。
A.一对一B.一对多C.多对一D.多对多9、在数据管理技术开展的三个阶段中，数据共享最好的是( )。
A.人工管理阶段B.文件系统阶段C.数据库系统阶段D.三个阶段相同10.栈和队列的共同特点是( )A.都是先进先出B.都是先进后出C.只允许在端点处插入和删除元素D.没有共同点参考答案： C。
计算机二级vb考试题及答案
计算机二级vb考试题及答案一、单选题（每题2分，共20分）1. VB中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. DoubleD. All of the above答案：D2. 在VB中，哪个关键字用于声明一个变量？A. DimB. SetC. ConstD. Option答案：A3. VB中的窗体对象Form的默认名称是什么？A. Form1B. Form2C. FormMainD. MainForm答案：A4. 在VB中，哪个函数用于将字符串转换为数字？A. StrB. ValC. CIntD. CStr5. VB中，以下哪个控件用于显示文本？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：A6. VB中，哪个事件用于响应鼠标单击动作？A. ClickB. MouseDownC. MouseUpD. DoubleClick答案：A7. 在VB中，哪个属性用于设置文本框（TextBox）的只读状态？A. ReadOnlyB. EnabledC. VisibleD. BackColor答案：A8. VB中，哪个方法用于在文本框中追加文本？A. AppendB. InsertC. AddD. Print答案：D9. VB中，以下哪个选项是正确的循环结构？B. WhileC. DoD. All of the above答案：D10. 在VB中，哪个函数用于获取当前日期？A. NowB. DateC. TodayD. Time答案：C二、判断题（每题1分，共10分）1. VB中的数组下标默认从0开始。
（错误）2. VB中可以使用Mid函数来获取字符串的子串。
（正确）3. VB中，使用Set可以声明对象变量。
（正确）4. VB中的If语句后面必须跟Then关键字。
（正确）5. VB中，使用Randomize函数可以初始化随机数生成器。
（正确）6. VB中，使用Exit Sub可以提前退出Sub过程。
计算机二级vb试题题目及答案
计算机二级vb试题题目及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的字符串比较？A. "Hello" > "hello"B. "Hello" < "hello"C. "Hello" = "hello"D. "Hello" <> "hello"答案：B2. VB中，哪个函数可以用来计算数组中元素的个数？A. UBoundB. LBoundC. CountD. Size答案：A3. 在VB中，以下哪个选项表示创建一个名为“myForm”的窗体？A. Form myFormB. Dim myForm As FormC. Dim myFormD. Form myForm As New Form答案：D4. VB中，下列哪个选项是正确的文件打开模式？A. Open "filename" For Input As #1B. Open "filename" For Output As #1C. Open "filename" For Append As #1D. All of the above答案：D5. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. FloatD. All of the above答案：D6. VB中，哪个关键字用来声明一个变量？A. DimB. DeclareC. ConstD. All of the above答案：D7. 在VB中，以下哪个选项是正确的循环结构？A. ForB. DoC. WhileD. All of the above答案：D8. VB中，哪个函数可以用来获取当前系统日期？A. NowB. DateC. TimeD. Today答案：D9. 在VB中，以下哪个选项表示创建一个名为“myButton”的按钮？A. Button myButtonB. Dim myButton As ButtonC. Dim myButtonD. Button myButton As New Button答案：D10. VB中，哪个关键字用来结束一个程序的运行？A. EndB. ExitC. StopD. All of the above答案：D二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以声明一个全局变量。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
编程题
N = Val(Text1.Text)
Select Case N
Case 80 To 100
Text2.Text = "优良"
Case 60 To 79
Text2.Text = "合格"
Case 0 To 59
Text2.Text = "不合格"
End Select
Dim i%, s&
N = Val(Text1.Text)
s = 0
If i Mod 2 = 0 Then s = s + i
Next i
Text2.Text = Str(s)
Dim i As Integer
N = Val(Text1.Text)
Text2.Text = ""
For i = N To 1000
If i Mod 8 = 1 Then Text2.Text = Text2.Text & i & " " Next i
Dim i As Integer
s = 0
N = Val(Text1.Text)
s = s + i ^ i
Next i
Text2.Text = s
Dim i%, n%, a As String * 1
n = 0
For i = 1 To Len(Text1.Text)
a = Mid(Text1.Text, i, 1)
If a >= "0" And a <= "9" Then n = n + 1
Next i
Text2.Text = Str(n)
Dim a As Double, b As Double, c As Double '保留本行定义 a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If b ^ 2 - 4 * a * c >= 0 Then Text4.Text = "实数解"
Else
Text4.Text = "复数解"
End If
N！
S=1
For i=1 to n
S=s*i
Next i
1+1!+2!+3！+。
+n！
Dim i%, t&,n%,s&
n=val(text1.text)
t=1
s=1
For i=1 to n
s=s*i
t=t+1.0/s
Next i
Dim i As Integer, j As Integer, s As Long N = Val(Text1.Text)
Text2.Text = Str(e)
Dim N As Integer, s As Single '保留
Dim i%
N = Val(Text1.Text)
s = 0
s = s + (-1) ^ (i + 1) / i
Next i
Text2.Text = Str(s)
Dim i%
Text1.Text = ""
For i = 100 To 200
If i Mod 3 = 0 And i Mod 6 <> 0 Then Text1.Text = Text1.Text & i & " " Next i
Dim A(1 To 20) As Integer, i As Integer
Text1.Text = ""
Text2.Text = ""
Randomize
A(i) = Int(Rnd * 90 + 10)
Text1.Text = Text1.Text & A(i) & " "
Text2.Text = Text2.Text & IIf(A(i) >= 65 And A(i) <= 90, Chr(A(i)) & " ", "") Next i
Private Sub Command1_Click()
'不得删改本行注释
Randomize
Text1.Text = Int(Rnd * 9000 + 1000)
End Sub
Private Sub Command2_Click()
'不得删改本行注释
Dim i%, s%
s = 0
For i = 1 To Len(Text1.Text)
s = s + Val(Mid(Text1.Text, i, 1))
Next i
Text2.Text = Str(s)
End Sub
Private Sub Command1_Click()
'不得删改本行注释
Dim i As Integer
Text2.Text = ""
For i = 1 To Len(Text1.Text)
Text2.Text = Mid(Text1.Text, i, 1) & Text2.Text Next i
End Sub
Private Sub command1_click()
'''不得删改本行注释
Dim i%, chr As String * 1
Text3.Text = ""
For i = 1 To Len(Text1.Text)
chr = Mid(Text1.Text, i, 1)
If chr <> Text2.Text Then Text3.Text = Text3.Text & chr
'或者 If chr = Text2.Text Then Text3.Text = Replace(Text1.Text, chr, "") Next i
End Sub
Dim i%
Dim n%
n = Val(Text1.Text)
For i = 1 To n
Label2.Caption = Label2.Caption + Sjzf Next i
Function Sjzf() As String
Dim k As Integer
Randomize
k = Int(Rnd * 2)
If k = 0 Then
Sjzf = Chr$(Int(Rnd * 26) + 65)
Else
Sjzf = Chr$(Int(Rnd * 26) + 97)
End If
End Function。