vb第三章答案

合集下载

vb第三章课后习题答案

习题一、单项选择题1、设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是（）A.PrintA=x+yB. Print"A="；x+yC. Print"A="+Str(x+y)D. Print"A="&x+y2、假定有如下的命令按钮(名称为Command1)事件过程：PrivateSubCommand1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEndSub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是（）A. x的值是数值10B. 输入对话框的标题是“输入整数”C. 信息框的标题是“输入数据：10”D. 信息框中显示的是“输入的数据是：”3、有如下程序a=3;b=4PRINT b＜aEND运行后，输出的结果是( )A.4＞3B.-1C.0D.显示出错信息4、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。

程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。

以下能实现上述操作的事件过程是（）A. Private Sub Text1_Change()B. Private Sub Command1_Click()Command1.Caption=”计算机等级考试”Caption=”计算机等级考试”End Sub End SubC. Private Sub Form1_Click()D. Private Sub Command1_Click()Text1.Caption=”计算机等级考试”Text1.Text=”计算机等级考试”End Sub End Sub5、假定有如下的窗体事件过程：Private Sub Form_Click()a$ = "Microsoft Visual Basic"b$ = Right(a$, 5)c = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是（）A. Microsoft VisualB. MicrosoftC. BasicD. 56、窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3=Text1+Text2后，则在Text3中显示（）A. 434B. 45678C. 溢出D. 语法错误7、执行下面的程序，单击窗体，则在窗体上显示的是（）。

VB课后练习答案.doc

VB课后练习答案P12第一章课后练习答案:一、选择题二、填空题第二章（P39）选择题答案：填空题答案：1.Cmdl, Click2.Text 1.Text二"Hello"P64第三章课后练习答案一、选择题二、填空题1.(Y Mod 4=0 And Y Mod 10000) Or Y Mod 400=0 2.a<>0 And b*2-4*a*c>=0 3.X Mod 5=0 And X Mod 2=0 或 Tnt(x/5)=X/5 And Int(X/2)=X/2 4. 注意：返回的均是字符型。

第四章课后答案：P79一、选择题答案为：$$41.50010二、填空题三、程序设计题（提示）1、鸡的头数为x,兔的头数为y,则可列方程式:\x-\- y = h （兀 * 2 + y * 4 =于求得x, y 的值再在窗体上输出结果。

2、利用Format 格式函数，再通过窗体的Print 将格式化后的信息输出到窗体上。

3、厶员I 的周长=2加" $岡的面积=加25、通过Inputbox 函数或用文本框输入三边和圆的半径a,b,c, r,利用公式：. a + b + cn 二 ---------2 S 三角形面积=Jh （h - - b ）（h - c ）P97第五章课后练习答案:第9题| D一、选择题答案D 改为:30二、填空题第］题Y Mod 4二0 And Y Mod 100二0 Or Y Mod 400二0 第2题笫3题笫4题Private Sub Command l_Click()X=Val(Textl.Text)Select Case XCase Is>200. Isv-10()Print “xv 100 Or x>200"Case ls<=0Y=l()()-XCase Isv二100Y=100+XCase Is<=200Y=400End SelectText2.Text=yEnd Sub三、程序设计题(提示)1、判断条件：假设一个整数为xX Mod 3=0 Or x Mod 5=0 或x/3=x\3 Or x/5=x\52、选项按钮的知识点在P182,利用该控件的Wlue属性判断是否选中该项。

vb课后思考题答案

第三章思考题答案及相关内容 1．Visual Basic 提供了哪些标准数据类型?声明类型时，其类型关键字分别是什么?其类型符又是什么? 表 1.3.1 Visual Basic 的数据类型数据类型字节型逻辑型整型长整型单精度型关键字 Byte Boolean Integer Long Single 类型符无无％ & ! 前缀 byt bin int lng sng 占字节数 1 2 2 4 4 0～255 True 与 False -32768 到 32767 -2，147，483，648～2，147，483，647 负数：-3.402823E38～-1.401298E-45 正数： 1.401298E-45～3.402823E38 双精度型 Double # dbl 8 负数：-1.79769313486232D308～ -4.94065645841247D-324 正数：4.94065645841247D-324～ 1.79769313486232D308 货币型 Currency @ cur 8 -922，337，203，685，477.5808～922，337， 203，685，477.5807 日期型字符型对象型变体型 Date(time) String Object Variant 无 $ 无无 dtm str obj vnt 8 字符串长有关 4 根据需要分配 01，01,100～12，31，9999 0～65535 个字符任何对象引用范围2．哪种数据类型需要的内存容量最少，且可存储诸如 3.2345 这样的值? 答：单精度数据类型。

3．在 Form1 窗体通用声明部分声明的变量，可否在 Form2 窗体中的过程被访问? 4．为了使某变量在所有的窗体中都能使用，应在何处声明该变量? 5．在同一模块、不同过程中声明的相同变量名，两者是否表示同一个变量?有没有联系? 表 1.3.22 作用范围不同作用范围的 2 种过程定义及调用规则模窗体过程名前加 Private 例：Private Sub Mysubl(形参表) 能能块级标准模块窗体过程名前加 Public 或缺省例：[Public] Sub My2(形参表) 能能，但必须在过程不能不能 Call 窗体能能，但过程名必须唯一，例 :Call 标准模块全局级标准模块定义方式能否被本模块其他过程调用能否被本应用程序其他模块调用名前加窗体名，例：否则要加标准模块名，名.My2(实参表) 名.My2(实参表)局部变量：指在过程内用 dim 语句声明的变量(或不加声明直接使用的变量)，只能在本过程中使用的变量，别的过程不可访问。

VB第3章习题答案

三、编程题--5
MsgBox "显示重试和取消按钮", 5 + 64 + 256, "消息框“ 或者 MsgBox "显示重试和取消按钮", 325, "消息框“ 或者 MsgBox "显示重试和取消按钮", vbRetryCancel + vbInformation + vbDefaultButton2, "消息框"
第三章习题答案
一. 选择题 • 1—5： C • 6—10： A • 11—13：A
A A D B C B A C C D
二. 填空题
• • • • • • • • • 1. 工程 2. 设计运行 3. 系统用户 4. True 5. Text 6. True 7. Command1.Enabled=True 8. Default 9. Prompt 10. 先后顺序 11. 紧凑格式
三、编程题--4
• • • • • • • Private Sub Command1_Click() Dim n1!, n2!, n3! n1 = Val(InputBox("输入n1:")) n2 = Val(InputBox("输入n2:")) n3 = Val(InputBox("输入n3:")) Label1.Caption = (n1 + n2 + n3) / 3 End Sub
三、编程题--1
Private Sub Command1_Click() • Print "Visual Basic容易学吗?" • End Sub
• Private Sub Command2_Click() • Print "用心学就容易!&• • • • • • • • • • Private Sub Command1_Click() Dim yw!, sx!, yy! pj!, fc! yw = Val(InputBox("输入语文成绩")) sx = Val(InputBox("输入数学成绩")) yy = Val(InputBox("输入英语成绩")) pj = (yw+ sx+yy) / 3 fc = (yw-pj)^2 + (sx-pj)^2 + (yy-pj)^2 Print "平均成绩：", pj Print "方差：", fc End Sub

VB教程课后习题的答案及解析

=第二章标准控件和属性1．下列可以激活属性窗口的操作是（ D ）A）用鼠标双击窗体的任何部位 B）执行‘工程’菜单中的‘属性窗口’命令 C）按Ctrl+F4键 D）按F4键2．确定一个控件在窗体上的位置的属性是（ D ）A）Width或Height B）Width和Height C）Top或Left D）Top和Left3．确定一个窗体或控件的大小的属性是（ B ）A）Width或Height B）Width和Height C）Top或Left D）Top和Left4．在Visual Basic中，所有标准控件都具有的属性是( B )。

【2013年9月考试真题】A) Caption B) Name C) Text D) Value参考答案：B【解析】VB标准控件中不同控件具有不同属性，有的相同有的不同，但都具有Name属性。

故选B。

5．为了让计时器控件每隔10秒产生了一个Timer事件，应把Interval属性设置为（ B ）A) 1000 B) 10000 C) 10 D) 1006．下面关于单选按钮和复选框的叙述中正确的是（ D ）A) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为2B) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为TrueC) 单选按钮被选中则它的Value属性为1；复选框被选中则它的Value属性为1D) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为17．将文本框的ScrollBar设置为2，文本框中却没有垂直滚动条，其原因为（ B ）A) 文本框的Locked属性值为True B) 文本框的MultiLine属性值为FalseC) 文本框的MultiLine属性值为True D) 文本框中没有内容第三章简单程序设计语句1.在面向对象的程序设计中，可被对象识别的动作称为( 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练习题第三章VB第三章练习一、选择题1．关于Visual Basic程序的说法不正确的是________。

A) 一行可以写多条语句，语句之间用“:”隔开B) 一条语句可以写在多行上，用“空格”加“_”作为续行标志C) 程序中的大小写字母不区分D) 变量在使用之前必须先定义类型2．Visual Basic的一条语句可以写在多行，但要用续行符，续行符应为________。

A) 一个空格加一个下划字符(_) B) 一个下划字符(_)C) 直接回车 D) 一个空格加一个连字符(-)3．Visual Basic的一行可以写多条语句，语句之间用________隔开。

A) 逗号 B) 分号 C) 顿号_ D) 冒号4．下列说法不正确的是 ________。

A) 注释语句是非执行语句，仅对程序的有关内容其注释作用，它不被解释和编译B) 注释语句可以作为代码中的一行C) 注释语句不可以放在其他语句的后面D) 代码中加入注释语句的目的是提高程序的可读性5．下列说法不正确的是________。

A) 调试程序时，使用解释运行方式比较方便B) 解释运行方式比编译运行方式运行应用程序的速度慢C) 解释运行方式必须在Visual Basic集成环境下使用D) 解释运行方式和编译运行方式都必须在Visual Basic集成环境下使用6．一般情况下，用Visual Basic创建应用程序分为4个主要步骤。

以下操作顺序正确的是________。

① 创建应用程序的界面② 编写程序代码，建立事件过程③ 设置对象属性④ 调试运行程序，生成可执行文件A) ①②③④ B)①③②④ C) ②①④③ D) ②③①④7．新建工程的快捷键是________ 。

A) Crtl+A B)Crtl+D C) Crtl+N D) Crtl+E8．工程文件的扩展名是________。

A) frm B) frx C) cls D)vbp9．假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为"Visual Basic Test"的语句为________。

第三章VB测试题

1、以下叙述中正确的是。

窗体的Name属性指定窗体的名称，用来标识一个窗体A.窗体的Name属性的值是显示在窗体标题栏中的文本B.可以在运行期间改变对象的Name属性的值C.对象的Name属性值可以为空D.2、以下关于窗体的描述中，错误的是。

执行Unload Form1语句后，窗体Form1消失，但仍在内存中A.窗体的Load 事件在加载窗体时发生B.当窗体的Enabled 属性为False时，通过鼠标和键盘对窗体的操作都被禁止C.窗体的Height、Width属性用于设置窗体的高和宽D.3、以下能够触发文本框Change事件的操作是。

文本框失去焦点A.文本框获得焦点B.设置文本框的焦点C.改变文本框的内容D.4、在窗体上有一个文本框控件，名称为Txttime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。

程序为：Private Sub Timer1_ _____（）Txttime.Text=TimeEnd Sub在下划线上应填入的内容是。

EnabledA.VisibleB.IntervalC.TimerD.5. 单选题：（1.0分）在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1,标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。

要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是。

Option1.Value=True：Check1.Value=FalseA.Option1.Value=True：Check1.Value=TrueB.Option2.Value=False：Check1.Value=TrueC.Option1.Value=True：Check1.Value=1D.6、为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是。

VB第3章复习资料

第3章补充资料习题解答i •结构化程序的三种基本结构是什么？答：顺序结构，选择结构和循环结构。

2•指出下列赋值语句中错误(包括运行时产生的错误) 答：(1) 10x=Si n(x)+y '10x 是非法变量名 (2) c=3+Sqr(-3) '待求平方根的数为负数 (3) c+x+y=c*y'赋值符号的左边是表达式 (4) x=Si n( x)/(20 Mod 2)'分母为零3. Msgbox 函数与InputBox 函数之间有什么区别？各自获得什么值？答：两个函数的共同之处是均显示对话框。

区别：InputBox 函数等待用户在文本框中输入数据，获得的是输入的字符串数据； Msgbox 函数等待用户按下按钮，获得的是表示按钮的整数值，以决定程序的流向。

答：使用Format 函数，具体如下:Print Format (x, “ 0.0 ") Print Format (y , “0.00 “) Print Format (z , “ 0.000 “)5.语句If 表达式Then,中的表达式可以是算术、字符、关系逻辑表达式中的哪些?答：可以是算术、关系、逻辑表达式。

按照一般语言规定，If 后应该是关系表达式、逻辑表达式，根据其结果逻辑值是 True或Flase 决定是否执行Then 后面的句子。

而在 VB 中还可以是算术表达式，因为 VB 逻辑判断中，对于非0值就作为True ，而0值作为Flase ，因此如下分段函数sin x/ x, 0，可用VB 语句表示为:If x The n而不必写成If x y=Sin (x) /x Else y=0 <>0 Theny = Sin (x)/ x Else y =06.指出下列语句中的错误: (1) 答: If x > y Then Print x“》”应写成“> =”(2) 答: If 10 < x < 20 Then x=x+20VB 中表示x 的范围“ 10< x < 20”应写成“ 10< x And x < 20”7.按照下列条件，写出相应的条件语句：(1)当字符变量中第三个字符是“ C ”时，利用Msgbox 显示“ Yes ”，否则显示“ No ”。

VB第三章课后习题答案(20210110133743)

、单项选择题1、设x=4,y=6,则以下不能在窗体上显示出“ A=10得语句就是（）A、PrintA=x+yB、Print"A=";x+yC、Prin t"A="+Str（x+y）D、Prin t"A=" &x+y2、假定有如下得命令按钮（名称为mand1）事件过程：PrivateSubma nd1_Click（）x=lnputBox（"输入:","输入整数"）MsgBox"输入得数据就是：”，输入数据:"+xEndSub程序运行后，单击命令按钮，如果从键盘上输入整数10,则以下叙述中错误得就是（）A、x得值就是数值10B、输入对话框得标题就是输入整数”C、信息框得标题就是输入数据:10 ”D、信息框中显示得就是输入得数据就是:”3、有如下程序a=3;b=4PRINT b v aEND运行后，输出得结果就是A、4> 3( )B、-1C、0D、显示出错信息4、在窗体（名称为Form1）上画一个名称为Text1得文本框与一个名称为mand1得命令按钮，然后编写一个事件过程。

程序运行以后，如果在文本框中输入一个字符，则把命令按钮得标题设置为“计算机等级考试”。

以下能实现上述操作得事件过程就是A、Private Sub Text1_Cha nge()B、Private Sub man d1_Click()mand1、Caption= ”计算机等级考试”Capti on= ”计算机等级考试”End Sub End SubC、Private Sub Form1_Click() D 、Private Sub mand1_Click()Text1 、Caption= ”计算机等级考试”Text1 、Text= ”计算机等级考试”End Sub End Sub5、假定有如下得窗体事件过程:Private Sub Form_Click()a$ = "Microsoft Visual Basic"b$ = Right(a$, 5)c = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后单击窗体,则在弹出得信息框中得标题栏中显示得信息就是( )A、Microsoft Visual B 、Microsoft C、Basic D 、56、窗体上放置了三个文本框,若在Text1 中输入456,在Text2 中输入78,在程序中执行了语句Text3=Text1+Text2 后,则在Text3 中显示( )A、434 B 、45678 C、溢出D、语法错误7、执行下面得程序,单击窗体,则在窗体上显示得就是( )。

VB教材课后习题答案

VB教材课后习题答案教材课后习题答案第1章一、选择题1 B 第2章一、选择题1 B 11 A二、填空题1. rem或’_ ：2. “” # #3. 5x2-3x-2sinA/34. 3214565. 300 三、操作题1、程序段：Private Sub Command1_Click() Dim x As Integer, y As Integer Dim s As Long, c As Long x = Text1.Text y = Text2.Texts = x * yc = (x + y) * 2Label3.Caption = \长方形的面积为\+ Str(s) Label4.Caption = \长方形的周长为\+ Str(c) End Sub3、程序段：Private Sub Command1_Click() Text1.Text = \第一\End SubPrivate Sub Command2_Click() Text1.Text = \第二\End Sub4、程序代码：Private Sub Text1_Change() Text1.MaxLength = 10 End Sub 5、程序代码：12 D3 B4 C5 B6 B7 D 2 C 12 B 3 B 13 A 4 C 14 A 5 B 6 C 7 A8 A9 A 10A Private Sub Text1_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text) End Sub第3章一、选择题1 2 D A 二、填空题1. False2. B -4*a*c else 三、操作题1．从键盘输入三个值，判断它们能否构成三角形的三个边。

如果能构成一个三角形，则计算三角形的面积。

Dim a As Integer, b As Long, c As Long, s As Single, p As Single a = Val(InputBox(\请输入一个值：\b = Val(InputBox(\请输入一个值：\c = Val(InputBox(\请输入一个值：\ If (a + b > c And a + c > b And b + c > a) Then p = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print a k = k + 1s = s + iIf k Mod 10 = 0 Then Print End If NextPrintPrint \～300间总共有\个素数，\和值为\运行结果：58．我国现有人口为13亿。

vb第三部分练习题参考答案

第三部分练习题参考答案及教科书习题参考答案一、本书练习题参考答案练习题一，参考答案一、答：合法的直接常量有： 1E1、”1234.5”、 -1123!、345.54#单精度数据有：1E1、-1123!双精度数据有： 345.54#日期型数据有：#2007/2/1#二、答：变量有： cj、n常量有： #11/12/2004#、12.345其中”120”是字符串型，True是布尔型，#11/12/2004#是日期型，12.345是浮点型。

三、答：合法的变量名有：x-123、变量名、Cosx。

四、答：（1）（-b+Sqr(b^2-4*a*c)）/(2*a)（2）1/(1/r1+1/r2+1/r3)（3）Sin(45/180*3.14159)+(Exp(10)+Log(10))/(Sqr(x+y+1))五、答：(1) exercise (2) erci (3) Exerci(4) 23.55 (5) -543.89 (6) 10六、答：(1) 2006-7-18 (2) 579789七、答：(1) 3.556 (2) 8练习题二，参考答案一、选择题1 D。

2 C。

解析：此题考查变量交换这一知识点，首先要将其中的一个变量赋值给中间变量，A 是错误的，B、D是交换时没有首先将变量赋值给中间变量，正确答案是C。

3 D。

解析：关于数值型变量的交换方法除了可以使用2题的规则外，还可以使用先将两数求和赋值给第一个变量,然后用第一个变量减去第二个变量赋值给第二个变量, 然后用第一个变量减去第二个变量赋值给第一个变量所以只有答案D是正确的。

4 B。

解析：InputBox()函数能接收用户输入的数据，并能返回用户输入的信息，不能用于输出信息。

InputBox()函数中的Prompt参数是在对话框中显示提示信息，这种提示信息是由用户确定的，不能把它当作输出信息的功能, 正确答案是B。

5 B。

解析：在默认的情况下，InputBox()函数的返回值是一个字符串，而不是变体类型。

VB课本习题答案第三章

第3章程序流程控制3．1 填空题1．设变量r 表示圆的半径,则计算圆的面积并赋给变量s使用的赋值语句为（ s=3.14159＊r＊r )。

2．给命令按钮Command2的Caption属性赋予字符串“退出”使用的赋值语句为（ Command2.Caption=＂退出＂）.3．为了求n的阶乘，要求用户输入n的值。

程序使用InputBox函数输入，要求对话框提示信息为“请输入一个求阶乘的数:”,标题为“求数的阶乘”,并且正确地把输入的信息转换为数值存放到变量n中，则使用的赋值语句为（ n=val（InputBox(＂请输入一个求阶乘的数：＂，＂求数的阶乘＂））。

４．如果使用MsgBox对话框显示提示信息“退出本系统?”，并显示“是（Yes)"和“否（No）”两个按钮,显示图标“？"号，指定第一个按钮为默认值以及标题为“提示信息",则调用MsgBox 函数的形式为( MsgBox（＂退出本系统？＂,4+32+0，＂提示信息＂））.５．如果使用MsgBox对话框显示提示信息“文件未找到！”,并显示“确定”按钮、图标“！"号和标题“文件查找"，则使用的MsgBox语句为（ MsgBox＂文件未找到＂,0+48+0,＂文件查找＂）。

６．要在当前窗体Form和立即窗口输出字符串“Visual BASIC 6。

0”使用的Print方法分别是（ Print “Visual BASIC 6.0”）和（ Debug。

Print “Visual BASIC 6。

0” ).７．使用Print方法时,若用逗号分隔, 则按( 标准）格式输出各表达式的值，若用分号分隔，则按( 紧凑 )格式输出各表达式的值.８．注释语句是一个( 非执行）语句，VB不对它们进行编译，对程序的执行结果没有任何影响。

９．判别变量i是否为偶数，若为偶数就把它显示出来。

使用单行结构条件语句为（ If i Mod 2=0 Then print x ）。

VB 课后习题参考答案

第1章习题参考答案一、思考题略二、选择题1. C2. B第2章习题参考答案一、判断题二、填空题1．窗体font2．不能在代码中设置 3． selstart 4． Locked5． TabIndex 、 0 6． vbModal 或 17． Activate 、 Deactivate 8．PictureBox 和 Frame -三、选择题第3章习题参考答案一、思考题1、double2、 xyC@abc ， 15eyd ， Is ， #END X8[P]3、变量有 (1) (4) (6) (8)，常量有 (2)字符串型 (3)逻辑型 (5)字符串型 (7)字符串型 (9)日期型 (10)实型 4、 fe d cb a++5、 (1) 26 (2) 3.75 (3) 36、写出下列Visual Basic 表达式的值：(1) False (2) True (3) True (4) False (5) True(6) True (7) False (8) False7、将下列命题用Visual Basic布尔表达式表示：(1) z>x and z>y (2) abs(a)<=abs(b+2) or a > b+2(3) p mod q=0 (4) x<-5 or x>-2 and x<2 or x>5(5) x<z and y>z or x>z and y<z (6) a<b and a mod 2=08、写出下列函数的值：(1) -4 (2) 换行符(3) –3 (4) -1 (5) hello(6) ello (7) 16 (8) “-459.65” (9) 5二、填空题1．整型、长整型、双精度型、双精度型2．(X mod 10)*10+X\103．sin(1/4*3.14)+sqr(x+2*exp(y))/abs(x-y)4．(a+b)/(c*d-sqr(1-a^2))5．x mod 5=0 or x mod 9=06．False7．-3 、 2 、-2 、 28．CDEF9．x>0 and y>0 or x<0 and y<0 或x*y>010．s>=”A” and s<=”Z” or s>=”a” and s<=”z”三、选择题四、编程题1、Private Sub Form_Click()Dim x%, Ten%, hundred%x = Val(Text1.Text)Ten = (x \ 10) Mod 10hundred = x \ 100Print "百位数是: " & hundredPrint "十位数是: " & TenEnd Sub2Private Sub Form_Click()Dim char As String * 1Form1.CurrentX = Rnd * Form1.ScaleWidthForm1.CurrentY = Rnd * Form1.ScaleHeightchar = Chr(Int(Rnd * 16) + 65)Print charEnd Sub第4章习题参考答案一、判断题二、选择题三、程序阅读写出下列各段程序执行后的输出结果。

VB1-3章_习题答案(课本习题)

VB习题答案（1-3章）习题一一、选择题1．C 2.C 3.A 4.C 5.C 6.C 7.B二、填空题1.学习版、专业版、企业版2.窗体界面3.Alt+F4三、简答题1．简述Visual Basic语言的特点。

Visual Basic是Windows操作平台下的可视化编程语言，它继承和发展了BASIC语言的基本功能，具有简单易学、功能强大等特点。

Visual Basic提供了可视化设计工具，以图形用户界面（GUI）为PC机用户提供了一个直观的工作环境。

支持面向对象的程序设计（OOP），采用事件驱动方式，提供对象的链接与嵌入（OLE）和访问数据库等功能。

2. Visual Basic 6.0的集成开发环境由哪些部分组成，各部分的主要功能是什么？1. 标题栏：用来显示打开的工程名称和系统的工作状态。

2. 菜单栏：菜单栏中包括“文件”、“编辑”、“视图”、“工程”、“格式”、“调试”、“运行”、“查询”、“图表”、“工具”、“外接程序”、“窗口”和“帮助”共有13个菜单项。

这是一组下拉式菜单，提供了设计、编辑、编译和调试应用程序所需要的绝大部分功能和命令。

3. 工具栏： Visual Basic 6.0提供了“编辑”、“标准”、“窗体编辑器”和“调试”4种工具栏。

工具栏上形象直观的排列着一些最常用的命令按钮，对应特定的常用操作命令。

4. 控件箱：控件箱提供了一组控件。

设计界面时，用户可以用鼠标双击控件箱中的控件，在窗体中画出该控件，或用鼠标单击控件箱中的控件，然后在窗体中拖动鼠标画出所需的控件。

5. 窗体设计器：窗体设计器是应用程序最终面向用户的窗口。

各种控件、图形、数据以及程序的运行结果都在窗体设计器窗体中显示出来。

6. 工程资源管理器：在工程资源管理器窗口中（图1-2），列出了应用程序的工程以及工程中的窗体和模块。

7. 属性窗口：属性窗口主要用来设置Visual Basic窗体及各控件的属性特征，属性窗口的主体部分分为左右两列，左边是控件的属性名列表，右边是控件的属性值列表。

VB作业第三章习题答案

本文由goodlak贡献亲亲资料网第3章程序流程控制3．1 填空题 1．设变量r 表示圆的半径，则计算圆的面积并赋给变量s使用的赋值语句为（ s=3.14159*r*r ）。

2 ．给命令按钮Command2 的 Caption 属性赋予字符串“退出”使用的赋值语句为（ Command2.Caption=＂退出＂）。

3．为了求n 的阶乘，要求用户输入n的值。

程序使用InputBox函数输入，要求对话框提示信息为“请输入一个求阶乘的数：”，标题为“求数的阶乘”，并且正确地把输入的信息转换为数值存放到变量n中，则使用的赋值语句为（ n=val（InputBox（＂请输入一个求阶乘的数：＂，＂求数的阶乘＂））。

４．如果使用MsgBox对话框显示提示信息“退出本系统？”，并显示“是（Yes）”和“否（No）”两个按钮，显示图标“？”号，指定第一个按钮为默认值以及标题为“提示信息”，则调用MsgBox 函数的形式为（ MsgBox（＂退出本系统? ＂，4+32+0，＂提示信息＂））。

５．如果使用MsgBox对话框显示提示信息“文件未找到！”，并显示“确定”按钮、图标“！”号和标题“文件查找”，则使用的MsgBox语句为（ MsgBox＂文件未找到＂，0+48+0，＂文件查找＂）。

６．要在当前窗体Form和立即窗口输出字符串“Visual BASIC 6.0”使用的Print方法分别是( Print “Visual BASIC 6.0” )和( Debug.Print “Visual BASIC 6.0” )。

７．使用Print方法时，若用逗号分隔，则按( 标准 )格式输出各表达式的值，若用分号分隔，则按( 紧凑 )格式输出各表达式的值。

８．注释语句是一个（非执行）语句，VB不对它们进行编译，对程序的执行结果没有任何影响。

９．判别变量i是否为偶数，若为偶数就把它显示出来。

使用单行结构条件语句为（ If i Mod 2=0 Then print x ）。

VB第三章课后习题答案

习题一、单项选择题1、设x=4,y=6,则以下不能在窗体上显示出“A=10”的语句就是( )A、PrintA=x+yB、Print"A=";x+yC、Print"A="+Str(x+y)D、Print"A="&x+y2、假定有如下的命令按钮(名称为Command1)事件过程:PrivateSubCommand1_Click()x=InputBox("输入:","输入整数")MsgBox"输入的数据就是:”,,”输入数据:"+xEndSub程序运行后,单击命令按钮,如果从键盘上输入整数10,则以下叙述中错误的就是( )A、x的值就是数值10B、输入对话框的标题就是“输入整数”C、信息框的标题就是“输入数据:10”D、信息框中显示的就是“输入的数据就是:”3、有如下程序a=3;b=4PRINT b＜aEND运行后,输出的结果就是( )A、4＞3B、-1C、0D、显示出错信息4、在窗体(名称为Form1)上画一个名称为Text1的文本框与一个名称为Command1的命令按钮,然后编写一个事件过程。

程序运行以后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。

以下能实现上述操作的事件过程就是( )A、Private Sub Text1_Change()B、Private Sub Command1_Click()Command1、Caption=”计算机等级考试”Caption=”计算机等级考试”End Sub End SubC、Private Sub Form1_Click()D、Private Sub Command1_Click()Text1、Caption=”计算机等级考试”Text1、Text=”计算机等级考试”End Sub End Sub5、假定有如下的窗体事件过程:Private Sub Form_Click()a$ = "Microsoft Visual Basic"b$ = Right(a$, 5)c = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后单击窗体,则在弹出的信息框中的标题栏中显示的信息就是( )A、Microsoft VisualB、MicrosoftC、BasicD、56、窗体上放置了三个文本框,若在Text1中输入456,在Text2中输入78,在程序中执行了语句Text3=Text1+Text2后,则在Text3中显示( )A、434B、45678C、溢出D、语法错误7、执行下面的程序,单击窗体,则在窗体上显示的就是( )。

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

第三章答案一．选择1-5 CABBC 6-10 CAAAA 11-15 DACDB16-20 CDDCB 21-25 BADDC 26-30 BCBDD31-35 DCBDA 36-40 BADBB41、D解析：InputBox()函数的功能是在一对话框来中显示提示,等待用户输入正文或按下按钮，并返回包含文本框内容的。

由于在对话框的文本框内输入了123，所以x得到的字符串就是123。

Text1.text的内容显然是456，在窗体上显示的内容为x+Text1.text，所以为123456。

42、A解析：共执行6次for语句：第1次：i=1,那么x=1,又因为i<=4,所以x=x+1=1+1=2；第2次：i=2，i<=4，所以x=x+1=2+1=3；第3次：i=3，i<=4，所以x=x+1=3+1=4；第4次：i=4，i<=4，所以x=x+1=4+1=5；第5次：i=5，i>4，所以x=x+2=5+2=7；第6次：i=6，i>4，所以x=x+2=7+2=9。

Print x，是输出x的值。

43、B解析：共执行4次for语旬,每次输出字符串c的一部分，第1次输出最后1个字符，第2次输出2个字符……Left(string,length)返回字符串string中从左边算起指定数量的字符。

Mid(string,start[,length])返回字符串string中从左边第a个字符起length个字符，若省略length 则返回字符串string中从左边第a个字符起至字符串末端的所有字符。

Right(string,length)返回字符串string中从右边算起指定数量的字符。

44、C解析：for循环由i=20 开始,每次循环后i减去2(增量为-2),直到i<1。

运算符“\”是用来对两个数作除法并返回一个整数。

程序执行过程如下:i=20 x=x+i\5=0+20\5=0+4=4i=18 x=x+i\5=4+18\5=4+3=7i=16 x=x+i\5=7+16\5=7+3=10i=14 x=x+i\5=10+14\5=10+2=12……i=2 x=x+i\5=18+2\5=18+0=1845、D解析：VB中,若一行太长时，可将其分成几行来写，在各分行后加空格和下划线“＿”以表示下面一行和本行属同一行语旬。

VB中，&可将两个字符串连接成一个字符串。

InputBox()函数的功能是在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的。

IIf()函数根据表达式的值,来返回两部分中的其中一个。

语法：IIf(exp,truepart,falsepart),expr是必要参数。

用来判断真伪的表达式。

truepart是必要参数。

如果expr为True，则返回这部分的值或表达式。

falsepart是必要参数。

如果expr为False，则返回这部分的值或表达式。

46、D解析：在10次输入中：第1次，d=1，d>0，c=4，d<c;第2次，d=2，d>0，c=4，d<c;第3次，d=3，d>0，c=4，d<c;第4次，d=4，d>0，c=4，d=c;第5次，d=5，d>0，c=4，d>c, c=c+1=4+1=5;第六次，d=6，d>0，c=5，d>c, c=c+1=5+1=6;第七次，d=7，d>0，c=6，d>c, c=c+1=6+1=7;第八次，d=8，d>0，c=7，d>c, c=c+1=7+1=8;第9次，d=9，d>0，c=8，d>c, c=c+1=8+1=9;第10次，d=0，退出Do Whi1e循环。

所以,c+d=9+0=9。

47、A解析：过程Fun(a() As integer，x Asinteger的作用是将数组a中的前5个元素的值加到x上面。

在Command1＿C1ick( )定义了数组arr[5]并赋值为｛2,4,6,8,10｝,定义了整数n初值为0(缺省)。

然后调用Fun函数将arr的5个元素加到n上,即n=0+2+4+6+8+10=30。

最后将n转换成字符串赋值给Text1.text。

48、C评析：本题考查的是Rnd函数和Int函数。

Rnd函数返回小于1但大于或等于0的值，而Int返回参数的整数部分。

由于b-a=5，所以(b - a) * Rnd + a返回的是大于等于5，小于10的数，再使用一下Int函数，得到的最大值为9，最小值为5，再加1后，最大值就是10，最小值就是6。

49、C评析：本题主要考查的是Msgbox函数。

Msgbox函数一共有5个参数：第1个参数是显示在对话框上的消息；第2个参数是值的总和，用于指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等；第3个参数在对话框标题栏中显示的字符串表达式；第4个参数是用来向对话框提供上下文相关帮助的帮助文件；第5个参数是由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。

题目中问的是标题栏上显示的内容，也就是第3个参数的值，而第3个参数是b$，它的值是hardware。

50、A评析："+"是加号运算符，如果"+"加号两边的表达式都是String型，则"+"起连接作用，InputBox返回的是一个字符型。

所以本题是做字符串连接，故答案是108。

51、D评析：Do While…Loop是先判断条件表达式的值是否为True，如果为True，则执行循环体，如果为False，则执行Loop后面的语句。

Do…Loop Until是先执行循环体，再判断条件表达式，如果表达式的值为True，则执行Loop后面的语句，如果为False，则继续执行循环体。

而Exit Do则是强行退出循环。

本题中，当Counter = 10时，强行退出Do While循环，而由于此时Check = False，使得Until的条件为True，结束外层循环。

所以最终Counter = 10。

52、D评析：本题也是通过一个For循环来给数组赋值。

由a1(i,j)=i+j可知，a1(3,3)=3+3=6，而由a2(i,j)=a1(i,j)+i+j可知a2(3,3)=a1(3,3)+3+3=6+3+3=12。

评析：语句Chr(Asc("A") + (i - 1))的作用是将字符A的ASCII码值加上循环变量的值减1，求出此ASCII码对应的字符。

将计算出的字符赋值给数组arr的第i个元素。

循环结束后，arr的5个元素分别为字符A、B、C、D、E。

Print方法输出项的最后用分号结束，使得输出不换行。

54、B评析：Mid(s,index,length)用来从字符串s中的第index字符开始连续取出length个字符。

对于本题，可以用Mid("VisualBasic",7,5)就可以取出字符串"Basic"。

55、D评析：在内层循环中，在奇数次执行时，a的值不变，偶数次执行时，a的值加1。

每执行一轮外层循环，内层循环中的语句将要执行4次，即a的值要加2，一共执行了两次内层循环语句，故a的值要加4，而初始时a的值为0，故最后输出的a的值为4。

56、D评析：函数f的作用是将x的值加3（由于Vb中默认的参数传递方式为ByRef，故对形参的改变将影响到实参），同时将该值作为函数的结果返回。

由于开始时x的值为2，执行f(x)后，x的值为5，f(x)的结果亦为5。

故最后输出的结果应为a(10)，而在for循环中a(10)=8+10=18。

57、D评析：分析程序可知，函数f采用辗转相除法计算两个数的最大公约数，由于题面中输入的两个数是36和24，它们的最大公约数为12。

58、B评析：函数IIF(expr,val1,val2)与IF语句相似，当布尔表达式expr为True时，则选择val1的值，否则选择val2的值。

59、D评析：程序共有两层循环，当外层循环执行第一次时，j从1开始执行循环，当j=11时，结束循环，此时a=11，b=20；当外层循环执行第二次时，b的初始值被赋予0，而a的初始值却为11，j依然从1开始执行循环，当j=11时，结束循环，此时a=22，b=20，依此类推，当外层循环执行第十次时，此时a=110，b=20。

60、D评析：程序共有两层循环，每执行完一次内循环，则打印换行，当外层循环执行第一次时，a(i,j)=(i-1)*3+j相当于a(1,j)=j，由此判断选项A，D可能正确，当外层循环执行第二次时，a(i,j)=(i-1)*3+j，相当于a(2,j)=3+j，由此可判断选项D为正确答案。

61、B评析：程序共有一层循环，当循环执行第一次时，B(3-k)=A(k+1)，即B(3)=A(1)=2；当循环执行第二次时，B(2)=A(2)=4；当循环执行第三次时，B(1)=A(3)=6。

此时结束循环，执行Print B(k)，即Print B(3)，故输出结果为2。

62、C评析：Mid(字符串,p,n)：从第p个字符开始，向后截取n个字符。

p和n都是算术表达式。

"&"：字符串连接运算符，将两个字符串按顺序连接起来。

UCase(字符串)：将字符串所有的字母都转换成大写字符。

Len(字符串)：返回字符串的长度。

分析程序：当Fun过程用语句Fun(S1)调用后，S1的值"abcdef"被赋给xStr，执行第一次循环时Mid(xStr,i,1) 相当于Mid(xStr,1,1)，Mid(xStr,strL-i+1,1)相当于Mid(xStr,6,1)，此时tStr=AF，由此判断选项C正确。

评析：Dim语句形式为：Dim 变量名[As 类型][As 类型]：方括号部分表示该部分可以缺省。

缺省“As 类型”部分，则所创建的变量默认为变体类型。

为方便定义，可在变量名后加类型符来代替“As 类型”。

此时变量名与类型符之间不能有空格。

一条Dim语句可以同时定义多个变量，但每个变量必须有自己的类型声明，类型声明不能共用，所以选项A，C 是错误的。

$是定义字符型变量的关键字，选项B定义的是1个整型变量和2个字符串变量，不符合要求。

64、C评析：While…Wend是先判断条件表达式的值是否为True，如果为True，则执行循环体，如果为False，则执行Wend后面的语句。

Do While…Loop是先判断条件表达式的值是否为True，如果为True，则执行循环体，如果为False，则执行Loop后面的语句。