Visual Basic 程序设计基础教程-课后习题答案-范荣强
visual basic 程序设计课后习题参考答案
［Exit Function］ End Function
(4). Function 过程的调用方法： ①直接调用 像使用 VB 内部函数一样，只需写出函数名
和相应的参数即可 ②用 Call 语句调用 与调用 Sub 过程一样来调用 Function
过程，当用这种方法调用 Function 过程时，将会放弃返回值 3、简述 VB 过程中参数传递的两种方式。
第五章 数 组
4
一、选择题
1 2 3 4 5 6 7 8 9 10 DADEBBCCC A
二、填空题
1 2、12、1、3、-1、2 0123 2222
2 2101 4444
3 name、index 4 preserve、erase 5 ubound、lbound
第六章 过 程
一、选择题
1 2 3 4 5 6 7 8 9 10 DCDCBABAB D 11 12 13 14 15 16 17 18 19 20 ACCDABCDB C
二、填空题
1 bas 2 形式、实际 3 a()、Ubound(b)、n=n-1 4 30、70 5 fedcba、static
三、简答题
6 static 7 static 8 12、7 9 visual basic 程序设计 10 -100
1、简述事件过程和通用过程的含义和联系。
5
VB 应用程序是由过程组成的，过程是完成某种特殊功能的一 组独立的程序代码。VB 中的过程有两大类：事件过程和通用过程
Visual basic 程序设计习题参考答案
第一章 Visual basic 程序设计
一、选择题
1 2 3 4 5 6 7 8 9 10
DC
CDCBAC B
VisualBasic程序设计教程第版课后部分编程题参考答案(一)
VisualBasic程序设计教程第版课后部分编程题参考答案(一)Visual Basic 程序设计教程是程序员必备的一本教材。
而其第四版中也包含了大量课后编程题，能够帮助读者深入理解 Visual Basic 程序设计的核心内容。
本文就来为大家介绍一下这部分编程题的参考答案。
一、数据类型和运算符1. 将两个整数相加Dim num1, num2, result As Integernum1 = 10num2 = 20result = num1 + num2MsgBox ("The result of adding " & num1 & " and " & num2 & " is " & result & ".")2. 将两个小数相减Dim num1, num2, result As Doublenum1 = 2.5num2 = 1.2result = num1 - num2MsgBox ("The result of subtracting " & num2 & " from " & num1 & " is " & result & ".")3. 将两个字符拼接在一起Dim str1, str2, result As Stringstr1 = "Hello"str2 = "World"result = Str1 + Str2MsgBox ("The result of concatenating " & str1 & " and " & str2 & " is " & result & ".")二、程序结构和函数1. 将两个整数相加并返回结果Public Function Add(ByVal num1 As Integer, ByVal num2 As Integer) As IntegerDim result As Integerresult = num1 + num2Return resultEnd Function2. 获取当前日期和时间Dim currentDateTime As StringcurrentDateTime = Now()MsgBox ("The current date and time is " & currentDateTime & ".")3. 显示一个消息框并返回用户的选择Dim userInput As IntegeruserInput = MsgBox("This is a prompt. Would you like tocontinue?", vbYesNoCancel, "Message Box Test")MsgBox ("Your choice was " & userInput & ".")三、数组和结构1. 将一个整数数组按照升序排列Dim numArray() As IntegernumArray = {5, 10, 2, 8, 1}Array.Sort(numArray)MsgBox ("The sorted array is " & Join(numArray, ", ") & ".")2. 创建一个结构体表示一个人，包含姓名、年龄和性别字段Public Structure PersonPublic Name As StringPublic Age As IntegerPublic Gender As StringEnd Structure3. 创建一个数组表示一个班级的学生，使用 Person 结构体表示每个学生的信息Dim students(2) As Personstudents(0).Name = "Tom"students(0).Age = 16students(0).Gender = "Male"students(1).Name = "Jane"students(1).Age = 15students(1).Gender = "Female"students(2).Name = "Bob"students(2).Age = 17students(2).Gender = "Male"四、文件和数据库1. 读取一个文本文件中的内容并显示Dim filePath As String ="C:\Users\UserName\Documents\MyFile.txt"Dim fileText As StringfileText = File.ReadAllText(filePath)MsgBox ("The contents of the file are " & fileText & ".")2. 将一个字符串写入到一个新建的文本文件中Dim filePath As String ="C:\Users\UserName\Documents\NewFile.txt"Dim fileContent As StringfileContent = "This is the content of the new file."File.WriteAllText(filePath, fileContent)MsgBox ("The file was created and the following content was written to it: " & fileContent & ".")3. 从一个 SQL 数据库中查询某个表格的内容Dim connectionString As String = "DataSource=myServerName;Initial Catalog=myDataBase;UserId=myUsername;Password=myPassword;"Dim query As String = "SELECT * FROM myTable"Dim dataTable As New DataTable()Using connection As New SqlConnection(connectionString)connection.Open()Using command As New SqlCommand(query, connection)Using adapter As New SqlDataAdapter(command)adapter.Fill(dataTable)End UsingEnd UsingEnd UsingMsgBox ("The following records were retrieved from the database: " & vbNewLine & DataTableToString(dataTable))这些编程题的参考答案可以帮助读者理解 Visual Basic 程序设计的一些基本概念和技术，希望读者能够结合自己的实际情况进行学习和练习，不断提高自己的编程水平。
《Visual Basic程序设计教程》习题参考答案
第1章习题一、选择题1. B2. A3. B4. A二、填空题1. 事件驱动或消息驱动2. 工程资源管理器、窗体三、问答题1. 11个菜单项。
文件菜单包括新建工程、打开工程、添加工程、移除工程、保存工程、工程另存为、保存窗体文件、窗体文件另存为、打印、打印设置、生成可执行文件等命令项；编辑菜单（命令项略，以下同）、视图菜单、工程菜单、格式菜单、调试菜单、运行菜单、查询菜单、图表菜单、工具菜单、外接程序菜单、窗口菜单、帮助菜单。
2. 可以自行定义。
标准工具栏中有添加工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、恢复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口等按钮。
四、编程题（略）第2章习题一、选择题1. A二、练习题1. S1. 把x赋值给同类型变量t；S2. 把y赋值给x；S3. 把t赋值给y。
2. S1. 输入a、b、c；S2. 如果a<b，则交换a与b的数据；S3. 如果a<c，则交换a与c的数据；S4. 如果b<c，则交换b与c的数据；S5. 输出a、b、c。
3. S1. 输入整数N；S2. 给整数K赋值2；S3. 如果K大于N-1，则转S6；S4.如果N除以K 的余数为0，则转S7；S5. K加1再赋值给K，转S3.；S6. 如果K大于N-1，则N为素数；否则N不是素数。
4. S1. 输入整数N；S2. 将N赋值给K；S3. 给整数nx赋值0；S4. 计算nx乘以10加K除以10的余数，再赋值给nx；S5. 计算K除以10的整数商，赋值给K；S6. 如果K>0，则转S4；否则，转S7；S7. 如果N=nx，则N为回文数，否则N不是回文数。
5.6.第3章习题一、选择题1. D2. C3. A4. B5. D6. A7. B8. D9. B 10. D 11. A . 12. C 13. C 14. C二、填空题1. 标题、引用2. ②④⑤3. 64. GotFocus、Resize5. AddItem、Clear6. Label，CommandButton，OptionButton，CheckBox，Frame、TextBox，ListBox，ComboBox7. PictureBox，Frame8. OptionButton，CheckBox，HScrollBar，VScrollBar、OptionButton、CheckBox，HScrollBar，VScrollBar三、问答题1. 答：对象的只读属性的属性值（如名称属性）只能在设计界面时在属性窗口进行设置；非运行属性的属性值则既可在设计界面时在属性窗口进行设置，也可通过程序代码进行设置与修改。
Visual Basic基础练习题+答案
Vb基础练习题班级：___________姓名：___________1．在VB集成开发环境中，要进入运行模式，可以执行“运行”菜单中的“启动”命令，也可以单击工具栏上的( )A． B． C． D．2．算法是求解某一问题的步骤和方法。
算法的输出结果至少应有( )。
A．0个 B．1个 C．2个 D．3个3．在ＶB中，用来描述对象的外部特征称为对象的( )。
A．事件 B．方法 C．属性 D．驱动4．VB中标签控件（Label）具有的功能是（）。
A．输入文本 B．显示文本 C ．计时 D．显示时间5．如下图所示，在Visual Basic工程设计中，要在命令按钮command1中显示“确定”，则下列操作正确的是( )A．在Text属性值中输入“确定”B．在Caption属性值中输入“确定”C．在Font属性值中输入“确定”D．在Name属性值中输入“确定”6．下列关于"控件"属性的说法正确的是( )A、控件的每一个属性都具有同样的默认值；B、所有对象都具有同样的属性；C、控件的属性只能在设计时设置，不能在运行时修改；D、单击窗体中的某控件，在属性窗口中的属性列表框中找到所要设置的属性，即可设置其属性值；7．方小舟同学用VB制作程序界面，如下图所示要将按钮上显示的“Command1”改成“退出”，应该修改的是（）。
A．①名称属性 B．②BackColor属性 C．③Caption属性 D．④Default属性8．在Visual Basic 中，赋值语句chepai="浙D ．V8888"中的"浙D ．V8888"是( ) A ．字符串常量 B ．数值常量 C ．逻辑常量 D ．实数常量 9．在VB 中，下列选项属于字符串型数据的是( )A ．2356B ．"BX277"C ．BX277D ．2014-5-28 10．在Visual Basic 代码窗口中，语句Student.Text="宋知国"中的Text 是（ ） A 、属性值 B 、属性名 C 、对象名 D 、窗口名 11． 以下合法的变量名是（ ）A ．A-B B ．forC ． a_1D ．4S 12．以下哪个是函数_____。
visual_Basic程序设计教程_课后习题答案及练习
第一章Visｕal Baｓiｃ程序设计概述
一、填空题
1、VisuaｌBaｓｉc就是一种面向______＿＿_＿得可视化程序设计语言,采取了__________得编程机制。
2、在VB中工程文件得扩展名就是_＿＿__＿______,窗体文件得扩展名就是______＿__＿__,标准模块文件得扩展名就是__________＿_。
B.一个工程文件由若干个窗体文件组成
Ｃ.不需要编写大量代码来描述图形对象ﻩ
D.所见即所得
3、下列不能打开属性窗口得操作就是( )
A。执行“视图”菜单中得“属性窗口”命令
B.按F4键C.按Ctｒl＋T
Ｄ.单击工具栏上得“属性窗口”按钮
4、下列可以打开立即窗口得操作就是( )
A.Ctrl+ＤB、Ｃtrl+EC。Ctｒl+FD.Ｃtｒｌ＋G
D。文本框得ＬOCＫED属性为FALSE
1２、在运行阶段,要在文本框TEXT1获得焦点时选中文本框中所有内容,对应得事件过程就是()
A.Ｐrivａte SｕｂText１＿GotFocus( )
Ｔext１、SelＳtaｒｔ＝０
Texｔ1。Sellength=Lｅn(Ｔext1。Tｅxt)
EｎdＳｕｂ
B.PｒｉvａｔｅSuｂTｅxｔ1_LostFｏｃｕs( )
４、设置控件背景颜色得属性名称就是＿_＿_＿_＿____________＿＿_。
5、所有控件都具有得共同属性就是__＿_＿____＿___＿_＿__属性。
6、一般情况下,控件有两个属性项得缺省值就是相同得,这两个属性项就是___＿__＿__＿__＿__。
7、VＢ中得每个对象(控件)都有一组特征,这组特征称为_____＿_＿__,我们通过修改它可以控制对象得外观与操作、
visual_Basic程序的设计教程_课后习题答案及练习
visual_Basic程序的设计教程_课后习题答案及练习《VB程序设计》综合复习资料第一章 Visual Basic程序设计概述一、填空题1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令B．按F4键 C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化 B．面向对象 C．面向图形 D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
VisualBasic程序设计课后题答案
Vb课后题答案参考答案第1章概述第3章常用标准控件二．选择题：1.C2. B3.C.4.D5.B6.B7.A8.C9.B 10.C11.C 12.A 13.C 14.B 15.D16.D 17.C 18.A 19.D 20.A 21.B三．编程及上机调试：1.Private Sub Check1_Click()If Check1.Value = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenText1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check3_Click()If Check1.Value = 1 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Command1_Click()Text1.Text = " "End Sub2.Private Sub Command1_Click()Text2.Text = List1.ListCountPrivate Sub Command2_Click()List1.AddItem Text1.TextText1.Text = " "End SubPrivate Sub Command3_Click()Dim i As Integeri = List1.ListIndexList1.RemoveItem iCommand3.Enabled = FalseText1.SetFocusText2.Text = List1.ListCountEnd SubPrivate Sub Form_Load()Command3.Enabled = FalseEnd SubPrivate Sub List1_Click()Command3.Enabled = TrueEnd Sub第4章VB语言基础二．选择题：1.A2. D3.D.4.A5.A6.A7.C8.D9.C 10.B11.A 12.D 13.C 14.A 15.A16.C 17.D 18.A 19.B 20.D21.C 22.A 23.B 24.C 25.C三．编程及上机调试：1．Private Sub Form_Load()Dim x As Integer, s As String, d As IntegerRandomizex = Int(Rnd * 9000 + 1000)s = Trim(CStr(x))d = Val(Right(s, 1) + Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1))ShowPrint "产生的数；"; x; "倒序数"; dEnd Sub2．Private Sub Form_KeyPress(KeyAscii As Integer)Print "输入字符:"; Chr(KeyAscii), "ASCII码为:"; KeyAsciiPrivate Sub Form_DblClick()ClsEnd Sub3．Private Sub Form_Click()MsgBox "在这里显示提示" & vbCrLf & "提示信息", 2 + 16, "请确认"End Sub或Private Sub Form_Click()MsgBox "在这里显示提示" + Chr(13) + "提示信息", vbAbortRetryIgnore _ + vbCritical, "请确认"End Sub第5章程序控制结构二．单选题1.D2. C3.C.4.D.5.B6.C7.A8.A9.D 10.C11.C 12.C 13.B 14.B四．编程及上机调试1. Private Sub Form_Click()Dim x As Integer, y As Integerx = InputBox("请输入一个数值")If x > 20 Theny = x ^ 2 + 3 * x + 2ElseIf x >= 10 Theny = Sqr(3 * x) - 2ElseIf x > 0 Theny = 1 / x + Abs(x)End IfPrint "x="; x, "y="; yEnd Sub（2）Select Case实现：Private Sub Form_Click()Dim x As Integer, y As Integerx = InputBox("请输入一个数值")Select Case xCase Is > 20y = x ^ 2 + 3 * x + 2Case 10 To 20y = Sqr(3 * x) - 2Case Is > 0y = 1 / x + Abs(x)End SelectPrint "x="; x, "y="; yEnd Sub2.Private Sub Form_Click()Dim a As Integer, b As Integer, c As IntegerFor i = 100 To 999a = i \ 100b = (i - a * 100) \ 10c = i Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = i ThenPrint i;k = k + 1If k Mod 2 = 0 Then PrintEnd IfNext iEnd Sub3．Private Sub Command1_Click()p = 60: r = 0.014Dop = p * (1 + r)n = n + 1Loop Until p >= 70Print n; "年后世界人口达到"; p; "亿"End Sub4．Private Sub Command1_Click()Dim s As Single, x As Integer, t As Single, n As Integer x = Val(InputBox("请输入x的值", , 2))s = 1n = 1m = 1Don = n + 1m = -mt = m * n / x ^ (n - 1)If Abs(t) < 0.00001 Then Exit Dos = s + tLoopPrint sEnd Sub第6章数组二．单选题：1.A2.A.3.A4.C5.D6.D7.A8.D9.B 10.B四.编程及上机调试:1.Option Base 1Private Sub Form_Click()Dim a(10) As IntegerDim i As Integer, t As IntegerPrint "数组的原始数据为：";For i = 1 To 10a(i) = Int(11 * Rnd) + 10Print a(i);Next iPrintPrint "变化后数组数据为：";For i = 1 To 5t = a(i)a(i) = a(10 - i + 1)a(10 - i + 1) = tNext iFor i = 1 To 10Print a(i);Next iEnd Sub2.Option Base 1Private Sub Form_Click()Dim a(3, 4) As Integer, i As Integer, j As Integer, k As Integer, p As Integer RandomizeFor i = 1 To 3For j = 1 To 4a(i, j) = Int(90 * Rnd + 10)Print a(i, j);Next jPrintNext iMax = a(1, 1): k = 1: p = 1For i = 1 To 3For j = 1 To 4If a(i, j) > Max ThenMax = a(i, j)k = ip = jEnd IfNext jNext iPrint "最大的数为第" & k & "行，第" & p & "列的数：" & MaxEnd Sub3.Option Base 1Dim a(4, 5) As Integer '在窗体声明段声明数组Dim i As Integer, j As IntegerPrivate Sub cmdmatrix_Click() '"生成数组"按钮RandomizeFor i = 1 To 4For j = 1 To 5a(i, j) = Int(Rnd * 10) '一位的随机数Picture1.Print a(i, j); '输出元素Next jPicture1.PrintNext iEnd SubPrivate Sub cmdcol_Click() '"求列和"按钮Dim colsum As Integertxtcol.Text = ""For j = 1 To 5 '列变量先循环colsum = 0For i = 1 To 4colsum = colsum + a(i, j)Next itxtcol.Text = txtcol.Text & Str(colsum)Next jEnd SubPrivate Sub cmdrow_Click() '"求行和"按钮Dim rowsum As Integertxtrow.Text = ""For i = 1 To 4 '行变量先循环rowsum = 0For j = 1 To 5rowsum = rowsum + a(i, j)Next jtxtrow.Text = txtrow.Text & CStr(rowsum) & vbCrLfNext iEnd SubPrivate Sub cmdclear_Click() '"清除"按钮Picture1.Clstxtcol.Text = ""txtrow.Text = ""End SubPrivate Sub cmdexit_Click() '"结束"按钮EndEnd Sub4. Option Base 1Private Sub Form_Click()Dim a() As Integer, b() As Integer, i As Integer, j As Integer, x As Integer, y As Integer x = InputBox("第一维上界")Do While Not IsNumeric(x)x = Int(InputBox("第一维上界"))Loopy = InputBox("第二维上界")Do While Not IsNumeric(x)y = Int(InputBox("第二维上界"))LoopReDim a(x, y)Print "原数组元素为："For i = 1 To xFor j = 1 To ya(i, j) = Int(90 * Rnd) + 10Print a(i, j);Next jPrintNext iPrint "转置后数组元素为："For i = 1 To yFor j = 1 To xPrint a(j, i);Next jPrintNext iEnd Sub5. Option Base 1Private Sub Form_Click()Dim a(10, 10) As Integer, i As Integer, j As IntegerFor i = 1 To 10For j = 1 To 10If i = j Or i + j = 11 Thena(i, j) = 0Elsea(i, j) = 1End IfPrint a(i, j);Next jPrintNext iEnd Sub6. Option ExplicitOption Base 1Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Integer, k As Integer, a(11) As Integerj = 1For i = 3 To 21 Step 2a(j) = iPrint a(j);j = j + 1Next iPrintn = InputBox("请输入一个数")For i = 1 To 10If n = a(i) ThenFor j = i To 10a(j) = a(j + 1)k = k + 1Next jEnd IfNext iFor i = 1 To 9Print a(i);Next iEnd Sub7. Option Base 1Private Sub Form_Click()Dim a As Variant, k As Integer, i As Integer, j As IntegerDim b As Variantb = Array(17, 35, 128, 235, 89, 121, 143, 189, 231, 94)a = Array(11.3, 12.3, 12#, 11.8, 12.6, 11.6, 12.8, 11.8, 12.4, 12.1)For i = 1 To 9 '对数组a的元素排序k = iFor j = i + 1 To 10If a(k) > a(j) Then k = jNext jIf k <> i Then '数组b的元素随数组a的元素一起变动t = a(i)a(i) = a(k)a(k) = tt = b(i)b(i) = b(k)b(k) = tEnd IfNext iPrint "按名字的排列顺序为："For i = 1 To 10If Len(b(i)) = 2 Then b(i) = "0" & b(i) '补上数组b中长度为２的编号前的"0"Print "第" & i & "名的号码为：" & b(i) & "，成绩为：" & a(i)Next iEnd Sub。
《Visual Basic程序设计教程(第2版)》课后部分编程题参考答案
第1章1.按要求设置窗体属性2．在窗体上建立一个标签Label1。
程序代码如下：Private Sub Form_Click()Label1.Caption="你单击了窗体"End SubPrivate Sub Form_DblClick()Label1.Caption="你双击了窗体"End Sub3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。
两个文本框的Text属性均为空。
Private Sub Command1_Click()Dim x As Singlex=Val(Text1.Text)Text2.Text=15*xEnd Sub第2章1～3题：按要求完成操作练习。
4．Private Sub Command1_Click()'"最大化"按钮Form1.WindowState=2'最大化End SubPrivate Sub Command2_Click()'"还原"按钮Form1.WindowState=0'还原End SubPrivate Sub Command3_Click()'"最小化"按钮Form1.WindowState=1'最小化End Sub5．在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。
Private Sub Command1_Click()Dim x As SingleDim y As Singlex=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=x*x+y*yEnd Sub6.在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
优先顺序：^(乘方)-(求负)*、/\(整除)MOD+、-）
五、写出下列函数的结果
（1）3（2）2（3）-2（4）0（5）2（6）23（7）23（8）1（9）1（10）21 日期差分函数，参数“m”为两年月份之差
六、写出满足以下条件的表达式
18.Mouse Down,Click,LoastFocus
19..Frm,.Frx,.bas.cls.Vbp20.注释,“Rem语句”或者“’语句”
第二章数据的类型、表示以及运算
一、请指出下列哪些是VB的合法常量，并说明原因
（1）√（2）X常量不能加类型说明符号改成123.4（3）X与上题类似，如果是常量，则类型说明符放在后面（4）√等价于2E3(5)√（6）√ 等于十进制的4113(7)X 如果是16进制要写&am11）√（12）√ 等价于上一题(13)X 8进制数每一位不能超过8（14）√（15）X变量，常量要为基本数据类型的值（16）√
第一章程序与编程环境
一、填空题
1.工程，Form_Load2.事件（触发）3.窗体，Name
4.CurrentX,CurrentY5.maxButton,BorderStyle = 1 or 3 or 4 or 5
6.Alignment,空缺，AutoSize7.Style,LoadPicture8.Line,Shape
(2)改1：
A=x
A= a+a
B=x
B=2*b
改2：
A=a+x+x
B=2*(x+b)
第三章程序界面与基本输入输出
一、填空题
1．Textbox,Inputbox,Label,Textbox,Msgbox,Print
2.“,”,“;”,CurrentX,CurrentY
3.Print
4.AutoSize,Stretch
（6）X 变量声明不能直接赋值
（7）√
（8）√ 自动转换成字符串
（9）X 常量不能把函数写上去
（10）√
四、 写出下列表达式的结果
（1）1(2) 1(3)false(4) ab12(5)123(6)出错，加法表达式中如果有一个是数值类型，则“+”表示加号，而不是字符的链接符号（7）False(8)true(9) true(10) false 默认转换成相同类型（数值），建议这里把2改成D试试
(10)A=“及格”XOR B=“及格”(11)Round(A/B,2)(12)Len(A)<>0 或 Len(A)>0
(13)“A10?”(14) Len(A)>=3
七、填空题
1.“”,# #2.x>=10 and x<203.(y mod 3=0) or (y mod 7 =0)
4.sin(x)^2 + (1/2)*sqr(x^2-y^2)5.16
12.Enabled,Visible
第4章控制结构
一、判断题
1．X
2. X
3.√
4. X 循环体中改变其值
5.√
二、填空题
1.顺序，选择，循环
2.“A”,”E”, chr(97),“A”to“Z”,Is>0,Else
3.死循环
4.设置计数器
5.True/False,0/1
6.0,ListCount-1
二、找出合法变量
（1）√（2）√ 如果与控件Label1同在一个应用程序里面，该变量会屏蔽掉控件Label1(3) X 保留字（4）√（5）X 变量不能以数字开头 （6）变量不能有小数点（7）√（8）√ 数组变量（9）X保留字（10）√ 可以，但rnd()不可以，rnd()是函数(11)√（12）√（13）√（14）X’符号表示注释（15）X 这是表达式，不是变量（16）X 同上，是表达式
5.Textbox,Label,Textbox,True
6.Text1=””,Picture1.cls
7.Integer,String
8.Textbox,Check,Option,Combo,List
9..setFocus,失去焦点
10.Min,Max,Scroll,Change
11.TabIndex
（1）fix(rnd()*90)+10(2)chr(fix(rnd()*26)+65)(3) (A mod 100)\10
(4) A mod B<>0(5)A>“A”and A<“Z”(6) A<B OR A<C(7)A>C AND B>C
(8) (A>C AND B<C) OR (A<C AND B>C)(9) A+B>C AND B+C>A AND C+A>B
9.重画10.FillStylell. MultiLine,maxLength,Locked12. Font
13.sub,对象名，事件名14.方法，Object.Method,text1.setfocus()
,minButtom,CurrentX(Y),Caption
16.Interval,Enable17.timer,Interval,ms(毫秒)
三、指出下列数据x,y,z的声明是否正确，如果正确请指明其类型
（1）√ x--long, y—variant, z—integer
(2) √ x—long, y—long, z—integer
(3)√ x—double, y—double, z—integer
(4) X 变量x &中间不能有空格
（5）√ 自动转换成字符串
15.Now()16.DateDif(#2011-5-1#,now(),“m”)
八、请指明下列程序运行后，各个变量的值
（1） 35
（2） 120
(3) False
(4) -3
九、 分析下面程序中的错误并修改，使其能够完成指定的功能
（1）Print 20000+0&+20000
或 Print 20000&+20000&
6.T,F7.SIN(ATN(1))8.Randomize
9.(c>chr(97) and c<chr(122)) or (c<chr(48) and c>chr(57))
10.vbCrLf11.CInt(),0
12.从第12个月开始，循环一年12个月
13.ab,cd014.Variant, String, Integer