vb题库第三章要点
第三章 有答案VB语言基础
第三章VB语言基础一、单选题1．设a=5,b=4,c=3,d=2，下列表达式的值是____B_____。
3>2*b Or a=c And b<>c Or c>dA）1 B）True C）False D）22．设a=”MicrosoftVisualBasic”，则以下使变量b的值为”VisualBasic”的语句是___B______。
A）b=Left(a,10) B）b=Mid(a,10)C）b=Right(a,10) D）b=Mid(a,11,10)3．假定有如下的窗体事件过程：Private Sub Form_Click()a$ = "Microsoft Visual Basic"b$ = Right(a$, 5)c = Mid(a$, 1, 9)MsgBox a$, 34, b$End Sub程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是___C______。
A）Microsoft Visual B）Microsoft C）Basic D）344．在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox("请输入一个整数")Print x + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是___D______。
A）123 B）456 C）579 D）1234565．可以同时删除字符串前导和尾部空白的函数是___C______。
A）Ltrim B）Rtrim C）Trim D）Mid6．\、/、Mod、*四个算术运算符中，优先级别最低的是___C______。
A）\ B）/ C）Mod D）*7．在VisuaIBasic中，日期／时间型常量要用____B_____括起来。
vb各章练习题
第一章选择题1. VB是一种面向对象的可视化程序设计语言,采取了（A ）的编程机制。
（A）事件驱动(B) 按过程顺序执行（C）从主程序开始执行(D) 按模块顺序执行2. 以下不属于VB的工作模式的是（c ）模式。
(A) 运行(B)设计(C) 编译(D)中断3. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是（ C ）。
（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口4. 保存新建工程时，默认的路径是（B ）。
（A）My Documents （B）VB98 （C）\ （D）Windows5. 将调试通过的VB工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其他机器上不能运行的主要原因是（ A ）。
（A）运行的机器上无VB系统（B）缺少.frm窗体文件（C）该可执行文件有病毒（D）以上原因都不对6. 集成开发环境可以（D ）。
（A）编辑、调试、运行程序，但不能生成可执行程序（B）编辑、调试、生成可执行程序，但不能运行程序（C）编辑、生成可执行程序、运行程序，但不能调试（D）编辑、调试、运行程序，也能生成可执行程序7. 集成环境的主窗口中不包含（B ）。
（A）菜单栏（B）状态栏（C）标题栏（D）工具栏8. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（C ）。
（A）工程资源管理器窗口（B）工具箱窗口（C）代码窗口（D）属性窗口9. 下面四个选项中，不是工具箱的标准控件的是（C ）。
（A）滚动条（B）定时器（C）多媒体（D）框架10. 的（C ）版本，可供专业编程人员开发功能强大的组内分布式应用程序。
（A）初级版（B）学习版（C）企业版（D）专业版11. 英文缩写“OOP”的含义是（A ）。
（A）面向对象程序设计（B）结构化程序设计语言（C）事件驱动的编程机制（D）可视化程序设计12. 不能打开代码窗口的操作是（B ）。
VB第3章 复习资料
第3章 补充资料习题解答1．结构化程序的三种基本结构是什么？答：顺序结构，选择结构和循环结构。
2．指出下列赋值语句中错误（包括运行时产生的错误）。
答：（1）10x=Sin(x)+y ′10x 是非法变量名（2）c=3+Sqr(-3) ′待求平方根的数为负数（3）c+x+y=c*y ′赋值符号的左边是表达式（4）x=Sin(x)/(20 Mod 2) ′分母为零3．Msgbox 函数与InputBox 函数之间有什么区别？各自获得什么值？答：两个函数的共同之处是均显示对话框。
区别：InputBox 函数等待用户在文本框中输入数据，获得的是输入的字符串数据；Msgbox 函数等待用户按下按钮，获得的是表示按钮的整数值，以决定程序的流向。
4．要使单精度变量x ，y ，z 分别保留1位，2位，3位小数，并在窗体显示，应使用什么函数？如何编写对应的Print 方法？答：使用Format 函数，具体如下：Print Format （x, “0.0“） ′显示1位小数Print Format （y ，“0.00“） ′显示2位小数Print Format （z ，“0.000“） ′显示3位小数5．语句If 表达式The n …中的表达式可以是算术﹑字符﹑关系逻辑表达式中的哪些？ 答：可以是算术﹑关系﹑逻辑表达式。
按照一般语言规定，If 后应该是关系表达式﹑逻辑表达式，根据其结果逻辑值是True 或Flase 决定是否执行Then 后面的句子。
而在VB 中还可以是算术表达式，因为VB 逻辑判断中，对于非0值就作为True ，而0值作为Flase ，因此如下分段函数⎩⎨⎧=≠=000/sin y x x x x ，， 可用VB 语句表示为：If x Then y=Sin （x ）/x Else y=0而不必写成 If x ＜＞０ Then y ＝Sin （x ）／x Else y ＝０６.指出下列语句中的错误：（1）If x ≥y Then Print x答：“≥”应写成“＞＝”（2）If 10＜x ＜20 Then x=x+20答：VB 中表示x 的范围“10＜x ＜20”应写成“10＜x And x ＜20”7．按照下列条件，写出相应的条件语句：（1）当字符变量中第三个字符是“C ”时，利用Msgbox 显示“Yes ”，否则显示“No ”。
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操作题题库(含答案)
VB填空题:1、Visual Basic 6.0分为3种版本，这3种版本是______、______和______。
其中，最完整的是______。
答案：1：学习版#专业版#企业版2：学习版#专业版#企业版3：学习版#专业版#企业版4：企业版知识点：VB知识点/第一章2、可以通过______快捷键或______快捷键退出Visual Basic。
答案：1：Alt+F4#Alt+Q2：Alt+F4#Alt+Q知识点：VB知识点/第一章3、传统的程序设计语言主要是面向______的，而现在涌现出的许多可视化程序设计语言，如Visual Basic主要是面向______进行程序设计的。
答案：1：过程#问题2：对象知识点：VB知识点/第一章4、在面向对象程序设计中，对象是由______和______组成的概念。
答案：1：代码#数据2：代码#数据知识点：VB知识点/第一章5、Visual Basic开发环境中，在标题栏的方括号内能指出目前正处在______、______状态或______状态。
答案：1：设计#中断#运行#设计状态#中断状态#运行状态2：设计#中断#运行#设计状态#中断状态#运行状态3：设计#中断#运行#设计状态#中断状态#运行状态知识点：VB知识点/第一章6、在设计模式下，工程中的某个窗体没有出现，可通过双击______窗口中的相应窗体名来使之出现。
答案：1：工程资源管理器知识点：VB知识点/第一章7、Visual Basic开发环境中，当属性窗口在界面上末出现时，可使用______菜单中的______选项让它显示出来。
答案：1：视图2：属性窗口知识点：VB知识点/第一章8、在属性窗口中，属性显示方式分为两种，即按______顺序和按______顺序，分别通过单击相应的按钮来实现。
答案：1：字母#分类2：字母#分类知识点：VB知识点/第一章9、菜单命令中有"…"标记表示该命令是一个______的命令。
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. VB是一种面向对象的可视化程序设计语言,采取了（A ）的编程机制。
（A）事件驱动(B) 按过程顺序执行（C）从主程序开始执行(D) 按模块顺序执行2. 以下不属于VB的工作模式的是（c ）模式。
(A) 运行(B)设计(C) 编译(D)中断3. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是（ C ）。
（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口4. 保存新建工程时，默认的路径是（B ）。
（A）My Documents （B）VB98 （C）\ （D）Windows5. 将调试通过的VB工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其他机器上不能运行的主要原因是（A ）。
（A）运行的机器上无VB系统（B）缺少.frm窗体文件（C）该可执行文件有病毒（D）以上原因都不对6. VB6.0集成开发环境可以（D ）。
（A）编辑、调试、运行程序，但不能生成可执行程序（B）编辑、调试、生成可执行程序，但不能运行程序（C）编辑、生成可执行程序、运行程序，但不能调试（D）编辑、调试、运行程序，也能生成可执行程序7. VB6.0集成环境的主窗口中不包含（B ）。
（A）菜单栏（B）状态栏（C）标题栏（D）工具栏8. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（C ）。
（A）工程资源管理器窗口（B）工具箱窗口（C）代码窗口（D）属性窗口9. 下面四个选项中，不是VB6.0工具箱的标准控件的是（C ）。
（A）滚动条（B）定时器（C）多媒体（D）框架10. VB6.0的（C ）版本，可供专业编程人员开发功能强大的组内分布式应用程序。
（A）初级版（B）学习版（C）企业版（D）专业版11. 英文缩写“OOP”的含义是（A ）。
（A）面向对象程序设计（B）结构化程序设计语言（C）事件驱动的编程机制（D）可视化程序设计12. 不能打开代码窗口的操作是（B ）。
vb总复习要点
例： X = 123456.78 Print Format(x,”00000000.0000”) Print Format(x,”###，###，###.#”) 00123456.7800 123,456.8
第四章 VB语言基础
InputBox函数
v = InputBox (<Prompt>[,<Title>][,<Default>][,<x,y>])
第五章 算法基础及VB的基本语句
“当(while)型”循环——条件成立时，执行循环体:
False
条件？
True
循环体
False
循环体
条件？
True
Do While <条件> <循环体>
Do <循环体>
Loop
Loop While <条件>
第五章 算法基础及VB的基本语句
“直到(Until)型”循环——条件成立时，结束循环:
注释语句：[格式一]：Rem <注释语句> [格式二]：’ <注释语句>
第四章 VB语言基础
程序运行中取值始终保持不变的数据称为“常量”
数值常量：
整型数
整型
长整型 单精度数
浮点型数 双精度数
八进制数（数字前加&O) ; 十六进制（数字前加&H) <底数>E<指数>或<底数>D<指数>，其中以E分隔的数为单精 度数，以D分隔的数为双精度数
第四章 VB语言基础
以符号形式出现在程序中，且取值可以发生变化的 数据称为“变量”，变量名的命名规则如下：
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第一章至第三章知识点总结
1、visual basic 的主要特点：（1）方便的开发环境（2）事件驱动机制2、版本：学习版、专业版、企业版3、Visual的中文含义是可视化，指的是开发windows风格用户界面的方法。
Basic是指初学者通用符号指令代码。
英文全称是：beginners all-purpose symbol instruction code4、退出visual basic 可单击右上角的关闭按钮，也可选择文件菜单中的退出命令，或者直接按”ALT+Q “5、Visual basic 的主菜单主要包括文件、编辑、视图、工程、格式、调试、运行、查询、图表、外接程序、窗口和帮助等菜单项。
6、Visual basic开发环境的中心部分称为窗体。
7、Visual basic提供的工程资源管理窗口以树形图的方式对其资源进行管理。
8、属性窗口有两种显示方式，一种是按字母排序，另一种是按分类排序。
9、激活属性窗口的方法是按快捷键F4。
10、visual basic有两种运行程序的方法：解释模式和编译模式。
11、打开属性窗口的三种方法是：在视图菜单中选择属性窗口选项；在标准工具栏中单击属性窗口按钮；在相应的对象上单击鼠标右键，然后从快捷键菜单中选择属性窗口选项。
12、设置对象属性的基本步骤是：打开属性窗口；在属性列表中选择属性名；在右侧选择合适的值或者输入新的属性值。
13、解释模式和编译模式在程序运行过程中的区别是什么？在解释模式下，系统逐行进行读取、翻译、执行机器代码。
解释模式在设计时可以方便的进行程序，不必编译保存，但其运行速度慢。
在编译模式下，系统一次性的读取代码，全部翻译完成后，在执行代码，翻译模式在不修改程序的前提下，运行速度较快，一旦程序有所改动，则需要重新编译。
例如我们的vb中，在调试过程中，我们使用的是解释模式，如果生成可执行文件后再运行的话，那就是编译模式，这样如果发生错误的话，我们的程序需要更改，然后再运行。
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作业第三章习题答案
本文由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、执行下面的程序,单击窗体,则在窗体上显示的就是( )。
VB考试要点及复习资料
VB考试要点及复习资料单元一、用计算机程序解决问题1、用计算机程序解决问题如果有现成的软件可用：选择现成的软件----输入数据---输出处理结果---问题等已解决。
2、用计算机程序解决问题如果没有现成的软件可用：编写程序----输入数据---输出处理结果---问题等已解决。
3、用计算机程序解决问题其实质都是计算机执行人们给它的指令来实现的。
4、人们根据解决问题的需要给计算机编制的指令序列称为计算机程序。
计算机程序指示计算机如何解决问题或完成任务。
5、为计算机编制程序的过程称为程序设计。
在程序设计中，把解决问题的方法和步骤称为算法。
6、程序设计的一般过程：具体问题-------数学模型——算法——编程、调试---- 输出结果7、算法的描述：在计算机中解决这个问题，某些步骤和实际数学运算过程不完全一致。
用流程图描述算法直观形象，便于理清思路，易于理解。
8、常见的编制程序的语言：C语言、Pascal语言Visual Basic语言9、VB开发环境的窗口组成：1、）窗体FORM：程序界面的设计2、）对象窗口）工具箱：包含很多控件3、4、）工程资管理器窗口:以树型结构形式列出当前打开的工程文件以及工程包含的窗体等项目5、）属性窗口：用来显示和设置对象的属性值6、）窗体布局窗口常见VB关键字单元二、编写一个简单程序1、使用VB开发程序的一般步骤：具体问题------分析问题设计算法-------设计程序界面----编写程序-----调试程序---问题解决。
2、分析问题就是根据任务中具体问题的已知条件和目标要求，来判断解决问题的可能性，然后创建数学模型，设计解决问题的方法和步骤并做描述。
3、解决同一个问题的算法不是唯一的，这称为算法的多样性。
4、程序界面是指用户与计算机对话的界面，也叫用户界面。
窗体是应用程序面向用户的最终界面。
5、在VB中，计时器、标签、文本框、按钮是用于构成程序界面的基本构件，也称为控件。
中山大学VB课件第三章习题
• 5)为了使文本框同时具有水平和垂直滚动条， 应先把MultiLine属性设置为True，然后再 把ScrollBars属性设置为 • A)0 B)1 C)2 D)3
D
• • • • •
6)使文本框获得焦点的方法是 A)change B)GotFocus C C)SetFocus D)LostFocus
•
假定有一个文本框，其名称为Text1，为 了使该文本框具有焦点，应执行的语句是 Text1.SetFocus ____________.
•
假定有一个名为pic2.gif的图形文件，要想 在运行期间把该文件装入一个图片框，应 Picture1.Picture=LoadPicture(“pic2.gif”) 执行的语句是______________.
• 3)为了取消窗体的最大化功能，需要把它的 一个属性设置为False，这个属性是 • A) ControlBox • B)MinButton D • C)Enabled • D)MaxButton
• • • • •
4)决定窗体有无控制菜单的属性是 A)ControlBox A B)MinButton C)Enabled D)MaxButton
C
• 17）删除列表框中指定的项目所使用的方 法为 • A)Move B)Remove • C)Clear D)RemoveItem
D
• 18）当拖动滚动条中的滚动块时，将触发 滚动条的事件是 • A)Move B)Change C • C)Scoll D)SetFocus
• 19）用户在组合框中输入或选择的数据可 以通过一个属性获得，这个属性是 • A)List B)ListIndex • C)Text D)ListCount
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
87题下列可作为Visual Basic变量名的是（D）。
A.a#aB.4aC.?xyD.C.onst_a为了描述x>y和y>z同时成立，则下述选项中，正确的是（D）。
A.x>y .and Y>zB.x>y>zC.x>y and >zD.x>y and y>z下列（B）是日期型数据。
A.@Januaryl0，1997@B.#Januaryl0，1997#C. Januaryl0，1997D.&Januaryl0，1997&名称（D）表示变体类型数据。
A.DoubleB.CurrencyC.BooleanD.V ariant在表示字符串时，可作为字符串尾部符号的是（D）。
A.#B.!C.&D.$在一个语句行内写多条语句时，语句之间应该用（D）分隔。
A.逗号B.分号C.顿号D.冒号Visual Basic的逻辑类型数据占（A）字节内存。
A.2B.4C.8D.16在代码编辑器中，如果一条语句太长，无法在一行内写下(不包括注释)，要折行书写，可以在行末使用续行字符（A），表示下一行是当前行的继续。
A.一个空格加一个划字符( _)B.一个划字符(_)C.直接回车D.一个空格加一个连字符( -)表达式1.5+3\2>2 Or 7 Mod3 < 4 and Not 1的运算结果是（A）。
A.-1B.0C.1D.其他表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（B）。
A.4B.5C.6D.7表达式Left( how are you ，3)的值是（A）。
A.howB.areC.youD.how are you表达式Int(5*Rnd+1)*Int(5*Rnd-1)的值的范围是（D）。
A.[0,15]B.[-1,15]C.[-4,15]D.[-5,15]满足当x的值是偶数时为真，奇数时为假要求的表达式是（D）。
A.x Mod 2=0B.Not x Mod 2<>0C.x\2*2-x)=0D.Not(x Mod2)函数Ucase( Basic )的值为（D）。
A.BasicB.basicC.BasiCD.BASIC可以同时删除字符串前导和尾部空白的函数是（C）。
A.LtrimB.RtrimC.TrimD.Mid如果逻辑与(A.nD.)运算的结果为真，与它所连接的两个条件必须是（C）。
A.前一个为真，后一个为假B.前一个为假，后一个也为假C.前一个为真，后一个也为真D.前一个为假，后一个为真设A=3，B=5，则以下表达式值为真的是（B）。
A.A>=B and B>10B.(A>B) Or (B>0)C.(A<0) Or (B<0)D.(-3+5>A) and (B>0)可获得当前系统日期的函数是（A）。
A.Date( )B.Time( )C.IsDate( )D.Year( )下列不能作为VB中的变量名的符号是（C）。
A.A45B.P12C.89TaD.xy函数rnd用于产生随机数，其结果范围是（B）。
A. (0,1)B. [0,1)C. (0,1]D. [0,1]在一个语句内写多条语句时，每个语句之间用（B）符号分隔。
A.。
B.：C.*D.；下面（A）是合法的单精度型变量。
A.Kum!B.sum%C. mytm$D.Km#下列关于变体类型的叙述正确的是（C）。
A.变体不是一种数据类型B.变体是赋给某一种类型数值后，就不能再赋给它另一类型数值C.该种数据类型在使用过程中是可以变化的，VB自动完成类型转换D.变体的空值就表示该变体的值为0表示学习成绩(score)在75分和90分之间的逻辑表达式是（A）。
A．score>=75 And score<=90B．score>=75 0r score<=90C．score<=75 And score>=90D．score<=75 0r score>=90语句PRINT 5/4*6\5 mod 2的输出结果是（B）。
A.0B.1C.2D.3在\、/、Mod、*等4个算术运算符中，优先级最低的是（C）。
A.\B./C.ModD.*表达式Mid(“SHANGHAI”,6,3)的值是（D）。
A.SHANGHB.SHAC.ANGHD.HAI在VB中，对于未定义的变量，系统默认类型是（D）变量。
A.整型B.字符型C.日期型D.变体型abc％，abc!，abc$，abc#分别声明abc是（A）。
A．整型、单精度、字符串、双精度变量B．整型、整型、字符串、双精度变量C．单精度、整型、字符串、双精度变量D．整型、双精度、字符串、双精度变量可获得当前系统日期的函数是（A）。
A.Date()B.Time()C.IsDate()D.Year()假设A=3,B=7,C=2,则表达式NOT(B*A)的值是（B）A.TrueB.FalseC.表达式错误D.不确定用于获得字符串S从第5个字符开始的3个字符的函数是（A）。
A.Mid(S,5,3)B.Middle(S,5,3)C.Right(S,5,3)D.Left(S,5,3)X是小于100的非负数，用VB表达式表达正确的是（C）。
A.0≤X≤100B.0<=X<100C.0<=X and X<100D.0≤X<100下列符号中哪个是VB程序中合法的变量名（A）。
A.ab7B.7abC.IfD.a*bc用于去掉字符串左右两边的空格的函数是（B）。
A.Ltrim()B.Trim()C.Left()D.Instr()标准模块文件的扩展名是（C）。
A.frmB.vbpC.basD.vbg表达式Abs(-5)+Len("ABCDE")的值是（C）。
A.5ABCDEB.-5ABCDEC.10D.0表达式X+I>X是（D）。
A.算术表达式B.非法表达式C.字符串表达式D.关系表达式在VB中，下列（C）是不合法的循环语句。
A.For…NextB.Do Until…LoopC.Do…whileD.Do…Loop设m=1，n=2，o=3，p=4，下列表达式的值是（A）。
m>o-3 And p<n Or o Mod nA.-1B.0C.1D.FALSEVisual Basic布尔运算符Xor，Or，Eqv，And中，级别最高的运算符是（D）。
A.XorB.OrC.EqvD.And下列符号（A）是Visual Basic中的合法变量名。
A.x23B.8xyC.ENDD.X8[B]变量未赋值时，数值型变量的值为（A）。
A.0B.空串""C.NullD.没任何值表达式"Turbo"+"c">"Ture"+"Basic"的值是（B）。
A.TRUEB.FALSEC.NullD.出错信息表达式25.28 Mod 6.99的值是（B）。
A.1B.4C.5D.出错表达式Abs(-5)+Len("ABCDE")的值是（C）。
A.5ABCDEB.-5ABCDEC.10D.0在以下4个逻辑表达式中，其逻辑值为“真”的是（D）。
A.Not(3+4<4+6)B.2>1 And 3<2C.1>2 Or 2>3D.Not(1>2)假设变量boolVar是一个布尔型变量，则下面正确的赋值语句是（D）。
A.boolVar="True"B.boolVar=.True.C.boolVar=#True#D.boolVar=3<4有如下程序：a$="Flying"：b$="IS"：c$="funny!"Print a$+" "+Lcase$(b$)+" "+Ucase$(c$)End运行后，输出结果是（B）。
A.Flying Is funny!B.Flying is FUNNY!C.Flying IS FUNNY!D.FLYING IS FUNNY!设有如下变量声明：Dim TestDate As Date为变量TestDate正确赋值的表达方式是（A）。
A.TestDate=#1/2002#B.TestDate=#"1/1/2002"#C.TestDate=date("1/1/2002")D.TestDate=Format("m/d/yy"，"1/1/2002")下面的数组声明语句中( B )是正确的。
A.Dim A[3，4] As IntegerB.Dim A(3，4) As IntegerC.Dim A[3；4] As IntegerD.Dim A(3；4) As Integer下列续行写法正确的是( B )。
A.C=_A+BB.C= _A+BC.C =_A+BD.C=_'此处换行A+B有如下程序：Const st$=""CHINA""St$=""GREAT""Print st$运行后输出的结果是( D )。
A.CHINA BeijingB.GREATC.HebeiD.显示出错信息下列语句正确的是( B )。
A.MsgBox("请输入查询的姓名："，"256+3+48")B.MsgBox "请输入查询的姓名："，256+3+48C.X=MsgBox(请输入查询的姓名：，vbYesNoCancel)D.X=MsgBox("请输入查询的姓名："，"310")下述程序段的运行结果是( A )。
X=-2.3y=125z=Len(Str$（x）+Str$（y）)Print zA.8B.6C.4D.3下面四个语句中，正确的赋值语句是( A )。
A.a=a + cB．a +c=aC．c +a=aD．a－c=a将Cos（y）四舍五入保留3位小数的表达式是( C )。
A.Int((Cos（Y）+0.5)*1000)/1000B.Int(Cos(Y*1000))/1000+0.5C.Int(Cos（Y）*1000+0.5)/1000D.Int(Cos(Y*1000)+0.5)/1000设a=6，则执行x=iif(a>5,-1,0)后，x 的值为( D )。