省二级VB编程题目
江苏省计算机二级考试VB程序设计复习题
江苏省计算机二级考试VB程序设计复习题一、填空题：（第一章Visual Basic程序设计概述）1、Visual Basic是一种面向_对象_的可视化程序设计语言，采取了__事件驱动__的编程机制。
2、在VB中工程文件的扩展名是_ Vbp ，窗体文件的扩展名是frm _，标准模块文件的扩展名是_ bas _。
3、执行“工程”菜单下的部件命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发_ WINDOWS环境下的应用程序。
第二章简单的VB程序设计1、设置是否可以用Tab键来选取命令按钮，应该用_ Tabstop ___属性。
2、一个控件在窗体的位置由__ Left ___和_ top ___属性决定，其大小由__ height _和_ width _属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和_ enabled __属性为true，才能接受焦点。
4、设置控件背景颜色的属性名称是_ backcolor __。
5、所有控件都具有的共同属性是__ name __属性。
6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_ name和caption。
7、VB中的每个对象（控件）都有一组特征，这组特征称为_属性_，我们通过修改它可以控制对象的外观和操作。
8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_标准模块文件_文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。
9、VB有三种工作模式，分别是设计（Design）模式、_运行模式__和中断（Break）模式。
第三章1、一般可以使用____ Const ______关键字声明常量。
2、_ Variant _类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。
3、变量的声明分为两种方法：_隐式声明__和__显示声明__。
(完整word版)计算机二级VB编程题目含答案
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。
计算机二级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. 在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专项练习第一套题目1、打开“考生文件夹\96\工程1.vbp”，完善程序并保存。
实现功能：假设有一个5位数密码。
只记得密码为67□□8，其中百位和十位的数字记不清了，但知道该密码能够被78整除，也能被67整除。
请完善算法帮忙找出这个密码。
''请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善Private Sub Command1_Click()Dim x As LongFor x = ① To 67998 Step 10If (x Mod 67 = 0) And (x Mod 78 = 0) ThenPrint ②End If③End Sub2、“考生文件夹\51\工程1.vbp”是采用“穷举法”求出所有水仙花数的程序，请完善程序并保存。
说明：若一个三位数abc，满足：abc=a3+b3+c3，则称abc为水仙花数。
如三位数153满足：13+53+33=1+125+27=153，则153是水仙花数。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善Private Sub Command1_Click()Dim i, a, b As IntegerFor i = 100 To ①a = i \ 100b = (i - a * 100) \ 10c = ②If a * a * a + b * b * b + c * c * c = i ThenPrint CStr(i)③Next iEnd Sub3、打开“考生文件夹\12\工程1.vbp”，完善程序并保存。
实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。
如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。
全国计算机二级VB试题
下面的138道题目，在二级考试中命中率极高。
一、选择题(1) 下面叙述正确的是(C)A. 算法的执行效率与数据的存储结构无关B. 算法的空间复杂度是指算法程序中指令（或语句）的条数C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止D. 以上三种描述都不对(2) 以下数据结构中不属于线性数据结构的是(C)A. 队列(3)(4)A.(5)A. 对象(6)A.(7)A.C.(8)A. 数据模型B. 数据库管理系统C. 软件工具D. 数据库(9) 下列叙述中正确的是(C)A.数据库是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题D.数据库系统中，数据的物理结构必须与逻辑结构一致(10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) 注：P108A. 内模式B. 外模式C. 概念模式D. 逻辑模式(11) 算法的时间复杂度是指(C)A. 执行算法程序所需要的时间B. 算法程序的长度C. 算法执行过程中所需要的基本运算次数D. 算法程序中的指令条数(12) 算法的空间复杂度是指(D)A. 算法程序的长度B. 算法程序中的指令条数C. 算法程序所占的存储空间D. 算法执行过程中所需要的存储空间(13)(14)A.C.(15)(D)A.(16)A.(17)以及A.(18) 下述关于数据库系统的叙述中正确的是(A)A. 数据库系统减少了数据冗余B. 数据库系统避免了一切冗余C. 数据库系统中数据的一致性是指数据类型的一致D. 数据库系统比文件系统能管理更多的数据(19) 关系表中的每一横行称为一个(A)A. 元组B. 字段C. 属性D. 码(20) 数据库设计包括两个方面的设计内容，它们是(A)A. 概念设计和逻辑设计B. 模式设计和内模式设计C. 内模式设计和物理设计D. 结构特性设计和行为特性设计(21) 下列叙述中正确的是(A)A. 线性表是线性结构B. 栈与队列是非线性结构C. 线性链表是非线性结构D. 二叉树是线性结构(22)A.C.(23)A.C.(24)A.C.(25)A.C.(26)A. 工具B. 过程C. 方法D. 环境(27) 程序流程图（PFD）中的箭头代表的是(B) 注：P81A. 数据流B. 控制流C. 调用关系D. 组成关系(28) 在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。
计算机二级VB练习题附答案
计算机二级VB练习题附答案计算机二级VB练习题附答案计算机二级考试是全国计算机等级考试（National Computer Rank Examination，简称NCRE）四个等级中的一个等级，考核计算机基础知识和使用一种高级计算机语言编写程序以及上机调试的基本技能。
那么计算机二级vb考试会怎么考？以下仅供参考！【计算机二级VB练习题一】1、为了在运行时能显示窗体左上角的控制框(系统菜单)，可以设置以下哪个属性的值为True( )。
A.Contr01BoxB.MinButtonC.MaxButtonD.BorderStyle参考答案：A参考解析：本题考查窗体的常见属性。
窗体中ControlBox属性用来控制是否显示控制菜单，属性值为False时不显示控制菜单。
属性MinButton和MaxButton控制是否显示最大化和最小化按钮，属性BorderStyle则是设置窗体的边界样式。
2、组合框是文本框和( )特性的组合。
A.复选框B.标签C.列表框D.目录列表框参考答案：C参考解析：本题考查组合框。
组合框控件(ComboBox)是将文本框和列表框的功能结合在一起，用户可以在列表中选择某项(注：只能选取一项)，或在编辑区域中直接输入文本内容来选定项目。
3、Visual Basic根据计算机访问文件的方式将文件分成3类，其中不包括( )。
A.顺序文件B.Unix文件C.二进制文件D.随机文件参考答案：B参考解析：本题考查VB文件的分类。
VB中根据文件的访问形式分为顺序文件、随机文件和二进制文件。
4、下列模式中，能够给出数据库物理存储结构与物理存取方法的是( )。
A.内模式B.外模式C.概念模式D.逻辑模式参考答案：A参考解析：数据库管理系统的三级模式结构由外模式、模式和内模式组成。
外模式，或予模式，或用户模式，是指数据库用户所看到的数据结构，是用户看到的数据视图。
模式，或逻辑模式，是数据库中对全体数据的逻辑结构和特性的描述，是所有用户所见到的数据视图的总和。
计算机二级VB上机操作练习题及答案
计算机二级VB上机操作练习题及答案计算机二级VB上机操作练习题及答案Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，下面店铺为为大家带来计算机二级VB上机操作练习题及答案，希望大家喜欢！一、基本操作题(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。
组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。
运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。
再画两个标题分别为“椭圆”和“圆”的命令按钮。
如下图所示。
要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。
程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjr2.vbp，窗体文件名为sjr2.frm。
二、简单应用题(1)考生文件夹中有工程文件sjt3.vbv。
窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。
程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。
运行窗体如图所示。
要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。
最后程序按原文件名存盘。
全国计算机二级VB上机题库(题+答案)
一、基本操作题下面出现的“考生文件夹”均为c:\wexam\20060001。
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
1．在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”两个主菜单项（名称分别为vbFile和vbHelp），其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项（名称分别为vbOpen、vbClose和vbExit）。
只建立菜单，不必定义其事件过程。
注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。
2．在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。
编写适当的事件过程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上显示“数理化”；如果单击“不喜欢”命令按钮，则在窗体上显示“政史地”。
程序中不能使用任何变量，直接显示字符串。
注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。
一、基本操作题答案1．【解题步骤】（1）打开“菜单编辑器”。
（2）菜单设计见表4-1。
表4-1标题名称内缩符号文件vbFile0打开vbOpen1关闭vbClose1退出vbExit1帮助vbHelp0（3）按要求设计含有“文件”和“帮助”的菜单栏。
（4）为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。
（5）设计完成之后，按规定方式存盘。
2．【解题步骤】（1）建立界面和控件并设置控件属性。
程序中用到的控件及其属性见表4-2。
表4-2控件属性设置值按钮Name Cmd1Caption喜欢按钮Name Cmd2Caption不喜欢（2）编写程序代码。
参考代码：Private Sub Cmd1_Click()Print"数理化"End SubPrivate Sub Cmd2_Click()Print"政史地"End Sub（3）调试并运行程序。
二级VB语言程序设计考试题及答案
二级VB语言程序设计考试题及答案不管从事何种工作，如果要想做出高效、实效，务必先从自身的开始。
有了方案，才不致于使自己思想迷茫、头脑空洞，不知从哪里着手开展工作。
下面是搜索的二级VB语言程序设计考及答案，供大家参考学习！1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1Click( )n = Val(Text1.Text)If n2 = n/2 Thenf = f1(n)Elsef = f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x*xf1=x+xEnd FunctionPublic Function f2(ByVal x)x=x*xf2=x+x+xEnd Function程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)A.72 36B.108 36C.72 6D.27 32.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click( )c = "1234"For i = 1 To 4c1 = Trim(Str( ))Print c1Next iEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234那么在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1Click( )n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j >Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是(C)(单)A.输出n以内的奇数B.输出n以内的偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1Click( )Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click( )Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)A.15B.14C.13D.126.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。
全国计算机二级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二级计算机考试试题及答案一、单选题（每题2分，共20分）1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. ConstD. Type答案：A2. 下列哪个选项不是VB中的控制结构？A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案：D3. 在VB中，用于定义类模块的关键字是：A. ClassB. ModuleC. FormD. Interface答案：A4. VB中，用于读取文件内容的函数是：A. DirB. FileGetC. FileOpenD. FilePut答案：C5. 在VB中，下列哪个选项不是数组的声明方式？A. Dim arr(5) As IntegerB. Dim arr() As Integer = New Integer(5)C. Dim arr(5 To 10) As IntegerD. Dim arr As Integer = New Integer(5)答案：D6. VB中，用于创建一个窗体的关键字是：A. FormB. DialogC. WindowD. Frame答案：A7. VB中，用于实现事件驱动编程的关键字是：A. EventB. SubC. FunctionD. Property答案：B8. 在VB中，下列哪个选项不是字符串函数？A. LeftB. RightC. MidD. Round答案：D9. VB中，用于定义常量的关键字是：A. DimB. ConstC. StaticD. Private答案：B10. VB中，下列哪个选项不是循环结构？A. For EachB. ForC. Do WhileD. If答案：D二、填空题（每题2分，共20分）1. VB中，用于声明全局变量的关键字是________。
答案：Public2. VB中，用于定义一个过程的关键字是________。
答案：Sub3. 在VB中，用于定义一个函数的关键字是________。
计算机二级vb试题及答案
计算机二级vb试题及答案一、选择题1. 在Visual Basic中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Array答案：D2. 下列哪个语句用于在Visual Basic中声明一个变量？A. DimB. LetC. SetD. Const答案：A3. 在Visual Basic中，以下哪个控件可以用于显示文本？A. LabelB. TextBoxC. ComboBoxD. Button答案：A4. 在Visual Basic中，以下哪个事件是当文本框(TextBox)内容发生变化时触发的？A. ClickB. ChangeC. DblClickD. KeyPress答案：B5. 在Visual Basic中，以下哪个属性用于设置或返回一个控件的可见性？A. VisibleB. EnabledC. CaptionD. Text答案：A二、填空题1. 在Visual Basic中，使用________语句可以定义一个常量。
答案：Const2. 当用户点击一个按钮时，按钮的________事件被触发。
答案：Click3. 在Visual Basic中，使用________方法可以打开一个文件。
答案：Open4. 在Visual Basic中，________属性用于设置文本框的文本对齐方式。
答案：TextAlign5. 在Visual Basic中，________方法用于关闭一个打开的文件。
答案：Close三、简答题1. 请简述Visual Basic中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、系统消息等）触发，而不是由程序内部的逻辑顺序决定。
2. 请解释Visual Basic中的类和对象的区别。
答案：类是一个模板，定义了对象的结构和行为；对象是类的实例，具有类定义的属性和方法，并且可以独立操作。
全国计算机二级考试《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考试题及答案计算机二级VB考试题及答案「篇一」1.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.7/21/97 1997年7月21日B.7-21-97 1997年7月21日C.97/7/21 1997年7月21日D.7/21/97 97年7月21日2.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段运行的结果为(C)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"Gong"，则程序运行结果为(A)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示7.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <>4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"gong"，则程序运行结果为(B)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示8.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的是(A)(单)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：Private Sub Command1_ClickDim x, y, z, t!x = Text1y = Text2z = Text3If x < y Thent = xx = yy = tEnd IfIf y < z Thent = yz = tIf x< y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x & "," & y & "," & zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为(C)(单)A.3,5,8B.5,3,8C.8,5,3D.3.8.510.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入1，则label1的标题显示结果为(A)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.511.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入2，则label1的标题显示结果为(B)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.512.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的'整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入3，则label1的标题显示结果为(C)(单) A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.513.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数")) Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入4，则label1的标题显示结果为(D)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.514.以下程序段的作用是(A)(单)Private Sub Picture1_ClickDim asci As Integer, i As Integeri = 0For asci = 32 To 126Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;i = i + 1If i = 7 Then i = 0: Picture1.PrintNext asciA.打印ASCII码表，一行7个表达式B.打印九九乘法表，一行7个表达式C.打印ASCII码表，一行8个表达式D.以上说法都不正确15.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。
省二级VB编程题HZQ
Private Sub Command1_Click() '产生按钮的代码 i = List1.ListIndex For i = 0 To 9 List1.AddItem Int(90 * Rnd + 10) Next i End Sub
本题考点包括：读取文件，换行显示
Private Sub Command1_Click() Dim s as string Open App.Path & "\" & "Bdata.txt" For Input As #1 Do While Not EOF(1) Line Input #1, s Text1.Text = Text1.Text + s + vbcrlf Loop Close #1 End Sub
本题考点包括：字符串函数的调用
Private Sub Command1_Click() Text1.Text = UCase(Text1.Tag) End Sub
Private Sub Command2_Click() Text1.Text = LCase(Text1.Tag) End Sub Private Sub Command3_Click() Text1.Text = Text1.Tag End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) '对于文本框控件中输入的每次键盘按键弹起事件做一次文本内容保存 Text1.Tag = Text1.Text '用Text1.Tag属性作为保存textbox控件文本内容的临时存储区 End Sub
本题考点包括：调用随机函数生成随机整数存入数组并 显示；数组元素降序输出
安徽省vb省二级考试题目答案
安徽省vb省二级考试题目答案1. 题目：在Visual Basic中，如何创建一个窗体（Form）？答案：在Visual Basic中，创建一个窗体可以通过在IDE（集成开发环境）的“项目”窗口中右键单击“窗体”，然后选择“添加”并点击“新建窗体”来实现。
2. 题目：如何使用Visual Basic编写一个简单的循环，用于计算1到100的和？答案：可以使用For循环来实现这一功能。
例如：```Dim sum As Integer = 0For i As Integer = 1 To 100sum += iNext iMessageBox.Show("1到100的和为：" & sum.ToString())```3. 题目：在Visual Basic中，如何声明一个整型变量并赋值？答案：在Visual Basic中，声明一个整型变量并赋值可以通过以下方式实现：```Dim myInteger As Integer = 10```4. 题目：如何使用Visual Basic的If语句来判断一个数是否为偶数？答案：可以使用If语句结合Mod运算符来判断一个数是否为偶数： ```Dim number As Integer = 4If number Mod 2 = 0 ThenMessageBox.Show("这是一个偶数")ElseMessageBox.Show("这是一个奇数")End If```5. 题目：在Visual Basic中，如何使用数组存储一系列的值？答案：在Visual Basic中，可以使用数组来存储一系列的值。
例如，声明并初始化一个整型数组：```Dim numbers() As Integer = {1, 2, 3, 4, 5}```6. 题目：如何使用Visual Basic编写一个函数，该函数接收一个字符串参数并返回其反转后的字符串？答案：可以创建一个名为ReverseString的函数来实现这一功能： ```Function ReverseString(ByVal input As String) As String Dim reversed As String = ""For i As Integer = input.Length - 1 To 0 Step -1reversed &= input(i)Next iReturn reversedEnd Function```7. 题目：在Visual Basic中，如何使用事件处理程序来响应按钮点击事件？答案：可以为按钮的Click事件编写一个事件处理程序。
福建省计算机二级VB编程题
编程题【1】26-01N = Val(Text1.Text)Select Case NCase 80 To 100Text2.Text = "优良"Case 60 To 79Text2.Text = "合格"Case 0 To 59Text2.Text = "不合格"End Select【2】25-01Dim i%, s&N = Val(Text1.Text)s = 0For i = 1 To NIf i Mod 2 = 0 Then s = s + iNext iText2.Text = Str(s)【3】24-01Dim i As IntegerN = Val(Text1.Text)Text2.Text = ""For i = N To 1000If i Mod 8 = 1 Then Text2.Text = Text2.Text & i & " " Next i【4】23-01Dim i As Integers = 0N = Val(Text1.Text)For i = 1 To Ns = s + i ^ iNext iText2.Text = s【5】22-01Dim i%, n%, a As String * 1n = 0For i = 1 To Len(Text1.Text)a = Mid(Text1.Text, i, 1)If a >= "0" And a <= "9" Then n = n + 1Next iText2.Text = Str(n)【6】21-01Dim 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 ThenText4.Text = "实数解"ElseText4.Text = "复数解"End If【7】20-01N！S=1For i=1 to nS=s*iNext i1+1!+2!+3！+。
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中显示不大于该数的所有奇数的平方和。
- 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 #1 End 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 i End 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 & vbCrLfLoopClose #2End SubPrivate Sub Command1_Click()‘”读取文件”按钮代码'''不得删除本行注释Dim st As StringText1.Text = ""Open App.Path & "\jmwb.txt" For Input As #1 While Not EOF(1)Input #1, stText1.Text = Text1.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) + 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) <= 122) 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 Sub。