二级vb编程题3很典型很有帮助—基本编程

合集下载

vb二级考试题库含答案

vb二级考试题库含答案

vb二级考试题库含答案以下是VB二级考试题库含答案的正文内容:1. 在Visual Basic中,以下哪个选项是正确的数据类型?A. IntegerB. DoubleC. StringD. All of the above答案:D2. 以下哪个关键字用于声明一个变量?A. DimB. ConstC. FunctionD. Option答案:A3. 在VB中,如何将一个字符串反转?A. 使用Mid函数B. 使用Split函数C. 使用StrReverse函数D. 使用Replace函数答案:C4. 下列哪个选项不是VB中的流程控制语句?A. If...Then...ElseB. For...NextC. While...WendD. Switch...Case答案:D5. 在VB中,如何声明一个数组?A. Dim arr(10) As IntegerB. Dim arr As Integer = New Integer(10)C. Dim arr(10) As StringD. Both A and C are correct答案:D6. 在VB中,以下哪个函数用于计算两个数的和?A. SumB. AddC. +D. Concatenate答案:C7. 在VB中,以下哪个事件是当窗体加载时触发的?A. LoadB. ClickC. DoubleClickD. MouseMove答案:A8. 在VB中,如何声明一个子程序?A. Function SubName()B. Sub SubName()C. Procedure SubName()D. Method SubName()答案:B9. 在VB中,以下哪个属性用于设置控件的可见性?A. VisibleB. EnabledC. CaptionD. Text答案:A10. 在VB中,如何声明一个类?A. Class ClassNameB. Module ClassNameC. Structure ClassNameD. Interface ClassName答案:A以上是VB二级考试题库含答案的正文内容。

(完整word版)计算机二级VB编程题目含答案

(完整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程序设计题及答案

【最全最详细】国家二级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编程题目含答案

计算机二级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编程题

编程题N = Val(Text1.Text)Select Case NCase 80 To 100Text2.Text = "优良"Case 60 To 79Text2.Text = "合格"Case 0 To 59Text2.Text = "不合格"End SelectDim i%, s&N = Val(Text1.Text)s = 0For i = 1 To NIf i Mod 2 = 0 Then s = s + iNext iText2.Text = Str(s)Dim i As IntegerN = Val(Text1.Text)Text2.Text = ""For i = N To 1000If i Mod 8 = 1 Then Text2.Text = Text2.Text & i & " " Next iDim i As Integers = 0N = Val(Text1.Text)For i = 1 To Ns = s + i ^ iNext iText2.Text = sDim 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)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 = "实数解"ElseText4.Text = "复数解"End IfN!S=1For i=1 to nS=s*iNext i1+1!+2!+3!+。

全国计算机等级考试二级VB上机试题及答案(三)

全国计算机等级考试二级VB上机试题及答案(三)

全国计算机等级考试二级VB上机试题及答案(三)基本操作(2小题,每题15分,共30分)****************************************************************请根据以下各小题的要求设计VB应用程序(包括界面和代码)。

请根据以下各个小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上画两个文本框,名称分别为T1、T2,初始情况下都没有内容。

请编写适当的事件过程,使得在运行时,在T1中输入的任何字符,立即显示在T2中(如图所示)。

程序中不得使用任何变量。

*注意:存盘时必须存放在考生文件下,工程文件名为sjt1.vbp,窗体文件名为stj1.frm。

(2)在名称为Form1的窗体上画一个文本框,名称为Text1,内容为"VB程序设计";再画两个命令按钮,其名称分别为Command1和Command2,标题分别为"扩大"和"缩小",如图所示,编写适当的事件过程。

程序运行后,每单击Command1命令按钮一次,文本框中的文本的字体扩大1.2倍;每单击Command2按钮一次,文本框中文本的字体缩小1.2倍。

程序运行的界面如图所示。

****************************************************************参考答案与分析(1)【解析】本题主要考查的是文本框的Change事件的用法。

当用户向文本框中输入新信息,或程序把Text属性设置为新值从而改变文本框的Text属性时,将触发Change 事件。

程序运行后,在文本框中每键入一个字符,就会引发一次Change事件。

在本题中要求当在一个文本框中输入字符时在另一个文本框中立即显示该字符,就可以通过在文本框1即T1的Change事件中将T1的Text属性赋值给T2的Text 属性,就可以实现两个文本框中的内容的同步变化。

国家二级计算机vb考试题附参考答案

国家二级计算机vb考试题附参考答案

国家二级计算机vb考试题附参考答案一、单项选择题(每题2分,共20分)1.在Visual Basic中,以下哪个选项不是基本数据类型?A.IntegerB.StringC.ObjectD.Boolean答案:C2.如果一个变量被声明为Dim x As Integer,那么x的值可以是以下哪个?A.123B."Hello"C.3.14D.True答案:A3.在Visual Basic中,哪个关键字用于声明过程?A.FunctionB.SubC.IfD.For答案:B4.下列哪个选项不是Visual Basic的控件?A.TextBoxbelC.ButtonD.List答案:D5.在Visual Basic中,以下哪个选项可以用于循环结构?A.ForB.IfC.Select CaseD.With答案:A6.在Visual Basic中,哪个函数用于计算一个数的绝对值?A.AbsB.RoundC.IntD.Sgn答案:A7.在Visual Basic中,哪个属性用于设置文本框的只读属性?A.ReadOnlyB.BackColorC.ForeColorD.Enabled答案:A8.在Visual Basic中,哪个事件用于响应按钮点击?A.ClickB.DoubleClickC.MouseDownD.MouseUp答案:A9.在Visual Basic中,哪个关键字用于创建数组?A.ArrayB.ListC.CollectionD.Dim答案:D10.在Visual Basic中,哪个函数用于将字符串转换为数字?A.StrB.ValC.CStrD.Chr答案:B二、填空题(每题2分,共20分)1.在Visual Basic中,使用________关键字可以声明一个全局变量。

答案:Public2.如果一个变量的值需要在多个过程中共享,应该使用________关键字进行声明。

答案:Shared3.在Visual Basic中,使用________函数可以将小数四舍五入到最接近的整数。

二级vb编程题2很典型很有帮助—基本应用

二级vb编程题2很典型很有帮助—基本应用

二、基本应用2.1.新建工程,自行设计窗体界面,将窗体文件保存为“VB第二题”(6分),编写事件过程并满足以下要求:(1)单击命令按钮1,产生100个[10,99]之间的随机整数并显示在列表框1中(7分)。

(2)单击命令按钮2,在列表框2中显示上述随机整数中大于40的所有数据(7分)。

(提示:使用数组存储数据)Option Base 1Dim a() As IntegerPrivate Sub Command1_Click()ReDim a(100)RandomizeFor i = 1 To 100a(i) = Int(90 * Rnd) + 10List1.AddItem a(i)Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 100If a(i) > 40 ThenList2.AddItem a(i)End IfNext iEnd Sub2.2.新建工程,自行设计窗体界面,将窗体文件保存为“VB第二题”(6分),编写事件过程并满足以下要求:(1)单击命令按钮1,产生100个不大于300的随机整数并显示在列表框1中(7分)。

(2)单击命令按钮2,在列表框2中显示上述随机整数中的所有奇数(7分)。

(提示:使用数组存储数据)Dim a(100) As IntegerPrivate Sub Command1_Click()RandomizeFor i = 1 To 100a(i) = Int(Rnd * 300)List1.AddItem a(i)Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 100If a(i) Mod 2 <> 0 ThenList2.AddItem a(i)End IfNext iEnd Sub2.3新建工程,自行设计窗体界面,将窗体文件保存为“VB第二题”(6分),编写事件过程并满足以下要求:(1)单击命令按钮1,产生100个[200,2000]之间的随机整数并显示在列表框1中(7分)。

vb二级考试题库带答案

vb二级考试题库带答案

vb二级考试题库带答案1. 题目:在VB中,如何声明一个整型变量并为其赋值?答案:在VB中,声明一个整型变量并为其赋值可以使用以下代码: ```Dim myInteger As IntegermyInteger = 10```2. 题目:在VB中,如何实现一个简单的循环结构?答案:在VB中,可以使用`For`循环来实现一个简单的循环结构,例如:```For i = 1 To 10Print iNext i```3. 题目:在VB中,如何使用条件语句来判断一个数是否为偶数?答案:在VB中,可以使用`If`条件语句来判断一个数是否为偶数,如下所示:```Dim number As Integernumber = 4If number Mod 2 = 0 ThenPrint "The number is even."ElsePrint "The number is odd."End If```4. 题目:在VB中,如何创建一个数组并初始化其元素?答案:在VB中,可以通过以下方式创建一个数组并初始化其元素: ```Dim myArray(5) As IntegerFor i = 0 To 5myArray(i) = i * 2Next i```5. 题目:在VB中,如何使用函数来计算两个数的和?答案:在VB中,可以通过定义一个函数来计算两个数的和,如下所示:```Function Sum(ByVal num1 As Integer, ByVal num2 As Integer) As IntegerSum = num1 + num2End FunctionDim result As Integerresult = Sum(5, 10)Print "The sum is: " & result```6. 题目:在VB中,如何使用事件处理程序来响应按钮点击事件?答案:在VB中,可以通过定义一个事件处理程序来响应按钮点击事件,如下所示:```Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickMessageBox.Show("Button was clicked.")End Sub```7. 题目:在VB中,如何使用类来封装数据和方法?答案:在VB中,可以通过定义一个类来封装数据和方法,如下所示:```Public Class MyClassPrivate myData As StringPublic Sub New(ByVal data As String)myData = dataEnd SubPublic Function GetData() As StringReturn myDataEnd FunctionEnd ClassDim myObject As New MyClass("Hello World")Print myObject.GetData()```8. 题目:在VB中,如何使用异常处理来捕获和处理错误?答案:在VB中,可以通过使用`Try`、`Catch`和`Finally`块来捕获和处理错误,如下所示:```Try' Code that might cause an errorCatch ex As ExceptionMessageBox.Show("An error occurred: " & ex.Message) Finally' Code that always runs, regardless of an errorEnd Try```以上是VB二级考试题库中的部分题目及其答案。

大学计算机二级vb试题及答案

大学计算机二级vb试题及答案

大学计算机二级vb试题及答案1. VB语言基础知识VB(Visual Basic)是一种基于事件驱动的编程语言,以下是一些VB语言的基础知识:1.1 数据类型VB中支持的数据类型有:- 整数类型(Integer):用于表示整数,范围为-32768到32767。

- 长整型(Long):用于表示较大的整数,范围为-2,147,483,648到2,147,483,647。

- 单精度浮点型(Single):用于表示带有小数点的数字,范围为-1.401298E-45到3.402823E+38。

- 双精度浮点型(Double):用于表示较大范围的浮点数,范围为-4.94065645841247E-324到1.79769313486232E+308。

- 字符串型(String):用于表示文本数据。

- 布尔型(Boolean):用于表示真或假的值。

1.2 变量声明与赋值在VB中,可以使用Dim语句声明变量并赋初值。

例如:```Dim num As Integernum = 10```1.3 运算符VB支持常见的算术运算符(+、-、*、/)和比较运算符(>、<、=),以及逻辑运算符(And、Or、Not)等。

2. VB程序设计题2.1 编写程序,计算并输出1到100之间所有偶数的和。

```Dim sum As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextMsgBox "1到100之间所有偶数的和为:" & sum```2.2 编写程序,判断一个正整数是否为素数。

```Dim num As IntegerDim isPrime As Booleannum = InputBox("请输入一个正整数:") isPrime = TrueFor i = 2 To num - 1If num Mod i = 0 ThenisPrime = FalseExit ForEnd IfNextIf isPrime ThenMsgBox num & "是素数。

VB二级编程题

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练习题及答案

二级VB练习题及答案

二级VB练习题及答案第一章Visual Basic程序开发环境习题1.与传统的程序设计语言相比,Visual Basic最突出的特点是:A.结构化程序设计B.程序开发环境C.事件驱动编程机制D.程序调试技术答案:C2.在正确安装Visual Basic 6.0后,可以通过多种方式启动Visual Basic,以下方式中,不能启动VB的是:A.通过“开始”菜单中的“程序”命令B.通过“我的电脑”找到VB6.0.EXE,双击该文件名C.通过开始菜单中的“运行”命令D.进入DOS方式,执行VB6.0.EXE文件答案:D3.为了用键盘打开菜单和执行菜单命令,第一步应按的键是:A.功能键F10或ALTB.SHIFT+功能键F4C.CTRL和功能键F8D.CTRL+ALT答案:A4.Visual Basic 集成环境中的主窗口中不包括:A.标题栏B.菜单栏C.状态栏D.工具栏答案:C5.用标准工具栏中的工具按钮不能执行的操作是:A.添加工程B.打印源程序C.运行程序D.打开工程答案:B6.Visual Basic窗体设计器的主要功能是:A.建立用户界面B.编写源程序代码C.画图D.显示文字答案:A7.Visaul Basic 6.0分为3种版本:、、。

答案:学习版、企业版、专业版8.可以通过菜单中命令退出Visaul Basic。

答案:文件、退出9.退出Visual Basic的快捷键。

答案:ALT+Q10.快捷键CTRL+O的功能相当于菜单命令。

或者相当于工具栏上的按钮。

答案:文件、打开工程11.如果打开了不需要的菜单或对话框,可以用键退出。

答案:ESC12.工程文化的扩展名是,窗体文件的扩展名是。

答案:.vbp、.frm13.Visual Basic中的工具栏有两种形式,分别为形式和形式答案:固定、浮动第二章对象及其操作习题1.下列可以激活属性窗口的操作是()A.用鼠标双击窗体的任何部位。

B.执行“工程”菜单中的“属性窗口”命令。

计算机二级VB上机操作练习题及答案

计算机二级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》操作试题及答案

全国计算机二级考试《VB》操作试题及答案

全国计算机二级考试《VB》操作试题及答案全国计算机二级考试《VB》操作试题及答案全国计算机等级考试(National Computer Rank Examination,简称NCRE),是在1994年,经原国家教育委员会(现教育部)批准,由教育部考试中心主办,面向社会,用于考查应试人员计算机应用知识与能力的全国性计算机水平考试体系。

以下是店铺整理的全国计算机二级考试《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,标题依次为“飞机”、“火车”、“汽车”,再添加一个名称为T extl的文本框。

二级VB语言程序设计考试题及答案

二级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考试题及答案

计算机二级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亿。

vb2级题库及答案

vb2级题库及答案

vb2级题库及答案VB2级考试通常是指Visual Basic 2级的编程考试,它测试学生对Visual Basic编程语言的理解和应用能力。

以下是一些可能的VB2级题目和它们的答案:1. 题目:编写一个VB程序,实现输入两个整数,输出它们的和。

答案:```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = InputBox("请输入第一个整数:")num2 = InputBox("请输入第二个整数:")sum = num1 + num2MsgBox("两个数的和是:" & sum)```2. 题目:创建一个VB程序,该程序可以计算并显示一个矩形的面积和周长。

答案:```vbDim length As DoubleDim width As DoubleDim area As DoubleDim perimeter As Doublelength = InputBox("请输入矩形的长度:")width = InputBox("请输入矩形的宽度:")area = length * widthperimeter = 2 * (length + width)MsgBox("矩形的面积是:" & area & ",周长是:" & perimeter) ```3. 题目:编写一个VB程序,用于检查输入的年份是否为闰年。

答案:```vbDim year As IntegerDim isLeapYear As Booleanyear = InputBox("请输入一个年份:")If (year Mod 4 = 0 And year Mod 100 <> 0) Or (year Mod 400 = 0) ThenisLeapYear = TrueElseisLeapYear = FalseEnd IfIf isLeapYear ThenMsgBox(year & " 是闰年。

VB编程题完整版3

VB编程题完整版3

( 1)选择结构(2)循环结构(3)数组(4)过程1.输入 3 个数,输出最大的数2.有一元二次方程: aX 2+bX+c=0 ,依次输入 a, b, c,判断此方程是否有实根3.输入一个百分制的成绩,若大于等于 60,则用消息框弹出,显示“恭喜!成绩通过!”,若小于 60,则弹出消息框,显示“抱歉!成绩没有通过!”4.输入一年份,判断它是否为闰年,并显示有关信息。

(判断闰年的条件是:年份能被 4 整除但不能被 100 整除,或者能被 400 整除)5.输入学生的百分制成绩,转换输出为五级制成绩,90~ 100分转换为优秀, 80~89 转换为良好, 70~79 转换为中等, 60~ 69 转换为及格, 0~ 60 转换为不及格。

6.随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示。

例如,产生 246,输出是 642。

7.输入两个整数,求它们的最大公约数。

8.编程求 200--400 范围内 5 的倍数或 7 的倍数之和。

(一个数如果同时是7 和 5 的倍数,则只能加一次。

9.计算 100~300 之间所有能被 3 和 7 整除的数之和10.分别统计 1-100 中,满足 3 的倍数、 7 的倍数的数各有多少。

11.某次歌曲大奖赛,有 7 个评委。

如果分别输入 7 个评委对某个参赛者的打分数,按照去掉一个最高分和一个最低分的计算办法,求出该参赛者的平均得分。

12.输入一串字符,统计其中字母A( 不区分大小写 )出现的次数。

13.我国目前有13 亿人口,按人口年增长率0.8%计算,多少年后我国人口将超过26 亿。

14.小猴有桃若干,第一天吃掉一半多一个;第二天吃剩下桃子的一半多一个;以后每天都吃尚存桃子的一半多一个,到第 7 天只剩一个,问小猴原有桃多少?15.求 100 以内的素数16.百元买百鸡问题。

假定小鸡每只5 角,公鸡每只 2 元,母鸡每只 3 元,编程求解购鸡方案。

17.编程求斐波那契数列前 11 项。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

三、基本编程3.1. 编写程序,计算并输出下面数列前n(设n=45)项中所有偶数项的和。

1×2×3,2×3×4,3×4×5,……,n×(n+1)×(n+2),……要求:在运行程序时,采用适当的方式进行输入(n)和输出(计算结果)。

Dim n As IntegerPrivate Sub Command1_Click()Dim s As Longn = Val(InputBox("输入n的值"))For i = 2 To n Step 2s = s + i * (i + 1) * (i + 2)Next iPrint "数列中的偶数项和是:"; sEnd Sub3.2. 编写程序,计算并输出下面数列前35项的和。

1×2×3,-2×3×4,3×4×5,-……,+(-1)^(n-1)×(n×(n+1)×(n+2))(其中:(-1)^(n-1)表示-1的(n-1)次方)要求:在运行程序时,采用适当的方式进行输入(n)和输出(计算结果)。

Dim n As IntegerPrivate Sub Command1_Click()Dim s As Longn = Val(InputBox("输入n的值"))s=0For i = 1 To ns = s + (-1) ^ (i - 1) * i * (i + 1) * (i + 2)Next iPrint "数列中前35项的和是:"; sEnd Sub3.3. 编写程序,求下面数列前50项的和。

结果取4位小数。

1,1/(3×3),1/(5×5),1/(7×7),……,1/((2n-1)×(2n-1)),……要求:在运行程序时,采用适当的方式进行输入(n)和输出(计算结果)。

Dim n As IntegerPrivate Sub Command1_Click()Dim s As Longn = Val(InputBox("输入n的值"))s=0For i = 1 To ns = s + 1/((2 * i-1)*(2 * i-1))Next is =Int(s * 10000 + 0.5)/10000Print "数列中的前50项和是:"; sEnd Sub3.4. 编写程序,计算并输出下面数列中前n(设n=8)项的和。

结果取4位小数。

1/1!,1/2!,1/3!,1/4!,……,1/n!,……(其中,! 表示求阶乘)要求:在运行程序时,采用适当的方式进行输入(n)和输出(计算结果)。

Dim n As IntegerPrivate Sub Command1_Click()Dim s As Long, t As Doubles = 0n = Val(InputBox("输入n 值"))t = 1For i = 1 To nt = t * is = s + 1/tNext iPrint "s="; sEnd Sub3.5. 编写程序,计算并输出下面数列前n项的和(设n=50,x=0.4),要求结果保留4位小数。

sin(x)/2,sin(2x)/4,sin(3x)/6,……,sin(nx)/2n,……(其中,sin为正弦函数)要求:在运行程序时,采用适当的方式进行输入(n、x)和输出(计算结果)。

Private Sub Command1_Click()Dim n As Integer, i As IntegerDim s As Single, x As Single, t As Singles = 0x = Val(InputBox("输入x 值"))n = Val(InputBox("输入n 值"))For i = 1 To nt = Sin(2 * x) / (2 * i)s = s + tNext iPrint "s="; Int(s * 10000 + 0.5) / 10000End Sub3.6. 编写程序,计算出100到500之间所有满足下列条件的整数和:整数的每位数字的和能整除整数本身。

要求:在运行程序时,采用适当的方式输出计算结果。

Private Sub Command1_Click()Dim s1 As Integer, s2 As IntegerDim s3 As IntegerFor a = 100 To 500s1 = a Mod 10s2 = (a \ 10) Mod 10s3 = a \ 100If a Mod (s1 + s2 + s3) = 0 ThenList1.AddItem aEnd IfNext aEnd Sub3.7编写程序,计算并输出下面数列中前n(设n=25)项的和。

结果取4位小数。

1/(1×2),1/(2×3),1/(3×4),……,1/(n×(n+1)),……要求:在运行程序时,采用适当的方式进行输入(n)和输出(计算结果)。

Dim n As IntegerPrivate Sub Command1_Click()Dim s As Longn = Val(InputBox("输入n的值"))s=0For i = 1 To ns = s + 1/(i * (i+1))Next is =Int(s * 10000 + 0.5)/10000Print "数列中的前50项和是:"; sEnd Sub3.8. 编写程序,计算并输出下面数列前35项的和,结果取4位小数。

1/2,2/3,3/4,4/5,5/6,6/7,7/8, …… , n/(n+1),……要求:在运行程序时,采用适当的方式进行输入(n)和输出(计算结果)。

Dim n As IntegerPrivate Sub Command1_Click()Dim s As Longn = Val(InputBox("输入n的值"))s=0For i = 1 To ns = s + i/(i+1))Next is =Int(s * 10000 + 0.5)/10000Print "数列中的前50项和是:"; sEnd Sub3.9. 编写程序,计算出1000到5000之间能被3整除但不能被13整除的所有整数的平方根的和。

保留4位小数。

要求:在运行程序时,采用适当的方式输出计算结果。

Private Sub Command1_Click()Dim s As SingleFor a = 1000 To 5000If a Mod 3 = 0 And a Mod 13 <> 0 Thens = s + Sqr(a)End IfNext as = Int(s * 1000 + 0.5) / 1000Print "s="; sEnd Sub3.10. 编写程序,计算并输出下面数列前40项的和,结果取4位小数。

2/1,3/2,4/3,5/4,6/5,7/6,8/7, …… ,(n+1)/n,……要求:在运行程序时,采用适当的方式进行输入(n)和输出(计算结果)。

(参看3.8)3.11. 编写程序,求下面数列的和S,当某项(即1/n!)的值小于0.005时求和终止并输出s,该项参加求和。

结果取4位小数。

1/1!,1/2!,1/3!,……,1/n!,……(其中,! 表示求阶乘)要求:在运行程序时,采用适当的方式输出计算结果。

Private Sub Command1_Click()Dim s As Single, t As Double, n As Integers = 0n = 0t = 1Don = n + 1t = t * ns = s + 1 / tLoop Until 1 / t < 0.005Print "s="; sEnd Sub3.12. 编写程序,计算并输出下面数列前n项的和(设n=50,x=0.4),要求结果保留4位小数。

cos(x)/2,cos(2x)/4,cos(3x)/6,……,cos(nx)/2n,……(其中,cos为余弦函数)要求:在运行程序时,采用适当的方式进行输入(n、x)和输出(计算结果)。

(参看3.5)3.13. 编写程序,计算下面数列的和OS,当第一次出现和数大于5000时求和终止并输出结果。

1×2,-2×3,3×4,-4×5,…,(-1)^(n-1)×n×(n+1),……(其中,^ 表示幂运算)要求:在运行程序时,采用适当的方式输出计算结果。

Private Sub Command1_Click()Dim os As Single, t As Double, n As Integeros = 0n = 0t = 1Don = n + 1t = n * (n + 1)os = os + (-1) ^ (n - 1) * tLoop Until os > 5000Print "os="; osEnd Sub3.14. 编写程序,计算并输出下面数列前35项的和,结果取4位小数。

3/1,5/3,7/5,9/7,11/9,13/11,15/13,……,(2n+1)/(2n-1)要求:在运行程序时,采用适当的方式进行输入(n)和输出(计算结果)。

(参看3.8)3.15.编写程序,求下面数列前40项的和。

结果取4位小数。

1,1/2^4,1/3^4,1/4^4,……,1/n^4,……(其中,^ 表示幂运算)要求:在运行程序时,采用适当的方式进行输入(n)和输出(计算结果)。

Private Sub Command1_Click()Dim s As Single, t As Double, n As Integers = 1t = 1n = Val(InputBox("输入项数"))For i = 2 To nt = 1 / i ^ 4s = s + tNext iPrint "s="; Int(s * 10000 + 0.5) / 10000End Sub3.16.编写程序,求下面数列前50项的和。

结果取4位小数。

相关文档
最新文档