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 ）。
- 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 )。