十套练习和模拟题的VB题答案001

合集下载

(完整版)VB习题册答案()最终版

第一章二、1。

文件/退出2.Alt+Q3.文件/打开工程/打开工程4.vbp/frm5。

Esc第二章二、1。

对象框、属性显示方式、属性列表和属性解释2。

Text1。

text=”Hellor!”3.标准控件/ActiveX控件/可插入对象4。

Top和Left，Width和Height5。

用鼠标单击属性窗口的任何部分；执行“视图”菜单中的“属性窗口”命令；按F4键；单击工具栏上的“属性窗口”按钮;按组合键Ctrl+PgDn或Ctrl+PgUp6.Ctrl/Shift第三章二、1．答案：、ABCD，VB Programming2．答案：建立界面，设置属性、编写代码3．答案：属性窗口,运行4．答案:对象,过程5．答案:工具、选项、选项、自动语法检查6．答案：Frm，Vbp7．答案:工程8．答案：窗体模块，标准模块和类模块第四章二、1．答案：CONTT。

DE+COS（28＊3.14/180）2．答案：—3/8 +8＊INT（24。

8）3．答案：(8+6）^（4/-2)+SIN（2＊3。

14）4．答案:((x+y)+z)*80—5＊(C+D）5.答案： A6.答案:17.答案：Good Morning 、 Good Morning8.答案: ABCD 、 HIJK 。

9.答案：CDEF、1110.答案：0、abcdefghijk11.答案：25、8、2001、7、6第五章二、1．答案：Label2.Caption,Text1.Text，Text2。

Text=y2．答案：MsgBox “输入的密码为”＆Text2.Text , vbOKOnly， "登录”3．答案：25+32=574．答案：Country ＆“ “ ＆City &” “ ＆ CStr（Year(Date)）5．答案 Year(Date） &“年“ & Month(Date） &“月" & Day（Date） _ &“日，星期“＆ WeekDay （Date，vbMonday)第六章二、1．答案：AutoSize2．答案：ScrollBar MultiLine True3．答案：Text1.SetFocus4．答案：0 05．答案:Picture1.Picture=LoadPicture(“pic2.gif”）6．答案：True7．答案：Picture8．答案：Interval9．答案：Enabled10．答案：下拉组合框，简单组合框，下拉列表框 Style 0 1 2 11．答案:下拉列表框12．答案：ItemA和ItemC13．答案：VB14．答案：VB程序设计 VB Programming第七章二、1． __21 38 54__2． sum=14 sum=14 sum=10。

VB题库(附答案)

2009级第二学期《Visual Basic程序设计》模拟考试一: 单项选择题A1: 当事件发生时，对象识别并响应事件，执行事件对应的程序代码，这样的编程机制称为________。

A事件驱动编程机制B面向对象方法C过程化编程方法D 可视化程序设计方法C2: 下列不能打开属性窗口的操作是________。

（A）执行菜单中“视图→属性窗口”命令（B）按F4键（C）双击窗体（D）单击工具栏中的“属性窗口”按钮D3:当文本框获得焦点时，将触发文本框控件的_______事件。

（A）SetFocus（B）LostFocus（C）KeyPress（D）GotFocusB4: 以下不属于Visual Basic应用程序文件类型的是________。

（A）.frm（B）.bat（C）.vbg（D）.vbpD5: 使程序运行时窗体无法响应用户事件的属性是_______。

（A）Top（B）Cancel（C）Left（D）EnabledB6: 返回当前日期的函数是________。

（A）Time()（B）Date()（C）Year()（D）Timer()D7:用变量x存放数据123456789.987456321，变量x的最佳数据类型是________。

a整型b长整型c单精度型d双精度型A8: 设变量X="123"，Y=3,则X＆Y的值为________。

（A）"1233"（B）126（C）123（D）假C9: 下列程序段中可以实现X、Y变量值的互换的是________。

(A)Y=X:X=Y (B)Y=X:Y=Z:X=Y(C)Z=X:X=Y:Y=Z(D)Z=X:W=Y:Y=Z:X=YD10: InputBox函数返回值的类型是________。

（A）字符串（B）变体（C）数值（D）数值或字符串(视输入而定)A11:关于多分支选择结构If…ElseIf…EndIf ，下列错误的叙述是________。

vb习题（含答案）

vb习题（含答案）⼀、单项选择题（50道⼩题，共50分）1、VB程序中，通常不会产⽣错误提⽰的是( )。

（1分）A、编译错误B、逻辑错误C、运⾏时错误D、实时错误2、在设计阶段，双击窗体上任⼀空⽩处，打开的窗⼝是( )。

（1分）A、⼯程资源管理器窗⼝B、代码窗⼝C、⼯具箱窗⼝D、属性窗⼝3、下列说法中，正确的说法是( )。

（1分）A、窗体名称和该窗体⽂件名必须⼀致B、窗体名称和该窗体⽂件名可以不相同C、窗体名称和该窗体⽂件名不能使⽤汉字D、窗体名称不能使⽤汉字、但该窗体⽂件名能使⽤汉字4、Visual Basic有完备的Help联机帮助功能，可以通过按下功能键( )得到帮助。

（1分）A、F9B、F8D、F55、以下( )控件可作为容器使⽤。

（1分）A、LabelB、PictureBoxC、TextBoxD、Image6、将窗体的BoderStyle属性设置为( )可使窗⼝不显⽰标题栏。

（1分）A、0B、1C、2D、57、⽂本框没有( )属性（1分）A、TextB、NameC、CaptionD、BorderStyleA B C D A B C D A B C D A B C D A B C D A B C D A B C D A BC D A B C D A B C D A B C D A B C D A B C D A B C D A B C D23、下列( )是不合法的常量。

（1分）A、100B、10E02D、10e0.524、下列对变量的定义中，定义X为变体型变量的是( )。

（1分）A、Dim X as DoubleB、Dim XC、Dim X!D、X%=2325、设有如下变量声明：Dim TestDate As Date，为变量TestDate正确赋值的表达⽅式是( )。

（1分）A、TextDate=#1/1/2002#B、TestDate=#"1/1/2002"#C、TextDate=date("1/1/2002")D、TestDate=Format("m/d/yy","1/1/2002")26、在⽴即窗⼝中运⾏以下语句，a="Beijing" :b="ShangHai" :Print a,b对其输出结果的描述中，正确的是( )。

vb习题答案(1-9章)最全的

第一章VB程序设计概述二、选择题CADAB ACDAB CBDBB第二章VB可视化编程基础二、选择题ABDCA CACBC DADAD BDBBB三、填空题1.可视2.LEFT TOP WIDTH HEIGHT3.按字母序4.查看代码5.工具、选项6.Form1 Font7.Multiline8.只读属性9.工程属性通用Form1.show10.tabindex 0第三章VB语言基础二、选择题BCADB ADBBC DBCBA DAABB三、填空题1.整型、长整型、单精度、双精度2.sin(30*3.14/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)3.160 今天是：3-224.False5.-4 3 -3 3 -4 46.“CDEF”7.(x mod 10)*10+x\108.(35\20)*20=20 ( 35 \ 20 ) * 20 = 209.x mod 3=0 or x mod 5=010.27.6 8.2 8 1 100 397 true false第四章VB程序控制结构二、选择题DBCAD ABCAB D25BAC CBACB DABBC三、填空题1.字符型整型2. 1 2 33.x>74.x<amin5.10246.117.128.6 I “*”;9.0 100 i+1 10.2*I 6 “*”;三、编程题1.Private Sub Form_Click()Dim n As Integer, i As Integer, s As Longs = 1n = Val(InputBox("请输入一个整数:"))For i = 1 To ns = s * iNext iMsgBox n & "！=" & sEnd Sub2．Private Sub Form_Click()Dim i%, k%For j = 3 To 100k = Int(Sqr(j))For i = 2 To kIf j Mod i = 0 Then Exit ForNext iIf i > k Theny$ = y$ & " " & jEnd IfNext jMsgBox y, , "显示质数"End Sub3．Private Sub Form_Click()Dim i%, s%For i = 1 To 100s = s + iNext iMsgBox "1+2+3+……+100=" & sEnd Sub4．Private Sub Form_Click()Dim x%, y%For x = 1 To 50For y = 1 To 33z = 100 - x - yIf 2 * x + 3 * y + 0.5 * z = 100 ThenPrint "小鸡、公鸡、母鸡分别为："; x; y; z End IfNext yNext xEnd Sub5.Private Sub Command1_Click()Dim a%, b%, c%, p!, s!doa = Val(InputBox("请输入三角形的第一条边"))if a=-1 then exit dob = Val(InputBox("请输入三角形的第二条边"))c = Val(InputBox("请输入三角形的第三条边"))If a + b > c And a + c > b And b + c > a Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print sElseMsgBox "你输入的三边不能构成三角形，请重新输入"End IfloopEnd Sub6. Private Sub Form_Click()Dim i As Integer, j As Integer,k as integerFor i = 1 To 8For k=1 to 8-iPrint spc(3);Next kFor j = 1 To 2 * i - 1Print i;Next jPrintNext iEnd Sub7. Private Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerFor i = 1 To 30For j = 1 To 30For k = 1 To 30If i ^ 2 + j ^ 2 = k ^ 2 ThenPrint i & " ^ 2 + " & j & "^ 2 =" & k & "^ 2"End IfNext kNext jNext iEnd Sub8．Private Sub Form_Click()Dim x As Integer, a As Integer, b As Integer, c As Integer, ss As String ss = ""For x = 100 To 999a = Int(x / 100)b = Int((x - 100 * a) / 10)c = x - 100 * a - 10 * bIf a ^ 3 + b ^ 3 + c ^ 3 = x Thenss = ss & " " & xEnd IfNext xPrint ssEnd Sub9．Dim sr As Long, r As Singlesr = Val(InputBox("请输入收入："))Select Case srCase Is < 200r = 0Case 200 To 400r = (sr - 200) * 0.04Case 400 To 5000r = sr * 0.04Case Is >= 5000r = sr * 0.05End SelectPrint "收入为" & sr & "时所缴纳的税为：" & rEnd Sub10.Private Sub Form_Click()Dim t As Single, wf As Singlet = Val(InputBox("请输入上网时间:"))Select Case tCase Is < 10wf = 50Case 10 To 60wf = t * 6Case Is >= 60wf = t * 4End SelectIf wf >= 200 Thenwf = 200End IfPrint "上网时间为" & t & "小时上网的费用为：" & wf End Sub11. Private Sub Form_Click()Dim yf As Integeryf = Val(InputBox("请输入月份"))Select Case yfCase 12, 1, 2MsgBox yf & "月份是冬季"Case 3, 4, 5MsgBox yf & "月份是冬季"Case 6, 7, 8MsgBox yf & "月份是冬季"Case 9, 10, 11MsgBox yf & "月份是冬季"Case ElseMsgBox "输入错误，请重新输入"End SelectEnd Sub12.if的方法Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))If x < 0 Thenf = 2 * x - 1ElseIf x = 0 Thenf = 4 * xElseIf x > 0 Thenf = 7 * x - 5End IfPrint "f(" & x & ")=" & fEnd SubSelect case语句：Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))Select Case xCase Is < 0f = 2 * x - 1Case 0f = 4 * xCase Is > 0f = 7 * x - 5End SelectPrint "f(" & x & ")=" & fEnd Sub第五章数组一、选择题DCACD DBCDC BADAD二、填空题1.名称Index2.preserve3.变体4.235.1 2 3 1 4 16.1 2 3 2 4 67. max max=arr1(i)三、编程题1.Option Base 1Private Sub Form_Click()Dim a(10) As Integer, i%, temp%For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个整数")) Next iPrint "原来各元素的值为："For i = 1 To 10Print a(i);Next iFor i = 1 To 5temp = a(11 - i)a(11 - i) = a(i)a(i) = tempNext iPrintPrint "交换后各元素的值为："For i = 1 To 10Print a(i);Next iEnd Sub2.Option Base 1Private Sub Form_Click()Dim a As Variant, b As Variant, c As Variant, i%a = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66, 78, 80)ReDim c(8)For i = 1 To UBound(a)c(i) = a(i) + b(i)Next iFor i = 1 To UBound(c)Print c(i);Next iEnd Sub3.Option Base 1Private Sub Form_Click()Dim a() As Variant, i%, j%, n%, m%, max%, hh%, lh%n = Val(InputBox("请输入一个整数:"))m = Val(InputBox("请输入一个整数:"))ReDim a(n, m)For i = 1 To n - 1For j = 1 To m - 1a(i, j) = Int(Rnd * 101 + 50)If max < a(i, j) Then max = a(i, j): hh = i: lh = jNext jNext iPrint "最大值为:"; max; "所在的行号为："; hh; "所在的列号为:"; lh End Sub4.Option Base 1Private Sub Form_click()Dim a(50) As Integer, b(9) As Integer, i%, j% For i = 1 To 50a(i) = Int(Rnd * 90 + 10)j = Int(a(i) / 10)b(j) = b(j) + 1Next iFor j = 1 To 9Print b(j);Next jEnd Sub5.Option Base 1Private Sub Command1_Click(Index As Integer) Select Case IndexCase 0Text3 = Val(Text1) + Val(Text2)Case 1Text3 = Val(Text1) - Val(Text2)Case 2Text3 = Val(Text1) * Val(Text2)Case 3Text3 = Val(Text1) / Val(Text2)End SelectEnd Sub6.Private Sub Form_click()Dim s!, i&, j&i = 3s = 1j = 0Doj = j + 1s = s + (-1) ^ j / ii = i + 2Loop While 1 / i > 10 ^ (-6)Print 4 * sEnd Sub7.Option Base 1Private Sub Form_click()Dim a(40) As Long, i As Integera(1) = 1a(2) = 1For i = 3 To 39a(i) = a(i - 1) + a(i - 2)Next iFor i = 1 To 40Print a(i);Next iEnd Sub8.冒泡法：Option Base 1Private Sub Form_click()Dim a(10) As Single, ok As Boolean, i%, j%, x!For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iFor i = 10 To 2 Step -1ok = TrueFor j = 1 To i - 1If a(j) > a(j + 1) Thenx = a(j)a(j) = a(j + 1)a(j + 1) = xok = FalseEnd IfNext jIf ok Then Exit ForNext iPrintPrint "冒泡排序的结果为："For i = 1 To 10Print a(i);Next iEnd Sub选择法：Option Base 1Private Sub Form_click()Dim a(10) As Single, p!, i%, j%, min!For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iFor i = 1 To 9p = iFor j = i + 1 To 10If a(j) < a(p) Then p = jNext jIf p <> i Thenmin = a(i)a(i) = a(p)a(p) = minEnd IfNext iPrintPrint "排序后的结果为："For i = 1 To 10Print a(i);Next iEnd Sub第六章过程一、选择题CDBAB DBCCC ABCBD CDB二、填空题1.sub function2.形式实际3.内存的同一地址4.myf(a%,b() as integer ) as Boolean5.值传递地址传递6.lbound ubound7.局部8.通用任何过程9.2 5 9 10.2411.2 12.30 7013.-1三、编程题1. Option Base 1Private Sub Form_Click()Dim m1%, m2%, b() As IntegerFor i = 3 To 7 Step 2ReDim b(i)For j = 1 To ib(j) = Int(Rnd * 90 + 10)Print b(j);Next jm1 = b(1)m2 = b(1)Call mm(m1, m2, b())PrintPrint "最大值为:"; m1Print "最小值为:"; m2Next iEnd SubPublic Sub mm(max%, min%, a() As Integer) Dim i%For i = LBound(a) To UBound(a)If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iEnd Sub2.sub过程：Public Sub jc(n%, s&)Dim i%s = 1For i = 1 To ns = s * iNext iEnd SubPrivate Sub Form_click()Dim s&, a%, b%, c%, s1&a = Val(InputBox("请输入一个整数:"))b = Val(InputBox("请输入一个整数:"))c = Val(InputBox("请输入一个整数:")) Call jc(a, s1)s = s1 + sCall jc(b, s1)s = s1 + sCall jc(c, s1)s = s1 + sPrint a & "!+" & b & "!+" & c & "!=" & s End SubFunction过程：Public Function jc(n%) As LongDim i%, s%s = 1For i = 1 To ns = s * iNext ijc = sEnd FunctionPrivate Sub Form_click()Dim s&, a%, b%, c%, s1&a = Val(InputBox("请输入一个整数:"))b = Val(InputBox("请输入一个整数:"))c = Val(InputBox("请输入一个整数:"))s1 = jc(a) + jc(b) + jc(c)Print a & "!+" & b & "!+" & c & "!=" & s1 End Sub3.Public Sub jo(n As Integer)If n Mod 2 = 0 ThenPrint "false"ElsePrint "true"End IfEnd Sub4.Private Sub Form_click()Dim b(1 To 100) As Integer, i%For i = 1 To 100b(i) = Int(Rnd * 100 + 1)Next iCall sort(b())For i = 1 To 100If i Mod 10 = 0 Then PrintPrint b(i);Next iEnd SubPublic Sub sort(a() As Integer)Dim n%, ok As Boolean, k As Integern = UBound(a)For i = 1 To n - 1ok = TrueFor j = 1 To n - iIf a(j) > a(j + 1) Thenk = a(j): a(j) = a(j + 1): a(j + 1) = k: ok = False End IfNext jIf ok Then Exit ForNext iEnd Sub5.Private Sub Form_click()Dim b(1 To 10) As Integer, i%For i = 1 To 10b(i) = Val(InputBox("请输入第" & i & "个整数")) Next iCall sort(b())Print "排序后的结果"For i = 1 To 10Print b(i);Next iEnd SubPublic Sub sort(a() As Integer)Dim n%, p%, k As Integern = UBound(a)For i = 1 To n - 1p = iFor j = i + 1 To nIf a(j) < a(p) Then p = jNext jIf p <> i ThenMin = a(i)a(i) = a(p)a(p) = MinEnd IfNext iEnd Sub6.Public Sub gys(m%, n%)Dim r%, t%If m <> 0 And n <> 0 ThenIf m < n Thent = m: m = n: n = tEnd Ifr = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopEnd IfEnd Sub7.Public Sub ws(n%, s%)Dim k%, i%For i = 1 To n - 1If n Mod i = 0 Then s = s + iNext iEnd SubPrivate Sub Form_click()Dim m%, sum%, c$For m = 1 To 999sum = 0Call ws(m, sum)If sum = m Then c = c & sum & " " Next mMsgBox cEnd Sub8.Public Function ef(a(), k%, wz%) As Integer Dim i%, low%, mid%, top%low = LBound(a)top = UBound(a)Do While low <= topmid = (low + top) / 2If k > a(mid) Thenlow = mid + 1ElseIf k = a(mid) Thenwz = midExit FunctionElsetop = mid - 1End IfLoopwz = -1End Function9.Function MaxGY(x As Integer, y As Integer) Dim Temp As IntegerTemp = x Mod yIf Temp = 0 ThenMaxGY = yElseMaxGY = MaxGY(y, Temp)End IfEnd FunctionPrivate Sub Form_click()Dim m%, n%m = Val(InputBox("请输入第一个整数："))n = Val(InputBox("请输入第二个整数：")) Print "最大公约数是:"; MaxGY(m, n)End Sub10. Function Ss(n%)If n = 1 ThenSs = 10ElseSs = Ss(n - 1) + 2End IfEnd FunctionPrivate Sub Form_click()Dim r%, x%r = 5x = Ss(5)Print "第5个小孩的岁数为:"; xEnd Sub第七章应用程序界面设计一、选择题BCDCA CDBBD CADAA CADBD DAAAB CAA二、填空题1.form1.show unload form12.form2.show form1.hide3.属性方法事件4、工程属性工程属性5．子窗体主窗体6、keypress list(i) additem7.0 list1.listindex list1.listcount-18、1000 true time() 9、AA10、下拉式组合框、简单组合框和下拉式列表框第八章VB图形操作一、选择题DCCDA CDAAA BABBC CAAA二、填空题1、不会也不会 2.、Scaleheight Scalewidth3、(300,-150)4、右上5、twip6、0~157、B 8、-2π~09、逆10、drawwidth11、右上12、move13、cls 14、坐标原点、坐标度量单位、坐标轴的长度与方向15、VB程序设计vbprogramming三、编程题1、Private Sub Command1_Click()Const pi = 3.14159P1.Circle (Val(Text1), Val(Text2)), Val(Text3)End SubPrivate Sub Command2_Click()P1.ClsText1 = ""Text2 = ""Text3 = ""End Sub2、Private Sub Form_Load()Pic1.Picture = LoadPicture("F:\VB程序设计\上课课件\tea.jpg")End SubPrivate Sub Pic1_Click()Pic2.Picture = Pic1.PicturePic1.Picture = LoadPicture("")End Sub3、Dim a1!, b1!Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) a1 = Xb1 = YEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Circle (a1, b1), Sqr((a1 - X) ^ 2 + (b1 - Y) ^ 2)End Sub4、Dim a1!, b1!Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Thena1 = Xb1 = YEnd IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenLine (a1, b1)-(X, Y), vbGreen, BFEnd IfEnd Sub5、Private Sub Form_Click()Scale (-200, 200)-(200, -200)Dim i!For i = 0 To 140 Step 20Line (-i - 10, i + 10)-(i + 10, -i - 10), , BNext iEnd Sub第9章vb文件操作一、选择题BDDCC BBAAB二、填空题1、驱动器列表框、目录列表框和文件列表框2、change 3\file1.path=dir1.path4、name “D:\old.doc” as “c:\new.doc”5、dir1.path=drive1.drive file1.path=dir1.path6、filecopy “d:\text.doc”,”e:\text.doc”7、eof 8、input not eof(1)9、for inputFor outputnot eof(1)str1Close #110、pattern 11、空12、字节。

vb考试题库及答案大一

vb考试题库及答案大一一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明语句？A. Dim a$B. Dim a IntegerC. Dim a As StringD. Dim a As Integer答案：C2. VB中，以下哪个是正确的字符串连接操作符？A. +B. ||C. &D. *答案：C3. 在VB中，以下哪个函数用于将字符串转换为数值？A. Val()B. Str()C. CInt()D. CDbl()答案：A4. 在VB中，以下哪个是正确的条件语句？A. If x > 0 Then Print "Positive"B. If x > 0 Print "Positive"C. If x > 0 Then Print "Positive" Else Print "Negative"D. If x > 0 Then "Positive"答案：C5. 在VB中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 1 To 10 Step -1C. For i = 10 To 1D. All of the above答案：D6. 在VB中，以下哪个是正确的数组声明语句？A. Dim arr(10)B. Dim arr(10) As IntegerC. Dim arr() As IntegerD. Dim arr As Integer(10)答案：B7. 在VB中，以下哪个是正确的函数声明语句？A. Function myFunction() As IntegerB. Function myFunction As IntegerC. Function myFunction() IntegerD. Function myFunction Integer答案：A8. 在VB中，以下哪个是正确的事件处理程序声明？A. Private Sub Form_Click()B. Private Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs)C. Private Sub Form_Click(ByVal sender As Object)D. Private Sub Form_Click(ByVal e As EventArgs)答案：A9. 在VB中，以下哪个是正确的窗体属性？A. CaptionB. TextC. NameD. All of the above答案：D10. 在VB中，以下哪个是正确的控件事件？A. ClickB. DoubleClickC. MouseDownD. All of the above答案：D二、填空题（每题2分，共20分）1. 在VB中，使用___________关键字可以声明一个全局变量。

Vb十套模拟题及答案

Vb答案第一套1 在名称为FORM1 的窗体上放置一个名为TEXT1 的文本框控件和一个名为TIMER1的计时器控件，请设置计时器的适当属性并且编写适当的事件过程，使得程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。

（如示例所示）*****注意：程序中不得使用任何变量，只能写一条语句；保存时必须存放在考生文件夹下，窗体文件名为SJT1.FRM，工程文件名为SJT1.VBP。

Private Sub Timer1_Timer()Text1.Text = TimeEnd Sub2 在窗体FORM1上画一个组合框，名称为CBO1,有“长跑”、“游泳”、“跳远”三个可供选择项。

再画一个命令按钮，名称为CMD1,标题为“确定”。

编写适当的事件过程，使得程序运行时，选择组合框中的某项，单击命令按钮后，就会弹出一个消息框，内容为“您选择了(某项)”如[示例]。

注意：1)程序中不得使用任何变量。

2)保存时必须存放在考生文件夹下，窗体文件名为SJT2.FRM,工程文件名为SJT2.VBPPrivate Sub Cmd1_Click()MsgBox "您选择了" & CBO1.TextEnd Sub3 在考生文件夹中有文件SJT3.VBP及其窗体文件SJT3.FRM，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。

存盘时不得改变文件名和文件夹。

本题描述如下：在窗体上画一个名称为TEXT1的文本框，小四号字，再画两个名称分别为CH1和CH2，标题分别为"C 程序设计"和"VB程序设计"的复选框，小四号字，一个名称为C1，标题为"确定"的命令按钮。

编写适当的事件过程，要求程序运行后，如果只选中CH1，然后单击"确定"命令按钮，则在文本框中显示"学习C程序设计";如果只选中CH2，然后单击"确定"命令按钮，则在文本框中显示"学习VB程序设计"；如果同时选中CH1和CH2，然后单击"确定"命令按钮，则在文本框中显示"学习C程序设计VB程序设计"。

VB模拟试题试及参考答案

VB模拟试题试及参考答案2016VB模拟题第⼀套单项选择题得分：1: 计算机的基本⼯作原理是__C______。

A. 可靠性与可⽤性B. ⾼速度与⾼精度C. 存储程序与程序控制D. 具有记忆功能2: 计算机中数据的表⽰形式是____A____。

A. ⼆进制B. ⼋进制C. ⼗进制D. ⼗六进制3: 电⼦邮件标识中带有⼀个“别针”，表⽰该邮件_____C_。

A. 设有优先级B. 带有标记C. 带有附件D. 可以转发4: 安装防⽕墙的主要⽬的是__C______。

A. 提⾼⽹络的运⾏效率B. 对⽹络信息进⾏加密C. 保护内⽹不被⾮法⼊侵D. 防⽌计算机数据丢失5: 淘宝⽹的⽹上购物属于计算机现代应⽤领域中的___C___。

A. 计算机辅助系统B. 电⼦政务C. 电⼦商务D. 办公⾃动化6: Visual Basic中标准模块⽂件的扩展名是____D__。

A. FrmB. VbpC. ClsD. Bas7: 启动程序时，系统⾃动执⾏启动窗体的___A___事件过程。

A. LoadB. UnloadC. ClickD. DblClick8: 下列_____C_⽅法可以显⽰窗体。

A. HideB. UnLoadC. ShowD. WindowState9: 已知a="123456789"，则表达式Mid(a, 5, 2) + Left(a, 2)的值是_____B___。

A. "5689"B. "5612"C. 68D. 125610: 下列不正确的赋值语句是__C____。

A. x=30-yB. y=x+30C. x+y=30D. y=x\311: 下列选项中，合法的变量名是_B______ 。

A. 1_xB. x_1C. x-1D. x 112: 下列选项不是Visual Basic基本数据类型的是______A__。

A. CharB. StringC. BooleanD. Double13: 在下列表达式中，正确的⽇期型常量是__D____ 。

VB练习题(含答案),推荐文档

考试题型一、单项选择题（每题1分，共35分）二、判断题（每题1分，共15分；正确的打"，错误的打x。

）三、填空题（每空1分，共10分）四、读程序写出结果（每题5分，共20分）五、程序填空（每空2分，共10分）六、编程题（每小题10分，共10分）2006年4月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计11. 以下关于Visual Basic特点的叙述中，错误的是A）Visual Basic是采用事件驱动编程机制的语言B）Visual Basic程序既可以编译运行，也可以解释运行C）构成Visual Basic程序的多个过程没有固定的执行顺序D）Visual Basic程序不是结构化程序，不具备结构化程序的三种基本结构12. 以下叙述中，错误的是A）一个Visual Basic应用程序可以含有多个标准模块文件B）一个Visual Basic工程可以含有多个窗体文件D）标准模块文件的扩展名是.bas13. 以下叙述中，错误的是A）在Visual Basic中，对象所能响应的事件是由系统定义的C）Visual Basic中允许不同对象使用相同名称的方法D）Visual Basic中的对象具有自己的属性和方法14. 设有如下语句：Dim a,b As In tegerC= "VisualBasic ”D=#7/20/2005#以下关于这段代码的叙述中，错误的是A）a被定义为Integer类型变量B） b被定义为Integer类型变量C） c中的数据是字符串D）d中的数据是日期类型15. 以下能从字符串"VisualBasic "中直接取出子字符串"Basic"的函数是A）Left |B） Mid | C） Stri ng D） In str16. 设a=4,b=3,c=2,d=1下列表达式的值是a>b+1 Or c<d And b Mod cA) True B) 1 C) -1 D) 017.以下可以作为Visual Basic变量名的是A) A#A B)counstA C) 3A D) ?AA18.设x-4,y-6,则以下不能在窗体上显示出A=10 的语句是C） Print “ A= ” +Str（x+y）D） Print “ A= ” & x+y19. 假定有如下的命令按钮（名称为Comma ndl）事件过程：Private Sub Comma nd1_Click（）X=lnputBox（输入：：“'输入整数”）MsgBox ”输入的数据是：”，，”输入数据：”+XEnd Sub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是A）x的值是数值10B）输入对话框的标题是“输入整数“C）信息框的标题是“输入数据：10 “D）信息框中显示的是“输入的数据是：“20. 在窗体上画1个命令按钮（名称为Command1 ）和1个文本框（名称为Text1），然后编写如下事件过程：Private Sub Comma nd1_Click()X=Val(Text1.Text)Select Case xCase 1,3Y=x*xCase Is>=10,Is<=-10Y=xCase -10 To 10Y=-xEnd SelectEnd Sub程序运行后，在文本框中输入3,然后单击命令按钮，则以下叙述中正确的是A) 执行Y=x*x B)执行Y=-xC)先执行Y=x*x，再执行Y=-x D)程序出错21. 设有命令按钮Comma nd1的单击事件过程，代码如下：Private Sub Comma nd1_Click()Dim a(30) As In tegerFor i=1 to 30a(i)=I nt(R nd*100)NextFor Each arritem In aIf arrItem Mod 7=0 Then Print arrItem;If arrItem >90 Then Exit ForNextEnd Sub对于该事件过程，以下程序中错误的是B) 语句For Each arrltem In a 有语法错误C) ........................................... If arrltem Mod 7=0 语句的功能是输出数组中能够被........................... 7整除的数D) ................................ If arrItem >90 语句的作用是当数组元素的值大于....................... 90时退出For循环22. 设有命令按钮Comma nd1的单击事件过程，代码如下：Private Sub Comma nd1_Click()Dim a(3,3) As In tegerFor i=1 to 3For j=1 to 3a(i,j)=i*j+iNext jNext iSum=0For i=1 to 3Sum=Sum+a(i,4-i)Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是A) 20 B) 7 | C) 16 ~| D) 1723. 在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Comma nd1_Click()a=0For i=1 to 2For j=1 to 4If j Mod 2<>0 Thena=a-1End Ifa=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是A)0 B) 2 C) 3 | D)424. 窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1,程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示。

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

程序之外的是注释说明，程序本身不需要。

第一套VB'完善程序代码实现当单击"输入并排序"按钮后，从键盘输入5个数，保存在数组中，并显示在窗体上，然后把这5'个数按照从小到大的顺序排列并显示在窗体上。