(完整word版)计算机二级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计算机试题及答案
二级vb计算机试题及答案题目：二级VB计算机试题及答案一、选择题（每题2分，共40分）1. VB是哪个公司的开发工具？A. 微软B. 谷歌C. 苹果D. IBM2. VB是基于哪种编程语言开发的？A. C#B. JavaC. Visual BasicD. Python3. VB中用于显示消息框的语句是：A. MessageBox.ShowB. Console.ReadLineC. PrintD. MsgBox4. 下面哪个功能不属于VB开发的特点？A. 可视化界面设计B. 强大的数据库支持C. 高效的并发处理能力D. 多线程编程支持5. VB中声明一个整型变量的关键字是：A. intB. byteC. integerD. dim二、填空题（每题2分，共20分）1. VB中的对象是通过_________进行创建和使用的。
2. VB中用于循环控制的关键字是_________。
3. VB语言中的函数返回值类型可以是_________。
4. VB中用于判断条件的关键字是_________。
5. VB中用于定义常量的关键字是_________。
三、简答题（每题5分，共30分）1. VB中的控件是什么？2. VB中的“事件”是什么？举例说明。
3. VB中的数组有哪些类型？请简述各自的特点。
4. VB中的循环语句有哪些？请简述各自的应用场景。
5. VB中的错误处理机制是什么？如何使用？四、编程题（共30分）请使用VB语言编写一个简单的计算器程序，要求满足以下功能：1. 界面设计：包括两个文本框用于输入两个数字，一个下拉列表选择运算符号，一个按钮用于触发计算。
2. 运算功能：根据选择的运算符号，对输入的两个数字进行相应的计算（加、减、乘、除），并将结果显示在一个文本框中。
注意事项：- 每个题目的答案请放在相应的题目下方。
- 答案可以按照题目顺序直接写在文章中，无需换行或空行。
- 格式排版整洁美观，语句通顺，使用合适的标点符号和语法结构。
计算机二级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二级考试试题及答案
计算机vb二级考试试题及答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，下列哪个选项是正确的变量声明方式？A. Dim a$B. Dim a% IntegerC. Dim a As IntegerD. Dim a Integer答案：C2. 下列哪个函数用于计算一个数的平方？A. SqrB. AbsC. RoundD. Sq答案：A3. 在Visual Basic中，哪个控件用于显示图像？A. LabelB. PictureBoxC. TextBoxD. ComboBox答案：B4. 下列哪个选项是正确的Visual Basic程序结构？A. Sub Main()B. Function Main()C. Procedure Main()D. Process Main()答案：A5. 在Visual Basic中，哪个关键字用于声明一个子程序？A. FunctionB. SubC. ClassD. Module答案：B6. 下列哪个选项是正确的数组声明方式？A. Dim arr(10)B. Dim arr As Integer(10)C. Dim arr(10) As IntegerD. Dim arr Integer(10)答案：C7. 在Visual Basic中，哪个控件用于创建下拉列表？A. ListBoxB. ComboBoxC. CheckBoxD. OptionButton答案：B8. 下列哪个选项是正确的条件语句？A. If condition ThenB. If condition BeginC. If condition Then ElseD. If condition Begin Else答案：C9. 在Visual Basic中，哪个关键字用于退出当前的循环？A. ContinueB. ExitC. BreakD. Return答案：C10. 下列哪个选项是正确的Visual Basic事件处理方式？A. Function eventname()B. Sub eventname()C. Procedure eventname()D. Call eventname()答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个全局变量。
计算机二级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中，使用________关键字可以声明一个全局变量。
全国vb二级试题及答案
全国vb二级试题及答案全国VB二级试题及答案一、单项选择题（每题1分，共20分）1. 在Visual Basic中，以下哪个不是内置的数据类型？A. IntegerB. StringC. ObjectD. Array2. 以下哪项不是Visual Basic的事件？A. ClickB. LoadC. PrintD. Change3. 以下哪个语句用于在Visual Basic中声明一个变量？A. DimB. DeclareC. LetD. Set4. 在Visual Basic中，哪个函数用于将字符串转换为数值？A. Str()B. Val()C. CStr()D. CInt()5. 如果需要在Visual Basic中实现一个循环，直到某个条件不再满足为止，应该使用以下哪个结构？A. For...NextB. Do...LoopC. While...WendD. Select...Case6. 在Visual Basic中，以下哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox7. 以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. Text8. 在Visual Basic中，以下哪个不是数组的声明方式？A. Dim arr(1 To 10) As IntegerB. Dim arr() As IntegerC. ReDim arr(1 To 10)D. Dim arr As Integer()9. 以下哪个方法用于在Visual Basic中打开一个文件？A. OpenB. CloseC. WriteD. Print10. 在Visual Basic中，以下哪个不是错误处理的语句？A. On Error GoToB. On Error Resume NextC. On Error Exit SubD. On Error Stop二、简答题（每题5分，共10分）11. 简述Visual Basic中的类和对象的区别。
国家二级计算机vb考试试题及答案
国家二级计算机vb考试试题及答案一、单项选择题（每题1分，共10分）1. 在VB中，用于定义变量的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：A2. 下列哪个选项不是VB中的控制结构？（）A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案：D3. VB中，用于声明一个子程序的关键字是（）。
A. FunctionB. SubC. DimD. Const答案：B4. 在VB中，用于表示逻辑“与”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：A5. VB中，用于表示逻辑“或”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：B6. 在VB中，用于声明一个数组的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：A7. VB中，用于声明一个常量的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：D8. 在VB中，用于表示逻辑“非”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：C9. VB中，用于声明一个函数的关键字是（）。
A. FunctionB. SubC. DimD. Const答案：A10. 在VB中，用于表示逻辑“异或”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：D二、填空题（每题2分，共10分）1. 在VB中，使用____关键字可以定义一个全局变量。
答案：Public2. 当需要在VB中定义一个私有变量时，应使用____关键字。
答案：Private3. 在VB中，使用____关键字可以定义一个局部变量。
答案：Dim4. VB中，使用____关键字可以定义一个过程。
答案：Sub5. VB中，使用____关键字可以定义一个函数。
答案：Function三、简答题（每题5分，共20分）1. 请简述VB中事件驱动编程的概念。
计算机vb二级考试试题及答案
计算机vb二级考试试题及答案一、选择题（每题2分，共20分）1. VB中用于声明变量的关键字是：A. DimB. DeclareC. ConstD. Let答案：A2. 在VB中，下列哪个选项不是合法的变量名？A. _myVariableB. 123VariableC. myVariableD. Variable$答案：B3. VB中，用于结束一个循环的语句是：A. ContinueB. ExitC. BreakD. Stop答案：B4. 在VB中，下列哪个函数用于计算字符串的长度？A. Len()B. Length()C. StrLen()D. Size()答案：A5. 下列哪个选项不是VB中的流程控制语句？A. If...ThenB. For...NextC. Do...LoopD. Switch...Case答案：D6. VB中，用于定义一个类模块的关键字是：A. ClassB. ModuleC. FormD. Sub答案：A7. 在VB中，下列哪个选项是正确的事件处理程序的声明方式？A. Private Sub Button1_Click()B. Public Sub Button1_Click()C. Private Function Button1_Click()D. Public Function Button1_Click()答案：A8. VB中，用于创建一个数组的语句是：A. Dim arr(5) As IntegerB. Dim arr As Integer(5)C. Dim arr As Integer[5]D. Dim arr(5) As Integer()答案：A9. 在VB中，下列哪个选项不是合法的数值类型？A. IntegerB. DoubleC. StringD. Long答案：C10. VB中，下列哪个选项是正确的字符串连接操作？A. "Hello" & "World"B. "Hello" || "World"C. "Hello" + "World"D. "Hello" ||| "World"答案：A二、填空题（每题2分，共10分）1. 在VB中，使用________函数可以将数字转换为字符串。
计算机二级vb考试试卷及答案
计算机二级vb考试试卷及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项不是基本数据类型？A. IntegerB. StringC. DoubleD. Object答案：D2. VB中的控件数组允许我们做什么？A. 将多个控件视为一个单一实体B. 存储多个控件的集合C. 将控件的多个实例存储在一个数组中D. 以上都是答案：C3. 在VB中，哪个关键字用于声明一个变量？A. DimB. DeclareC. ConstD. Option答案：A4. VB中的哪个事件是在窗体加载时触发的？A. ClickC. MouseDownD. KeyPress答案：B5. 在VB中，以下哪个选项不是窗体的属性？A. CaptionB. HeightC. WidthD. Color答案：D6. VB中用于循环遍历数组的关键字是什么？A. ForB. WhileC. DoD. Each答案：A7. VB中哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Abs答案：A8. 在VB中，以下哪个选项不是过程的类型？B. FunctionC. PropertyD. Event答案：D9. VB中哪个控件用于显示文本，但不提供文本编辑功能？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B10. VB中哪个关键字用于退出当前的过程？A. ExitB. ReturnC. EndD. Stop答案：A二、填空题（每空2分，共20分）1. VB中的________关键字用于声明一个常量。
答案：Const2. 在VB中，________事件用于响应鼠标单击。
答案：Click3. VB中的________函数用于将字符串转换为数字。
答案：Val4. 在VB中，________属性用于设置或返回一个控件的可见性。
答案：Visible5. VB中________方法用于在数组中添加一个新元素。
计算机二级《VB》考题与答案
计算机二级《VB》考题与答案计算机二级《VB》考题与答案 1单选题(每小题1分共30分)在微机中，1MB准确等于__B__。
A、 1024×1024个字B、 1024×1024个字节C、 1000×1000个字节D、 1000×1000个字十进制整数100化为二进制数是_A___。
A、 1100100B、 1101000C、 1100010D、 1110100 计算机病毒是指___C_ 。
A、带细菌的磁盘B、已损坏的磁盘C、具有破坏性的特制程序D、被破坏的程序计算机的主存储器是指 __C__。
A、RAM和磁盘B、ROMC、ROM和RAMD、硬盘和控制器下列描述中不正确的是_B___。
A、多媒体技术最主要的两个特点是集成性和交互性B、所有计算机的字长都是固定不变的，都是8位C、通常计算机的存储容量越大，性能就越好D、各种高级语言的翻译程序都属于系统软件在_C___视图下可以插入页眉和页脚。
A、普通B、大纲C、页面D、主控文档8.关于Word的常用工具栏，下面说法正确的是( C )。
A.不包括文档建立B.不包括打印预览C.不包括自动滚动D.不能设置字体9、在Windows的回收站中，可以恢复 __A__。
A、从硬盘中删除的文件或文件夹B、从软盘中删除的文件或文件夹C、剪切掉的文档D、从光盘中删除的文件或文件夹10、为获得WINDOWS帮助，必须通过下列途径__D_。
A、在“开始”菜单中运行“帮助”命令B、选择桌面并按F1键C、在使用应用程序过程中按F1键D、A和B都对11、在WORD中查找和替换正文时，若操作错误则__A__。
A、可用“撤消”来恢复B、必须手工恢复C、无可挽回D、有时可恢复，有时就无可挽回12、在Word中，___B___用于控制文档在屏幕上的'显示大小。
A、全屏显示B、显示比例C、缩放显示D、页面显示13、Word在正常启动之后会自动打开一个名为___D___的文档。
计算机二级vb考试题库及答案
计算机二级vb考试题库及答案一、单项选择题（每题2分，共20分）1. VB中，以下哪个函数用于计算字符串的长度？A. UCaseB. LCaseC. LenD. Mid答案：C2. 在VB中，以下哪个选项表示“不等于”的比较运算符？A. =B. <>C. ==D. <=答案：B3. VB中，以下哪个控件用于显示图像？A. LabelB. PictureBoxC. TextBoxD. ComboBox答案：B4. 在VB中，以下哪个关键字用于声明一个过程？A. FunctionC. DimD. Const答案：B5. VB中，以下哪个选项是正确的变量声明方式？A. Dim xB. Dim x%C. Dim x$D. All of the above答案：D6. 在VB中，以下哪个语句用于结束当前循环？A. ContinueB. ExitC. BreakD. Loop答案：B7. VB中，以下哪个控件用于接收用户输入的文本？A. CheckBoxB. TextBoxC. ListBoxD. ComboBox答案：B8. 在VB中，以下哪个选项表示“大于等于”的比较运算符？B. <=C. >=D. <答案：C9. VB中，以下哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrCompD. Trim答案：A10. 在VB中，以下哪个关键字用于声明一个数组？A. DimB. ConstC. FunctionD. Sub答案：A二、填空题（每题2分，共20分）1. VB中，使用________函数可以将字符串中的字符转换为小写。
答案：LCase2. VB中，使用________关键字可以声明一个全局变量。
答案：Public3. VB中，使用________语句可以创建一个新的过程。
答案：Sub 或 Function4. VB中，使用________控件可以显示和选择多个项目。
全国计算机二级vb考试试题及答案
全国计算机二级vb考试试题及答案一、单项选择题（每题2分，共40分）1. VB中，以下哪个不是基本数据类型？A. IntegerB. DoubleC. StringD. Object答案：D2. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A3. VB中，以下哪个函数用于计算字符串的长度？A. LenB. LengthC. SizeD. Count答案：A4. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. LoopD. All of the above答案：D5. VB中，以下哪个不是控制结构？A. IfB. Select CaseC. DoD. Call答案：D6. 在VB中，以下哪个不是数组的声明方式？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. ReDim arr(10)D. Dim arr As Integer = {1, 2, 3}答案：D7. VB中，以下哪个不是窗体(Form)的属性？A. NameB. CaptionC. TextD. Color答案：C8. 在VB中，以下哪个不是基本的输入输出函数？A. InputBoxB. MsgBoxC. PrintD. MessageBox答案：D9. VB中，以下哪个不是事件驱动编程中的事件？A. ClickB. LoadC. ChangeD. Execute答案：D10. 在VB中，以下哪个不是常用的控件？A. LabelB. TextBoxC. ButtonD. Chart答案：D11. VB中，以下哪个不是控件的属性？A. NameB. TextC. ValueD. Execute答案：D12. 在VB中，以下哪个不是控件的事件？A. ClickB. DoubleClickC. MouseDownD. Open答案：D13. VB中，以下哪个不是文件操作的函数？A. OpenB. CloseC. WriteD. Execute答案：D14. 在VB中，以下哪个不是数据库访问的方法？A. OpenB. FetchC. UpdateD. Execute答案：D15. VB中，以下哪个不是错误处理的关键字？A. On ErrorB. ResumeC. ExitD. Err答案：C16. 在VB中，以下哪个不是面向对象编程的概念？A. ClassB. ObjectC. InterfaceD. Function答案：D17. VB中，以下哪个不是类的成员？A. PropertyB. MethodC. EventD. Variable答案：D18. 在VB中，以下哪个不是继承的特性？A. 单继承B. 多继承C. 覆盖D. 封装答案：B19. VB中，以下哪个不是多态性的表现？A. 方法重载B. 方法重写C. 接口实现D. 函数调用答案：D20. 在VB中，以下哪个不是封装的体现？A. PrivateB. PublicC. ProtectedD. Friend答案：D二、填空题（每题2分，共20分）1. VB中，声明一个整型变量并赋值为10的语句是：Dim num As Integer; num = _______。
计算机等级考试二级VB试题及答案
计算机等级考试二级VB试题及答案计算机等级考试二级VB试题及答案一、选择题(1)假设线性表的长度为n，则在最坏情况下，冒泡排序需要的比较次数为A)log2nB)n2C)O(n1..5)D)n(n-1)/2正确答案: D(2)算法分析的目的是A)找出数据结构的合理性B)找出算法中输入和输出之间的关系C)分析算法的易懂性和可靠性D)分析算法的效率以求改进正确答案: D(3)线性表L=(a1,a2,a3,…ai，…an)，下列说法正确的是A)每个元素都有一个直接前件和直接后件B)线性表中至少要有一个元素C)表中诸元素的排列顺序必须是由小到大或由大到小D)除第一个元素和最后一个元素外，其余每个元素都有一个且只有一个直接前件和直接后件正确答案: D(4)在单链表中，增加头结点的目的是A)方便运算的实现B)使单链表至少有一个结点C)标识表结点中首结点的位置D)说明单链表是线性表的链式存储实现正确答案: A(5)软件工程的出现是由于A)程序设计方法学的影响B)软件产业化的需要C)软件危机的出现D)计算机的发展正确答案: C(6)软件开发离不开系统环境资源的支持，其中必要的测试数据属于A)硬件资源B)通信资源C)支持软件D)辅助资源正确答案: D(7)在数据流图(DFD)中，带有名字的箭头表示A)模块之间的调用关系B)程序的组成成分C)控制程序的执行顺序D)数据的流向正确答案: D(8)分布式数据库系统不具有的特点是A)数据分布性和逻辑整体性B)位置透明性和复制透明性C)分布性D)数据冗余正确答案: D(9)关系表中的每一横行称为一个A)元组B)字段C)属性D)码正确答案: A(10)下列数据模型中，具有坚实理论基础的是A)层次模型B)网状模型C)关系模型D)以上3个都是(11)下列说法正确的是A)对象的可见性可设为True或FalseB)标题的属性值不可设为任何文本C)属性窗口中属性只能按字母顺序排列D)某些属性的值可以跳过不设置，自动设为空值正确答案: A(12)下列关于退出Visual Basic系统的方法的描述错误的是A)打开Visual Basic主窗体的"文件"菜单，执行其中的"退出"命令B)按快捷键Alt+Q退出C)单击Visual Basic主窗体右上角的"关闭"按钮D)按快捷键Alt+E退出正确答案: D(13)单击窗体上的关闭按钮时，触发的事件是A)Form_Initialize( )B)Form_Load( )C)Form_Unload( )D)Form_Click( )正确答案: C(14)在代码编辑器中，续行符是用来换行书写同一个语句的符号，用以表示续行符的是A)一个空格加一个下划线"_"B)一个下划线"_"C)一个造字符"-"D)一个空格加一个连字符"-"正确答案: A(15)为了暂时关闭计时器，应把该计时器控件的哪个属性设置为False?A)VisibleB)TimerC)EnabledD)Interval正确答案: C(16)以下关于Visual Basic数据类型的说法，不恰当的是A)Visual Basic 6.0提供的数据类型主要有字符串型和数值型，此外还有字节、货币、对象、日期、布尔和变体数据类型等B)目前Decimal数据类型只能在变体类型中使用C)用户不能定义自己的数据类型D)布尔型数据只能取两种值，用两个字节存储正确答案: C(17)以下各项，可以作为Visual Basic变量名的是A)BookB)2_SeekC)123.58D)Book-1正确答案: A(18)表达式(3 / 2 + 1)* (5 / 2 + 2)的值是A)11.25B)3C)6.125D)4正确答案: A(19)关于自定义对话框概念的说明，错误的是A)建立自定义对话框时必须执行添加窗体的操作B)自定义对话框实际上是VB的窗体C)在窗体上还要使用其他控件才能组成自定义对话框D)自定义对话框不一定要有与之对应的事件过程正确答案: D(20)下面Change事件过程中，文本框控件Text1用来接收数字字符的输入，该事件过程的作用是Private Sub Text1_Change()Text2.Text=Str(6.28 * Val(Text1.Text))End SubA)将在文本框Text1输入的数字变为数值B)将在文本框Text1输入的数字作为半径，求圆的周长并转换为字符串C)只要Text1中的内容一改变，T ext2中显示的圆周长也随之改变D)事件过程中的.Val函数和Str函数使用错误，事件过程不能执行正确答案: C21)用什么语句可以选择指定的表项或取消已选择的表项?A)列表框.Selected(索引值)B)列表框名.Selected(索引值)=True|FalseC)列表框.SelectedD)列表框名.Selected=True|False正确答案: B(22)用于将屏幕上的对象分组的控件是A)列表框B)组合框C)标签D)框架正确答案: D(23)以下说法不正确的是A)使用ReDim语句可以改变数组的维数B)使用ReDim语句可以改变数组的类型C)使用ReDim语句可以改变数组的每一维的大小D)使用ReDim语句可以改变对数组中的所有元素进行初始化正确答案: B(24)有如下事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If (Button And 3)=3 ThenPrint "OK"End IfEnd Sub程序运行后，为了在窗体上输出"OK"，应当按下的鼠标键是A)左键B)右键C)同时按下左键和右键D)按什么都不显示正确答案: D(25)在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，要求单击命令按钮时，打开一个保存文件的对话框，该窗口的标题为"Save"，缺省文件名称为"SaveFile"，在"文件类型"栏中显示*txt，则能够满足上述要求的程序是A)Private Sub Command1_Click()CommonDialog1.FileName="SaveFile"CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC)|*.doc"CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="Save"CommonDialog1.Action=2End SubB)Private Sub Command1_Click()CommonDialog1.FileName="SaveFile"CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC)|*.doc"CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle="Save"CommonDialog1.Action=2End SubC)Private Sub Command1_Click()CommonDialog1.FileName="Save"CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC)|*.doc" CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="SaveFile" CommonDialog1.Action=2End SubD)Private Sub Command1_Click()CommonDialog1.FileName="SaveFile"CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC)|*.doc" CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle="Save"CommonDialog1.Action=1End Sub正确答案: A (26)阅读下面的程序段：For a=1 To 2For b=1 To aFor c=b To 2I=I + 1NextNextNextPrint I执行上面的三重循环后，I的值为A)4B)5C)6D)9正确答案: B(27)设有下面的循环：i=0While i <=1i=i + 3Print iWend则运行后的输出结果是A)1B)2C)3D)4正确答案: C(28)设有下面的循环：i=1Doi=i + 3Print iLoop Until I>程序运行后要执行3次循环体，则条件中I的最小值为A)6B)7C)8D)9正确答案: B(29)执行以下语句过程，在窗体上显示的内容是Option Base 0Private Sub Command3_Click()Dim dd=Array("a", "b", "c", "d")Print d(1); d(3)End SubA)abB)bdC)acD)出错正确答案: B(30)下列程序段，在运行时最早输出的内容是a=2c=1AAA:c=c + aIf c < 10 ThenPrint cGoTo AAAElsePrint "10以内的奇数显示完毕。
全国计算机二级vb考试试题及答案
全国计算机二级vb考试试题及答案一、单项选择题（每题2分，共40分）1. VB中，以下哪个函数用于获取当前系统时间？A. NowB. DateC. TimeD. Timer答案：A2. 在VB中，以下哪个控件用于显示文本信息？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：A3. VB中，以下哪个属性用于设置文本框的只读属性？A. ReadOnlyB. EnabledC. VisibleD. BackColor答案：A4. 在VB中，以下哪个事件用于响应文本框内容的改变？A. ClickB. ChangeC. DblClickD. KeyPress答案：B5. VB中，以下哪个关键字用于声明全局变量？A. DimB. PublicC. PrivateD. Static答案：B6. 在VB中，以下哪个函数用于计算两个数的和？A. SumB. AddC. PlusD. +答案：D7. VB中，以下哪个属性用于设置窗体的标题？A. CaptionB. TextC. TitleD. Name答案：A8. 在VB中，以下哪个事件用于响应窗体的关闭？A. LoadB. UnloadC. CloseD. FormClosing答案：B9. VB中，以下哪个关键字用于定义过程？A. FunctionB. SubC. ProcedureD. Method答案：B10. 在VB中，以下哪个控件用于显示下拉列表？A. ListBoxB. ComboBoxC. CheckBoxD. OptionButton答案：B11. VB中，以下哪个属性用于设置按钮的点击事件？A. ClickB. CommandC. PressD. Activate答案：A12. 在VB中，以下哪个函数用于获取系统日期？A. NowB. DateC. TimeD. Timer答案：B13. VB中，以下哪个属性用于设置文本框的字体大小？A. FontSizeB. FontC. SizeD. TextSize答案：B14. 在VB中，以下哪个事件用于响应鼠标的双击动作？A. ClickB. DblClickC. MouseDownD. MouseUp答案：B15. VB中，以下哪个关键字用于声明局部变量？A. DimB. PublicC. PrivateD. Static答案：A16. 在VB中，以下哪个函数用于获取系统时间？A. NowB. DateC. TimeD. Timer答案：C17. VB中，以下哪个属性用于设置标签的背景颜色？A. BackColorB. BackgroundColorC. ColorD. FillColor答案：A18. 在VB中，以下哪个事件用于响应鼠标的按下动作？A. ClickB. MouseDownC. MouseUpD. DblClick答案：B19. VB中，以下哪个关键字用于声明静态变量？A. DimB. PublicC. PrivateD. Static答案：D20. 在VB中，以下哪个控件用于显示复选框？A. CheckBoxB. OptionButtonC. RadioButtonD. ToggleButton答案：A二、填空题（每题2分，共20分）1. VB中，使用________关键字可以声明一个数组。
全国计算机二级考试《VB》操作试题及答案
全国计算机二级考试《VB》操作试题及答案全国计算机二级考试《VB》操作试题及答案一、基本操作题(1)请在名称为Forml的窗体上添加一个名称为H1的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，初始内容均为空;再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把Textl中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sit2.vbp，窗体文件名为sjt2.frm。
二、简单应用题(1)在考生文件夹F有一个工程文件sjt3.vbp，窗体上已经有一个标签Labell，请添加一个单选按钮数组，名称为Opl，含三个单选按钮，它们的Index 属性分别为0、1、2，标题依次为“飞机”、“火车”、“汽车”，再添加一个名称为Textl的文本框。
窗体文件中已经给出了Opl的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击“飞机”或“火车”单选按钮时，在Textl中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在Text1中显示“我开汽车去”，如图所示。
国家二级计算机vb考试试题及答案
国家二级计算机vb考试试题及答案一、单项选择题1. 下列选项中，属于VB常用数据类型的是：A) IntegerB) StringC) BooleanD) All of the above答案: D2. 下列关于VB中函数和子过程的说法，哪个是正确的？A) 函数可以返回一个值，子过程不能返回值B) 函数和子过程都可以返回一个值C) 函数和子过程都不能返回值D) 函数和子过程都可以返回多个值答案: A3. VB中的控件“Label”用于：A) 显示文本信息B) 接受用户的输入C) 显示图像D) 进行数据计算操作答案: A4. 下列关于VB中数组的说法，哪个是正确的？A) 数组的下标从0开始B) 数组的下标从1开始C) 数组的下标可以是负数D) 数组的下标可以是小数答案: A5. VB中用于处理数据的语句不包括：A) If-ThenB) For-NextC) Do-WhileD) Break-Continue答案: D二、填空题1. VB中，用于变量声明与赋值的是_________语句。
答案: Dim2. VB中，执行循环的语句是___________。
答案: For-Next3. VB中，用于判断条件的语句是___________。
答案: If-Then4. VB中，用于定义子过程的关键字是_____________。
答案: Sub5. VB中，用于结束程序的语句是____________。
答案: End三、编程题编写一个VB程序，实现计算一个数字列表的平均值的功能。
具体要求如下：1. 创建一个名为"frmAverageCalculator"的窗体，包含一个Label控件、一个TextBox控件和一个Button控件。
2. 在Label控件中显示提示信息："请输入数字，以逗号分隔："。
3. 用户在TextBox控件中输入一组数字列表，以逗号分隔，例如："1,2,3,4,5"。
国家二级vb计算机考试试题及答案
国家二级vb计算机考试试题及答案一、选择题（每题2分，共40分）1. 在VB中，以下哪个选项表示逻辑“与”运算？A. AndB. OrC. NotD. Xor答案：A2. VB中，下列哪个函数用于计算字符串的长度？A. Len()B. Str()C. Mid()D. Left()答案：A3. 以下哪个选项不是VB中的标准控件？A. TextBoxB. ComboBoxC. ListBoxD. DataGrid答案：D4. 在VB中，以下哪个关键字用于定义一个子程序？A. FunctionB. SubC. ProcedureD. Method答案：B5. VB中，以下哪个选项用于声明一个整型变量？A. Dim intVar As IntegerB. Dim intVar As StringC. Dim intVar As DoubleD. Dim intVar As Boolean答案：A6. 在VB中，以下哪个选项用于创建一个数组？A. Dim arr(10) As IntegerB. Dim arr As IntegerC. Dim arr(10)D. Dim arr[10] As Integer答案：A7. VB中，以下哪个选项用于获取当前日期？A. NowB. TodayC. DateD. Time答案：B8. 在VB中，以下哪个选项用于打开一个文件进行读取？A. Open For OutputB. Open For InputC. Open For RandomD. Open For Append答案：B9. VB中，以下哪个选项用于关闭一个打开的文件？A. CloseB. OpenC. WriteD. Read答案：A10. 在VB中，以下哪个选项用于实现循环结构？A. If...ThenB. Do...LoopC. For...NextD. While...Wend答案：C11. VB中，以下哪个选项用于声明一个全局变量？A. DimB. PublicC. PrivateD. Static答案：B12. 在VB中，以下哪个选项用于实现事件驱动编程？A. SubB. FunctionC. EventD. Procedure答案：C13. VB中，以下哪个选项用于声明一个模块级变量？A. DimB. PublicC. PrivateD. Static答案：C14. 在VB中，以下哪个选项用于实现条件分支结构？A. If...ThenB. Do...LoopC. For...NextD. While...Wend答案：A15. VB中，以下哪个选项用于声明一个静态变量？A. DimB. PublicC. PrivateD. Static答案：D16. 在VB中，以下哪个选项用于声明一个函数？A. SubB. FunctionC. ProcedureD. Method答案：B17. VB中，以下哪个选项用于实现异常处理？A. Try...CatchB. On ErrorC. If...ThenD. Do...Loop答案：B18. 在VB中，以下哪个选项用于声明一个类模块？A. ClassB. ModuleC. InterfaceD. Structure答案：A19. VB中，以下哪个选项用于声明一个接口？A. ClassB. ModuleC. InterfaceD. Structure答案：C20. 在VB中，以下哪个选项用于声明一个结构体？A. ClassB. ModuleC. InterfaceD. Structure答案：D二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以声明一个全局常量。
国家二级vb计算机考试试题及答案
国家二级vb计算机考试试题及答案由于感知到的是一道试题和答案的题目，我将按照试题的格式来为您撰写文章。
请注意，以下所提供的是虚构的试题以及相应的答案，仅供参考。
----------------------------国家二级VB计算机考试试题及答案一、选择题（共30题，每题2分，共60分）1. 下列哪个关键字不是VB语言的保留关键字？a) Dimb) Loopc) Nextd) GoTo答案：b) Loop2. VB语言中的数据类型中，下列哪个不属于数值型？a) Integerb) Stringc) Singled) Double答案：b) String3. 下列哪个函数用于判断表达式是否为假？a) IsTrueb) IsNotFalsec) IsNotTrued) IsFalse答案：d) IsFalse...二、填空题（共10题，每题4分，共40分）1. VB语言中，用于定义数组的关键字是_______。
答案：Dim2. 下面的代码段执行完毕后，txtResult的值为_______。
Dim a As IntegerDim b As Integera = 10b = 5txtResult.Text = a + b答案：15...三、编程题（共2题，每题25分，共50分）1. 编写一个VB程序，实现输入两个整数，然后求它们的和，最后将结果显示在文本框txtResult中。
答案：Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.ClickDim num1 As IntegerDim num2 As Integernum1 = CInt(txtNum1.Text)num2 = CInt(txtNum2.Text)txtResult.Text = num1 + num2End Sub2. 编写一个VB程序，求解1到100之间所有奇数的和，并将结果显示在文本框txtResult中。
全国计算机二级vb考试试题及答案
全国计算机二级vb考试试题及答案一、选择题1. 下列哪个选项是VB中的合法标识符？A. 123abcB. vb-abcC. _abcD. abc$23答案：C. _abc2. VB中哪个函数可以将字符串转换为整数？A. Val()B. Str()C. Len()D. Mid()答案：A. Val()3. 在VB中，下面哪个关键字用于定义子过程？A. SubB. DimC. FunctionD. Private答案：A. Sub4. VB中用于循环的语句是：A. ForB. IfC. SwitchD. Case答案：A. For5. VB的数据类型中，用于表示单个字符的是：A. StringB. BooleanC. CharD. Integer答案：C. Char二、填空题1. VB中通过使用_______关键字来定义常量。
答案：Const2. VB中的数组下标是从_______开始的。
答案：03. VB中使用_______关键字来定义一个新的类。
答案：Class4. VB中使用_______关键字来引发一个错误。
答案：Err5. VB中通过使用_______关键字来定义全局变量。
答案：Public三、编程题题目：编写一个VB程序，实现将一个字符串反转输出的功能。
答案：```vbPublic Module ReverseStringSub Main()Dim str As String = "Hello World!"Dim reversedStr As String = Reverse(str)Console.WriteLine(reversedStr)End SubFunction Reverse(ByVal str As String) As StringDim reversed As String = ""For i As Integer = str.Length - 1 To 0 Step -1reversed += str(i)NextReturn reversedEnd FunctionEnd Module```以上就是全国计算机二级VB考试试题及答案。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Private Sub Command1_Click()Dim n As Integer, i As Integer, s As Double n = Val(Text1.Text)s = 0For i = 1 To ns = s + i ^ 2Next iText2.Text = sEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim i As IntegerOpen App.Path & "\" & "yssj.txt" For Input As #1For i = 1 To 10Input #1, a(i)Next iClose #1End SubPrivate Sub Command2_Click()''' 不得删除本行注释Dim i As IntegerText1.Text = ""For i = 1 To 10If a(i) Mod 3 = 2 ThenText1.Text = Text1.Text & Str(a(i)) End IfNext iEnd SubPrivate Sub command1_Click()'''不得删除本行注释Dim a As Integer, b As Double, i As Integer, n As Integer n = Val(Text1.Text)a = 0b = 0For i = 1 To na = a + ib = b + aNext iText2.Text = bEnd SubPrivate Sub Command1_Click()'''不得删除本行注释Dim i%, xh$, xm$Open App.Path & "\" & "Xhxm.txt" For Output As #1For i = 1 To 3xh = InputBox("请输入学号")xm = InputBox("请输入姓名")Write #1, xh, xmNext iClose #1End Sub Private Sub Command2_Click()'''不得删除本行注释Dim s as stringOpen App.Path & "\" & "Xhxm.txt" For Input As #2Do While Not EOF(2)Line Input #2, sText1.Text = Text1.Text & s & vbCrLf LoopClose #2End SubPrivate Sub Command1_Click()‘”读取文件”按钮代码'''不得删除本行注释Dim st As StringText1.Text = ""Open App.Path & "\" & “jmwb.txt" For Input As #1While Not EOF(1)Input #1, stText1.Text = Text1.Text + st + vbCrLf WendClose #1End Sub Private 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) + 5co = co + Chr(p)Next iText2.Text = coEnd SubPrivate Sub command1_click()'''不得删除本行注释For N = 1 To 15x(N) = Int(Rnd * 91 + 10)Text1.Text = Text1.Text + Str(x(N)) Next NEnd Sub Private Sub Command2_Click()'''不得删除本行注释Dim m As Integer, K As IntegerFor 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 SubPrivate Sub Command1_Click()Dim char As String * 1char = Trim(Text1.Text)If Not IsNumeric(char) ThenIf (Asc(char) >= 65 And Asc(char) <= 90) Or _(Asc(char) >= 97 And Asc(char) <= 120) ThenLabel1.Caption = "输入的是字母"Else: Label1.Caption = "输入的是其它符号"End IfElse: Label1.Caption = "输入的是数字"End IfEnd SubPrivate Sub Command1_Click()Text1.Text = UCase(Text1.Tag)End SubPrivate Sub Command2_Click()Text1.Text = LCase(Text1.Tag)End SubPrivate Sub Command3_Click()Text1.Text = Text1.TagEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)'对于文本框控件中输入的每次键盘按键弹起事件做一次文本内容保存Text1.Tag = Text1.Text '用Text1.Tag属性作为保存textbox控件文本内容的临时存储区End SubPrivate Sub command1_Click()''' 不得删除本行注释Dim a As Integer, b As Integer, c As Integer Dim 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 = max / 2min = min + c - Abs(min - c)min = min / 2Text4.Text = maxText5.Text = minEnd SubPrivate 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 = "非闰年"End IfEnd ifText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim n As Integer, i As Integern = Val(Text1.Text)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 SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim i As IntegerFor i = 1 To 200If i Mod 3 = 0 And i Mod 7 = 0 ThenText1.Text = Text1.Text + Str(i)End IfNextEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim sum As Single, i As IntegerOpen App.Path & "\" & "Jsdata.txt" For Input As #1 For i = 1 To 15Input #1, Arr(i)Next iClose #1If Op1 ThenT1.Text = AaaEnd IfIf Op2 ThenT1.Text = BbbEnd IfEnd SubPrivate 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 Thens = s + iEnd IfNext iText2.Text = sEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim a As Integera = Val(Text1.Text)Text2.Text = zh(a)‘ zh过程在原本的程序代码中已经有了～直接可用End SubPrivate Sub Command1_Click() ''' 不得删除本行注释Dim x As DoubleDim y As Doublex = Val(Text1.Text)If x < 10 Theny = x - 1ElseIf x < 20 Theny = 2 * x - 1Else: y = 3 * x - 1End IfText2.Text = yEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Text1.Text = ""Open App.Path & "\" & "zfwj.txt" For Input As #1For i = 1 To 10Input #1, a(i)Text1.Text = Text1.Text & " " & a(i)Next iClose #1End Sub Private Sub Command2_Click()''' 不得删除本行注释Dim t As StringText2.Text = ""For i = 1 To 10t = a(i)a(i) = a(10 - i + 1)a(10 - i + 1) = tText2.Text = Text2.Text & " " & a(i) Next iEnd SubPrivate Sub Command1_Click()Dim a As IntegerDim b As Integera = 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 SubPrivate Sub Command1_Click()Dim s as stringOpen App.Path & "\" & "Bdata.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text + s + Chr(13) + Chr(10) LoopClose #1End SubPrivate Sub Command1_Click()'''不得删改本行注释Dim n As Integern = Val(Text1.Text)If n < 100 Or n > 999 ThenMsgBox "请输入三位正整数", , "输入出错" Else: Text2.Text = Int(n Mod 10)Text3.Text = Int((n Mod 100) / 10)Text4.Text = Int(n / 100)End IfEnd SubPrivate Sub Command1_Click()'产生按钮的代码i = List1.ListIndexFor i = 0 To 9List1.AddItem Int(90 * Rnd + 10)Next iEnd SubPrivate Sub Command3_Click() ’清除按钮的代码List1.ClearList2.ClearEnd Sub Private Sub Command2_Click()'''不得删改本行注释Dim n As Double, j As Integeri = List1.ListIndexFor i = List1.ListCount - 1 To 0 Step -1 n = Val(List1.List(i))If n Mod 2 = 1 ThenList2.AddItem nList1.RemoveItem iEnd IfNext iEnd SubPrivate Sub Command1_Click()‘”读入数据”按钮代码'''不得删除本行注释Dim st As StringText1.Text = ""Open App.Path & "\" & "yy.txt" For Input As #1While Not EOF(1)Input #1, stText1.Text = Text1.Text + st + vbCrLf WendClose #1End Sub Private 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 <= "Z" Thenp = p + 1End IfNext iLabel1.Caption = "共" & p & "个字母"End SubPrivate Sub Command1_Click()'''不得删除本行注释Dim n As Integer, k As Integer, i As IntegerFor n = 200 To 300k = Int(Sqr(n))For i = 2 To kIf n Mod i = 0 Then Exit ForNext iIf i > k Then List1.AddItem nNext nEnd Sub。