第三章 有答案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")的值是【】。
- 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。