第三章 有答案VB语言基础
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语言基础
§3.1V i s u a l B a s i c语言字符集及编码规则一、V i s u a l B a s i c的字符集V i s u a l B a s i c的字符集就是指用V i s u a l B a s i c语言编写程序设计时所能用的所有符号的集合。
字符是构成程序设计语言的最小语法单位,每一种程序语言都有一个自己的字符集。
V i s u a l B a s i c使用U n i c o d e字符集。
◆基本字符包括:字母:大写英文字母A—Z;小写英文字母a—z。
数字:0一9;◆专用字符:空格!”#$%&‘()*+-/\^, .:;<>=?@[]_ {}|~等。
二、编码规则与约定(一)编码规则1、V i s u a l B a s i c代码中不区分字母的大小写。
2、在同一行上可以书写多条语句,但语句间要用冒号“:”分隔。
3、若一个语句行不能写下全部语句,或在特别需要时,可以换行。
换行时需在本行后加入续行符,即1个空格加下划线“_”。
4、一行最多允许255个字符。
5、注释以R e m开头,也可以使用单引号“'”,注释内容可放在过程、模块的开头作为标题用,也可直接出现在语句的后面,但不能放在续行符的后面。
6、在程序转向时需用到标号,标号是以字母开始而以冒号结束的字符串。
(二)约定1、为了提高程序的可读性,对于V B中的关键字其首字母大写,其余字母小写。
2、注释是非执行语句,它不被解释和编译,仅对程序的有关内容起注释作用。
例如:T h i s i s a V BR E M T h i s i s a V B3、通常不使用行号4、对象名命名约定:每个对象的名字由3个小写字母组成的前缀(指明对象的类型)和表示该对象作用的缩写字母组成。
3.2.1 Visual Basic 6.0的标准数据类型V i s u a l B a s i c 6.0提供的基本数据类型主要有字符串型数据和数值型数据,此外还提供了字节、货币、对象、日期、布尔和变体数据类型。
974 第三章VB语言基础
“AB123AB123”
5. 格式输出函数 例3.1 利用Format函数显示有关的日期和时间。
Private Sub Form_Click( ) FontSize = 12 MyTime = #9:21:30 PM# MyDate = #7/21/2019# Print Tab(2); Format(MyDate, m/d/yy) Print Tab(2); Format(MyDate, mmmm-yy) Print Tab(2); Format(MyTime, h-m-s AM/PM) Print Tab(2); Format(MyTime, hh:mm:ss A/P) Print Tab(2); Format(Date, dddd,mmmm,dd,yyyy) Print Tab(2); Format(Now, yyyy 年m月dd日 hh: mm) Print FormatDateTime(Now) ' VB6.0新提供的函数
第三章 VLeabharlann 语言基础3.1 编 码 基 础
1. VB代码不区分字母的大小写 系统保留字自动转换每个单词的首字母大写; 用户自定义行以第一次为准。
2. 语句书写自由 一行可书写几句语句,之间用冒号分隔;
一句语句可分若干行书写,用续行符_连接一行<=255个字符。
3. 注释有利于程序的维护和调试
Rem开始 或 单撇号 '
End Sub
6. Shell函数
Shell函数负责执行一个可执行文件,返回一个 Variant,如果成 功,代表这个程序的进程ID,若不成功,则会返回0。
形式:Shell(命令字符串,窗口类型)
窗口类型值为1表示正常窗口,缺省窗口最小化为图标。
vb第3章 Visual Basic语言基础
PAN XIAONAN
3.2.5 变体型(Variant)
变体型也称为可变类型,它是一种特殊的数据类型。 能够保存所有类型的数据,且可以随时转换为其他类型。 因此,可以把任意类型的数据赋予变体型变量时,VB会自 动完成必要的转换。
PAN XIAONAN
第3章 VB编程的基础知识
3.1 3.2 3.3 3.4 3.5 VB的基本字符集和词汇集 VB的基本数据类型 常量与变量 运算符与表达式 常用内部函数
第2章 Visual Basic语言基础-mzm 《Visual Basic 程序设计》
PAN XIAONAN
3.1 VB的基本字符集和词汇集
布尔型常量、日期型常量等。 例如:
1000
“12345”
整型(Integer)
字符串型 日期型
#2/8/2006 10:05:00 AM# 1.56! 1.56#
可以在名称后面加类型符以示说明,例如: 单精度浮点型常量 双精度浮点型常量
第2章 Visual Basic语言基础-mzm 《Visual Basic 程序设计》
1).定义:关键字又称为保留字,是在语法上具有固定意义的字母 组合,通常用来表示系统提供的标准过程、函数、运算符和常量等。
2).标准形式:首字母为大写,其余字母为大、小写字母混合。 【注】:在代码编辑窗口输入代码时无需考虑大小写问题,系统会自 动将其转换为标准形式。 例如:Print、If 、 Then 、 Private 、 Sin 、 Sqr
PAN XIAONAN
(二)符号常量:在程序代码中,用标示符来表示一个常量。
1、用户定义的符号常量
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、字节。
第3章VB语言基础
第3章VB语言基础3.1 基本要求1. 掌握VB的数据类型和变量的定义及赋值方法;2. 掌握各种运算符的用法和表达式的建立方法;3. 掌握常用内部函数的用法;4. 掌握输入/输出函数及VB的输入输出方法。
3.2 知识点1. VB数据类型(1)标准数据类型它是系统定义的数据类型。
主要有字节型(Byte)、整型(Integer)、长整型(Long)、单精度型(Single)、双精度型(Double)、货币型(Currency)、字符数据类型(String)、日期数据类型(Date)、逻辑数据类型(Boolean)、对象数据类型(Object)、变体数据类型(Variant)。
✧字节型数据在内存中占1个字节,无符号,取值范围为0-255。
✧整型数据在内存中占2个字节,可以表示1个带符号的整数,取值范围为-32768-+32767。
✧长整型数据在内存中占4个字节,可以表示1个带符号的整数,取值范围为-231-+231-1✧单精度型数据在内存中占4个字节,可以表示1个带符号的实数。
有效数字精确到7位,表示数的范围为-3.402823E38-+ 3.402823E38✧双精度型数据在内存中占8个字节,可以表示1个带符号的实数。
有效数字精确到15位或16位十进制数。
✧货币型数据采用8个字节存放。
可以表示1个带符号的实数,但小数部分保留4位有效数字,整数可以达到15位精确数字。
✧日期型数据表示由年、月、日组成的日期信息或由时、分、秒组成的时间信息。
用符号“#”表示日期型数据。
✧逻辑数据类型采用2字节存储,逻辑数据类型只有两个值:True(真)、False(假)。
✧字符数据类型用于表示字符的数据。
存储时根据实际情况安排字节数,是不定长的。
字符可以包括西文字符和中文字符及其他可以表示出来的形式。
VB中字符型数据以Unicode码存放,一个西文字符和中文字符均占2个字节。
✧对象型数据用来表示图形、OLE对象或其他对象,占用4个字节。
vb第三章vb语言基础
VB的基本数据类型
货币型(Currency)
货币数据类型是为表示钱款而设置的。该类型数据以 8个字节存储,精确到小数点后四位,小数点前有15 位,小数点后4位以后的数字将被舍去。 浮点数中的小数点是“浮动”的,而货币类型数据的 小数点是固定的。 表示形式在数字后加@符号,例如12.55@ 字节实际上是一种数值类型,是占一个字节的无符号 整数,以一个字节的无符号二进制数存储,取值范围 为0-255。
字符运算符
+、&:连接——最好用&,因为对变体型数据用+ 将会出现不同的结果。(例) =、<>、<、<=、>、>=、like (例)
关系运算符
2. 字符串运算符
& 、+ 字符串连接 " 123 " + " 456 " 结果 " 123456 " " 123 " & " 456 " 结果 " 123456 " 区别: + 两边必须是字符串, & 不一定 例如: "abcdef" & 12345 ' 结果为 "abcdef12345 " "abcdef " + 12345 ' 出错 "123" & 456 ' 结果为" 123456 " “123” + 456 ' 结果为 579 注意: "123 " + True '结果为 122 False + 10 + "4" 结果是14 True转换为数值-1,False转换为数值0 返 回
vb考试复习3章-4章习题
第3章 Visual Basic程序设计代码基础一. 选择题1.下列【】字符不属于Visual Basic字符集。
(A)A (B)# (C)巳(D)@2.以下不合法的常量是【】。
(A)1O^2 (B)100 (C)100.0 (D)1OE+013.Visual Basic允许的常量有【】。
(多选)(A)E7 (B)4.8E2 (C)2.5*10 (D)E-5(E)1/2 (F)1.le-2 (G)π(H)False4.以下【】不是合法的常量。
【】是布尔常量, 【】是字符串常量, 【】是日期常量。
(多选)(A)true (B)”100”(C)11-03-99 (D)F (E)'AN' (F)#11/05/1998#5.常量-0.00013579的科学记数法是【】。
(多选)(A)-1,3579E+OA (B)13579E-4 (C)-13579E-5 (D)-13579E-046.Visual Basic中的数据也可以以十六进制或八进制表示,十六进制数据以【】开头,八进制数据以【】符号开头。
(A)$E (B)$H (C)&O (D)&H7.\、/、Mod、* 四个算术运算符中,优先级最低的是【】。
(A)\(B)/ (C)Mod (D)*8.以下【】是字符串常量, 【】可以作为字符串变量。
(A)m (B)#01/01/99# (C)"m" (D)Tme9.下列【】是日期型常量。
(A)"2/1/02" (B)2/1/02 (C)#2/1/02# (D){2/1/02}10.下面【】不是字符串常量。
(A)"你好" (B)"" (C)"Tme" (D)#False#11.表达式Int(8*Sqr(36)*Lo^(-2)*10+0.5)/10的值是【】。
(A).48 (B).048 (C)5 (D).0512.表达式Val(".123E2CD")的值是【】。
VB第3章VB语言基础(类型常变量表达式内部函数语句)
VB第3章VB语言基础(类型常变量表达式内部函数语句)第三章语言基础VB试题班级:________考号:________姓名:________总分:_____第一部分:vb(234分)一、单项选择1、系统符号常量的定义通过()获得 ( )(2分)A、对象浏览器B、代码窗口C、属性窗口D、工具箱2、函数INT(RND(0)*100)是下列哪个范围内的整数 ( )(2分)A、(0,10)B、(1,100)C、(0,100)D、(1,99)3、以下可以作为VB变量名的是 ( )(2分)A、SINB、CO1C、COS(X)D、X(-1)4、VB表达式INT(-4.8)*6\3^2+FIX(-4.8)的值是_____________________( )(2分)A、0B、-5C、-4D、-65、下列可作为Visual Basic变量名的是 ( )(2分)A、A#AB、4AD、constA6、删除字符串前导和尾随空格的函数是( )(2分)A、Ltrim()B、Rtrim( )C、Trim( )D、Lcase7、在窗体画一个名称为COMMAND1的命令按钮,然后编写如下事件过程private sub command1_click()c=1234c1=trim(str(c))for i = 1 to 4print ________nextend sub程序运行后,单击命令按钮,要求在窗体上显示如下内容:1121231234则在下划线处应填入的内容为( )(2分)A、right(c1,i)B、left(c1,i)C、mid(c1,i,1)D、mid(c1,i,i)8、以下合法的Visual Basic标识符是( )(2分)A、ForLoopB、ConstC、9abc9、在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:Private Sub Command1_Click()Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时,三次单击命令按钮Commandl后,窗体上显示的结果为 ( )(2分)A、15 16B、15 6C、15 15D、5 610、下列()是日期型常量 ( )(2分)A、"2/1/02"B、2/1/02C、#2/1/02#D、|2/1/02|11、要强制显示声明变量,可在窗体模块或标准模块的声明段中加入语句( )(2分)A、Option Base 0B、Option ExplicitC、Option Base 1D、Option Compare12、下面可以正确定义2个整型变量和1个字符型变量的语句是( )(2分)A、Dim n, m As Integer, s As StringB、Dim a%, b$, c As StringC、Dim a As Integer, b, c As StringD、Dim x%, y As Integer, z As String13、Rnd函数不可能产生的()值 ( )(2分)A、0B、1C、0.1234D、0.0000514、设a=4,b=3,c=2,d=1,下列表达式的值是a>b+1 Or c<="" and="" b="" c(="" mod="" p="">A、TrueB、1C、-1D、015、执行语句s=Len(Mid("VisualBasic",1,6))后,s的值是( )(2分)A、VisualB、BasicC、6D、1116、执行如下两条语句,窗体上显示的是a=9.8596Print Format(a,"$00,00.00") ( )(2分)A、0,009.86B、$9.86C、9.86D、$0,009.8617、函数INT(-13.2)的结果为: ( )(2分)A、-13.2B、13.2C、-13D、-1418、不能正确表示条件“两个整型变量A和B之一为0,但不能同时为0”的布尔表达式( )(2分)A、A*B=0 AND A<>BB、(A=0 OR B=0) AND A<>BC、A=0 AND B<>0 OR A<>0 AND B=0D、A*B=0 AND (A=0 OR B=0)19、假设变量BOOLVAR是一个布尔型变量,则下面正确的赋值语句是 ( )(2分)A、BOOLVAR='TRUE'B、BOOLVAR=.TRUE.C、BOOLVAR=#TRUE#D、BOOLVAR=3<420、设有如下变量声明 Dim TestDate As Date 为变量TestDate 正确赋值的表达方式是 ( )(2分)A、T estDate=#1/1/2002#B、TestDate=# "1/1/2002" #C、TestDate=Date("1/1/2002")D、TestDate=Format("m/d/yy", "1/1/2002")21、下列字符串常量中,最大的是( )(2分)A、"北京"B、"上海"C、"天津"D、"广州"22、代数式x1 - | a | + ln10 + sin(x2 + 2л) / cos(57 o)对应的Visual Basic表达式是 ( )(2分)A、X1 - Abs(A) + Log(10) + Sin(X2+2*3.14) /Cos(57*3.14/180)B、X1 - Abs(A) + Log(10) + Sin(X2+2*л) / Cos(57*3.14/180)C、X1 - Abs(A) + Log(10) + Sin(X2+2*3.14) / Cos(57)D、X1 - Abs(A) + Log(10) + Sin(X2+2*л) / Cos(57)23、如果将布尔常量值TRUE赋值给一个整型变量,则整型变量的值为 ( )(2分)A、0B、-1C、TRUED、FALSE24、函数String(n, "str")的功能是 ( )(2分)A、把数值型数据转换为字符串B、返回由n个字符组成的字符串C、从字符串中取出n个字符D、从字符串中第n个字符的位置开始取子字符串25、在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后,单击命令按钮,在窗体上显示的内容是( )(2分)A、VVVB、VisC、sicD、1126、将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式,其正确的形式是( )(2分)A、Cos(a+b)^2+5*exp(2)B、Cos^2(a+b)+5*exp(2)C、Cos(a+b)^2+5*ln(2)D、Cos^2(a+b)+5*ln(2)27、NULL是指: ( )(2分)A、0B、空格C、未知的值或无任何值D、空字符串28、以下()程序段可以实施X、Y变量值的变换 ( )(2分)A、Y=X:X=YB、Z=X:Y=Z:X=YC、Z=X:X=Y:Y=ZD、Z=X:W=Y:Y=Z:X=Y29、将任意一个正的两数N的个位数与十位数对换的表达式为( )(2分)A、(N-INT(N/10)*10)*10+INT(N/10)B、N- INT(N/10)*10)*10+INT(N)/10C、INT(N/10)+(N-INT(N/10)D、(N- INT(N/10)*10)*10+INT(N/10)30、设a=2,b=3,c=4,d=5,下列表达式的值是Not a<=c Or 4*c=b^2 And b<>a+c( )(2分)A、-1B、1C、TrueD、False31、表达式25.28 Mod 6.99的值是( )(2分)A、1B、5C、4D、出错32、设A、B、C表示三角形的3条边,表示条件“任意两边之和大于第三边”的布尔表达式可以用()表示。
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("请输入一个求阶乘的数:","求数的阶乘"))。
4.如果使用MsgBox对话框显示提示信息“退出本系统?”,并显示“是(Yes)"和“否(No)”两个按钮,显示图标“?"号,指定第一个按钮为默认值以及标题为“提示信息",则调用MsgBox 函数的形式为( MsgBox("退出本系统?",4+32+0,"提示信息")).5.如果使用MsgBox对话框显示提示信息“文件未找到!”,并显示“确定”按钮、图标“!"号和标题“文件查找",则使用的MsgBox语句为( MsgBox"文件未找到",0+48+0,"文件查找")。
6.要在当前窗体Form和立即窗口输出字符串“Visual BASIC 6。
0”使用的Print方法分别是( Print “Visual BASIC 6.0”)和( Debug。
Print “Visual BASIC 6。
0” ).7.使用Print方法时,若用逗号分隔, 则按( 标准)格式输出各表达式的值,若用分号分隔,则按( 紧凑 )格式输出各表达式的值.8.注释语句是一个( 非执行)语句,VB不对它们进行编译,对程序的执行结果没有任何影响。
9.判别变量i是否为偶数,若为偶数就把它显示出来。
使用单行结构条件语句为( If i Mod 2=0 Then print x )。
vb基础教程第03章
3.2 编写简单的VB应用程序
实例:一个简单的应用程序
要求: 在屏幕上显示一个窗口,窗口的下部有三个命 令按钮,左边的按钮标有“请单击此按钮”,中 间按钮标有“清屏”,右边按钮标有“程序结束”。 当用户用鼠标单击左边按钮时,屏幕上方的文 本框中显示“欢迎使用Visual Basic 6.0中文版”, 单击中间按钮,清除文本框中显示的内容,单 击右边的按钮,程序结束。
Demo
简单程序示例.exe
在用VB设计应用程序时,通常不必编写大 量的代码。首先建立用户界面,设置各个 对象的属性,然后编写由用户启动的事件 来激活的若干个事件过程。这是 Windows 下的程序设计与传统的 DOS程序设计的本 质区别。
3.2 编写简单的VB应用程序
代码编辑器
代码编辑器是一个窗口,大多数代码都在这 个窗口编写。这个窗口有高度自动化的代码 处理功能。通过选项对话框可以自定义这些 功能。操作:执行“工具”菜单中的“选项”命 令,打开“选项”对话框,选择“编辑器”选项 卡,如下图所示:
3.1 Visual Basic中的语句
注释语句
为了提高程序的可读性,通常应在程序的适 当位置加上必要的注解。VB中的注释是 Rem 或者 ‘ 。格式如下: Rem 注释内容 ’ 注释内容 例如: ‘ 这是一个注释语句 Rem 这是一个注释语句
3.1 Visual Basic中的语句
注释语句
1、注释语句是非执行语句,仅对程序的有 关内容起注释作用。 2、任何字符都可以作为注释内容,注释语 句通常放在过程、模块的开头作为解释性的 内容,也可以放在执行语句的后面,在这种 情况下,注释语句必须放在一行的末尾。如 下图所示:
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章习题参考答案一、判断题二、选择题三、程序阅读写出下列各段程序执行后的输出结果。
《第3章 VB语言基础》习题
《第3章VB语言基础》习题一、填空题1.写出下列常量的数据类型:45“45” 4.5D+2 4.5E22.指出下列变量的类型:Min max! i% str$Count% area#3.指出下列合法的变量名是Integer,_Student,4r,$test,Use,β,变量,Book/No,Stu.No4.VB中,字符串常量的分界符是,日期/时间型常量的分界符是。
5.执行下列语句,输出的结果是a$=”Good”b$=”Morning”Print a$+chr(13)+b$6.窗体的单击事件中有如下代码:Private sub form1_click()Static x as integerX=x+1Print xEnd sub运行该程序,单击窗体两次,窗体上显示的内容是。
7.VB语言的表达式正确描述下列命题:a小于b或小于ca和b中有一个小于ca是奇数a不能被b整除8.InputBox函数返回值的数据类型为;MsgBox函数返回值的数据类型为。
9。
由关键字声明的局部变量在整个程序运行时一直存在。
10.定义变量时如不指定类型,该变量为变量。
11.日期常量用作为界定符。
12.可以在窗体模块的声明段中进行的声明。
13.表达式4 + 6 \ 5 * 7 / 9 Mod 3的值是。
14.表达式Len("幸运52")的值是。
15.可表示[50,100]之间的随机数的语句是。
16.Print方法分区输出时,用分隔多个表达式。
二、单项选择题1.下列是合法变量的是()。
A、FilenameB、A(A+B)C、254DtD、Print2.下列是VB所允许的数是()。
A、10^(1.25)B、D32C、12ED、+-2.53.数“8.6787E+8”写成普通的十进制是()。
A、86 787 000B、867 870 000C、8 678 700D、8 678 700 0004.语句Print 5*5\5/5的输出结果是()。
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、执行下面的程序,单击窗体,则在窗体上显示的就是( )。
第3章-VB语言基础
示例程序(九)
If Operator(Index).Caption = "-" And LastInput <> "NUMS" _ And OpFlag <> "=" Then Readout = "-" LastInput = "NEG" End If Case 2 Op2 = TempReadout Select Case OpFlag Case "+" Op1 = CDbl(Op1) + CDbl(Op2) Case "-" Op1 = CDbl(Op1) - CDbl(Op2) Case "X" Op1 = CDbl(Op1) * CDbl(Op2) Case "/" If Op2 = 0 Then MsgBox "除数不能为零", 48, "计算器“
2013-8-1
VB程序设计
31
一、常量
在程序执行的过程中保持不变
的数据称为常量。
在VB中,常量分为:直接常量、 符号常量和系统提供的常量。
VB中的数值型数据分为整型和实型两大类。 整型 实型
2013-8-1
VB程序设计
18
1.整型
整型数是不带小数点和指数符号的数。 包括整型、长整型和字节型整数。
2013-8-1
VB程序设计
19
(1)整型(Integer,类型符%)
整型数用两个字节存储,取值范围是32768到+32767。 例如:15,-345,654%都是整数型。 而45678%则会发生溢出错误。
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语言基础
第三章有答案VB语言基础第三章有答案vb语言基础第三章VB语言基础一、单选题1.设a=5,B=4,C=3,d=2,下面表达式的值为__________3>2*bora=candb<>corc>da) 1b)正确的c)错误的)22.设a=”microsoftvisualbasic”,则以下使变量b的值为”visualbasic”的语句是___b______。
a) B=左(a,10)B=中(a,10)C)B=右(a,10)d)B=中(a,11,10)3。
假设以下窗口事件过程:privatesubform_click()a$=\b$=右(a$,5)c=mid(a$,1,9)msgboxa$,34,b$endsub程序运行后单击窗体,则在弹出的信息框中的标题栏中显示的信息是___c______。
a)microsoftvisualb)microsoftc)basicd)344.在窗体上画一个文本框,然后编写如下事件过程:privatesubform_uu单击()x=inputbox(\请输入一个整数\printx+text1.textendsub程序运行时,在文本框中输入456,然后单击表单,在输入对话框中输入123,然后单击确定。
表格上显示的内容是________; a)123b)456c)579d)1234565。
可以同时删除字符串的前导空格和尾随空格的函数是a)ltrimb)rtrimc)trimd)mid6.\\、/、mod、*四个算术运算符中,优先级别最低的是___c______。
a) \\b)/C)Modd)*7。
在VisualBasic中,日期/时间常数应为_________________;。
a)\b)#c)*d){}8.如果a%=20,B$=30,则以下输出结果为“2030”的语句为a)printstr(a)b)print“a”+bc)printa+bd)printa&b9.设a=10,b=5,c=1,执行语句printa>b>c后,窗体上显示的是___b____。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
第三章VB语言基础
一、单选题
1.设a=5,b=4,c=3,d=2,下列表达式的值是____B_____。
3>2*b Or a=c And b<>c Or c>d
A)1 B)True C)False D)2
2.设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)34
4.在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Form_Click()
x = InputBox("请输入一个整数")
Print x + Text1.Text
End Sub
程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容是___D______。
A)123 B)456 C)579 D)123456
5.可以同时删除字符串前导和尾部空白的函数是___C______。
A)Ltrim B)Rtrim C)Trim D)Mid
6.\、/、Mod、*四个算术运算符中,优先级别最低的是___C______。
A)\ B)/ C)Mod D)*
7.在VisuaIBasic中,日期/时间型常量要用____B_____括起来。
A)" B)# C)* D){}
8.设a%=20,b$=”30”,则下列输出结果是”2030”的语句是___D______。
A)Print str(a) B)Print “a”+b C)Print a+b D)Print a & b
9.设a=10,b=5,c=1,执行语句Print a > b > c 后,窗体上显示的是___B____。
A)True B)False C)1 D)出错信息
10.表达式Fix(-32.68)+Int(-23.02)的值为____B_____。
A)-55 B)-56 C)-57 D)–58
11.InputBox函数返回值的类型为___B______。
A)数值B)字符串
C)变体D)数值或字符串(视输入的数据而定)12.执行以下程序段后,变量c$的值为___D______。
a$="Visual Basic Programing"
b$="Quick"
c$=b$ & UCase(Mid$(a$,7,6)) & Right$(a$,11)
A)Visual BASIC Programing B)Quick Basic Programing
C)QUICK Basic Programing D)Quick BASIC Programing
13.语句Print 5 * 5 \ 5 / 5的输出结果是___B______。
A)5 B)25 C)0 D)1
14.语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是____C_____。
A)-36 B)1 C)-1 D)-72
15.假定Picture1和Text1分别为图片框和文本框的名称,下列不正确的语句是__D______。
A)Print 2.5 B)Picture1.Print 2.5
C)Debug.Print 2.5 D)Text1.Print 2.5
16.以下声明语句中错误的是____B_____。
A)Const var1=123 B)Dim var2 = 'ABC'
C)Dim var3% D)Static var3 As Integer
17.以下能判断是否到达文件尾的函数是___D______。
A)BOF B)LOC C)LOF D)EOF
18.在VB中,若要强制变量必须先定义才能使用,应该用___B______语句说明。
A)Public Const B)Option Explicit
C)Type 数据类型名D)DefDbl
19.下列关于变体数据类型的叙述中正确的是____C_____。
A)变体是一种没有类型的数据
B)给变体变量赋某一种类型数值后,就不能再赋给另一种类型数值
C)一个变量没有定义就赋值,该变量即为变体类型
D)变体的空值就表示该变体值为0
20.设a="Visual Basic",下面使b="Basic"的语句是____C_____。
A)b=Left$(a,8,5) B)b=Right$(a,5,5)
C)b=Mid$(a,8,5) D)b=InStr(a,8)
二、填空题
1.整型变量X中存放了一个两位数,要将两位数交换位置,例如13变成31,实现的表达式是___(X mod 10) * 10 + x\10____。
2.表示x是5的倍数或9的倍数的逻辑表达式是__x mod 5 = 0 OR x mod 9 = 0____。
3.已知a=3.5,b=5.0,c=2.5,d=true,则表达式a>=0 AND a+c > b+3 OR NOT d的值是___False____。
4.表达式Ucase(Mid(“abcdefgh”,3,4))的值是___“CDEF”____。
5.要以××××年××月××日形式显示当前机器内日期的Format函数格式为___Format(date,“yyyy年mm月dd日”)____。
6.计算进入21世纪有多少天的函数表达式是___DateDiff(“d”,#1/1/2001#,now)+1___。
7.计算离你毕业2009年6月30日还有多少个星期的函数表达式是__DateDiff(“w”,now,#6/10/2009#)____。
8.表示s字符变量是字母(不区分大小写)的逻辑表达式是___UCase(s)>=”A” AND UCase(s)>=”Z”____。
三、编程题
1.利用InputBox输入三角形三条边的长度a,b,c,计算并显示三角形面积。
公式为:面积=,s=(a+b+c)/2
2.随机产生一个三位正整数,然后逆序输出,产生的数与逆序同时显示。
例如输入123,输出321。