VB6.0课后题及常见操作题代码解析
第四章1、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。
通过inputbox 函数输入数据，在窗体上显示和及平均值。
Dim a as singleFor i=1 to 4a=inputbox（“请输入一个数：”，“数据输入”）sum=sum+an=n+1avg=sum/nnext iprint “和是：”,sumprint “平均值是：”，avg2、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。
Dim a as variantFontsize=20a=inputbox（“请输入姓名：”，“数据输入”）print “姓名：”；aa=inputbox（“请输入年龄：”，“数据输入”）print “年龄：”；aa=inputbox（“请输入通信地址：”，“数据输入”）print “通信地址：”；aa=inputbox（“请输入邮政编码：”，“数据输入”）print “邮政编码：”；aa=inputbox（“请输入电话：”，“数据输入”）print “电话：”；a3．a=5，b=2.5，c=7.8，编程序计算：y=（πab）/（a+bc）程序：Dim a as single，b as single，c as singlea=5b=2.5c=7.8pi=3.14y=（pi*a*b）/（a+b*c）print “结果是：”;y4、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。
Dim a as long，d as integer ，h as integer，s as integera=inputbox（“请输入秒数：”，“数据输入”）d=int（a/86400）h=int（（a-d*86400）/3600）s=a-d*86400-h*3600print d；“日”；h；“时”；s；“秒”5、自由落体位移公式为：s=gt2/2+v0t其中v0为初始速度，g为重力加速度，t为经历的时间，编写程序，求位移量s。
设v0=4.8m/s，t=0.5s，g=9.81m/s2，在程序中把g定义为符号常量，用inputbox函数输入v0和t两个变量的值。
Dim v as single，t as single，s as singleg=9.81v= inputbox（“请输入初始速度：”，“数据输入”）v=val（v）t=inputbox（“请输入经历的时间：”，“数据输入”）t=val（t）s=g*t*t/2+v*tprint “位移量是：”;s6．编程计算并输出S的值:s=2+4+6+8+…+100dim i,s as integers=0for i=2 to 100 step 2s=s+inextprint s7、给定三角形的3条边长，计算三角形的面积。
编写程序：首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出三角形的面积，否则要求重新输入。
当输入-1时结束程序。
Dim a as single；b as single；c as singleStart:a = inputbox(“请输入第一条边长-1结束：”,”数据输入”)a=val（a）if a=-1 thenendend ifb=inputbox（“请输入第二条边长”，“数据输入”）b=val（b）c=inputbox（“请输入第三条边长”，“数据输入”）c=val（c）if a+b<=c or a+c<=b or b+c<=a thenmsgbox（“您输入的三条边长不能构成三角形，请重新输入！”）goto startelsel=（a+b+c）/2s=sqr（l*（l-a）*（l-b）*（l-c））end ifprint “三角形的面积为：”；s8、税务部门征收所得税，规定如下：（1）收入在200元以内，免征（2）收入在200-400元内，超过200元的部分纳税3%（3）收入超过400元的部分，纳税4%（4）当收入达5000元或超过时，将4%税金改为5%编写程序实现上述操作。
Dim x as single，y as singlex=inputbox（“请输入收入！”，“数据输入”）x=val（x）if x<=200 theny=0elseif x>200 and x<400 theny=(x-200)*0.03elseif x>=400 and x<5000 theny=(x-400)*0.04+200*0.03elseif x>=5000 theny=(x-400)*0.05+200*0.03end ifprint “需要纳税的金额为：”;y9、假定有一下每周工作安排：星期一、三：讲计算机课星期二、四：讲程序设计课星期五：进修英语星期六：政治学习星期日：休息试编写一个程序，对上述工作日程进行检索。
程序运行后，要求输入一周里的某一天，程序将输出这一天的工作安排。
在输入时用0-6分别代表星期日到星期六，如果输入0-6之外的数，则程序结束运行。
Dim x as integerx=inputbox（“请输入一个整数进行检索：”，“数据输入”）select case xcase 0y=“休息”case 1y=“讲计算机课”case 2y=“讲程序设计课”case 3y=“将计算机课”case 4y=“将程序设计课”case 5y=“进修英语”case 6y=“政治学习”case elseendend selectprint y10。
vb数字金字塔1 121 12321一直到9Private Sub Form_Click()Dim a(1 To 9) As IntegerFor j = 1 To 9a(j) = jNext jFor i = 1 To 9Print Tab(30 - i * 3);For j = 1 To 2 * i - 1If j > i ThenPrint a(2 * i - j);ElsePrint a(j);End IfNext jNext iEnd Sub11．勾股定理中三个数的关系是a*a+b*b=c*c。
编写程序，输出30以内满足上述关系的整数组合。
例如3，4，5就是一个满足要求的整数组合Private Sub Command1_Click()Dim Max As Integer, I As Integer, J As Integer, KMax = 30For I = 3 To Max - 2For J = I + 1 To Max - 1K = Sqr(I ^ 2 + J ^ 2)If K = Int(K) And K <= Max Then Print I, J, KNextNextEnd Sub12．如果一个数的因子之和等于这个数的本身，则称这样的数为“完全数”。
例如，整数28的因子为1，2，4，7，14，其和1+2+4+7+14=28，因此28是一个完全数，编写一个程序，从键盘上输入整数M和N，求出M和N之间的所有的完全数form load()'int i,j,m,n,summ =inputbox("输入最小正整数")n =inputbox ("输入最大正整数")for j=m to nsum=0for i=1 to jif (j mod i=0) and (i <>j ) then sum=sum inextif j=sum then print sum & " 是完全数"nextprint "查找完毕"beepend sub13．从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号和考试成绩，并根据成绩按下面的规定输出对该学生的评语：成绩 80～100 60～79 50～59 40～49 0～39评语 very good good fair poor fail(所需控件：三个标签,两个文本框，一个命令按扭)Private Sub Command1_Click()Dim s$, a$, mark!s = Text1.Textmark = Val(Text2.Text)Select Case markCase Is < 40a = "fail"Case Is < 50a = "poor"Case Is < 60a = "fair"Case Is < 80a = "good"Case 80 To 100a = "very good"End SelectPrint "学号：" & s & vbCrLf & "成绩评定为" & aEnd Sub14．一个两位的正整数，如将它的个位数字与十位数字对调，则产生另一个正整数，我们把后者叫做前者的对调数。
如给定一个两位的正整数，请找到另一个两位的正整数，值得这两个整数之和等于他们各自的对调数之和，例如，12+32=21+23.编写程序，输入一个两位的正整数，把具有这种特征的每一对两位正整数都找出来Private Sub Command1_Click()Dim a As StringDim i As Longa = InputBox("输入一个两位的正整数:")If Val(a) <= 0 Or Val(a) >= 100 ThenMsgBox "输入不合法"Exit SubEnd IfFor i = 1 To 99If Val(a) + i = Val(getDuiTiao(a)) + getDuiTiao(CStr (i)) ThenDebug.Print iEnd IfNextEnd SubPrivate Function getDuiTiao(ByVal vStr As String) As StringDim strTmp As StringstrTmp = Right(CStr(vStr), 1) & Left(CStr(vStr), 1)getDuiTiao = strTmpEnd Function|14、编写程序，打印出“杨辉三角”图形。
For i=1 to 9Print tab（30-i*3）;For j = 1 to iPrint j;Next jFor j= i-1 to 1 step -1Print j;Next jPrintNext i第五章1.从键盘上输入20个整数，并放入一个一维数组中，然后将其前10个元素与后10个元素对换，即：第1个元素与第20个元素互换，第2个元素与第19个元素互换……第10个元素与第11个元素互换。
vb6.0第六章 习题解答
习题六一、选择题答案Aadcc dc二、填空题答案1、a(I,j)+b(I,j)2、下标越界3、64、1 2 2 4 3 6第六章选择题部分解析3、sum表示a数组各元素的和X表示a数组元素和的平均值最后打印出a数组中大于平均值的元素Sum=1+2+3+4+5=15，x=3大于3的有4，55、倒着看文本框中显示什么？答：显示的是array1（1，3）+array2（2，3）的和接着往前看程序发现array1（i，j）=i+j所以array1（1，3）=1+3=4Array2(2,3)=2+3=5所以4+5=9二、填空题解析2、x数组最大元素是x（6）退出for循环时，i=7然后print x（i）相当于print x（7）但是没有x（7）这个元素，超出最大下标了。
若把print x（i）改为print x（a）则值是36第六章编程题1、Private Sub Form_Click()Dim a(1 To 20) As Integer, i As IntegerDim j As Integerj = 0 '用来表示小于60的个数Picture1.Print "产生的数组为:"Picture1.PrintPicture2.Print "其中小于60的元素有:"Picture2.PrintFor i = 1 To 20a(i) = Int(Rnd * 100 + 1)Picture1.Print a(i);If i Mod 10 = 0 Then Picture1.PrintIf a(i) < 60 Thenj = j + 1Picture2.Print a(i); " ";If j Mod 10 = 0 Then Picture2.PrintEnd IfNext iEnd SubPrivate Sub Form_Load()RandomizeEnd Sub2、Private Sub Form_Click()Dim a(1 To 10) As IntegerDim max As Integer, min As Integer, i As IntegerFor i = 1 To 10a(i) = Int(Rnd * 90 + 10)Picture1.Print a(i);If i Mod 5 = 0 Then Picture1.PrintNext imax = a(1)min = a(1)For i = 2 To 10If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iLabel1.Caption = "最大数为：" & maxLabel2.Caption = "最小数为：" & minEnd SubPrivate Sub Form_Load()RandomizeEnd Sub3、Dim a(1 To 20) As IntegerPrivate Sub Command1_Click()Dim x As Integer, flag As Integer, i As Integerflag = 0 '标志，表示数组中是否存在xx = InputBox("请输入x的值，为整数", "输入", 1) For i = 1 To 20If x = a(i) Thenflag = 1 'flag改变，说明存在Exit ForEnd IfNext iIf flag = 1 ThenPrint "数组中存在" & xPrint "位置：" & iElsePrint "数组中不存在" & xEnd IfEnd SubPrivate Sub Form_Click()Dim i As IntegerFor i = 1 To 20 '生成数组a(i) = Int(Rnd * 100) '题目没要求，随便的范围Next iFor i = 1 To 19 '冒泡排序For j = 20 To i + 1 Step -1If a(j) > a(j - 1) Thent = a(j)a(j) = a(j - 1)a(j - 1) = tEnd IfNext jNext iFor i = 1 To 20 '打印数组Print a(i);If i Mod 5 = 0 Then PrintNext iEnd SubPrivate Sub Form_Load()RandomizeEnd Sub4、Private Sub Form_Click()Dim a(1 To 15) As SingleDim i As Integer, c1 As Integer, c2 As Integer, c3 As Integer, avg As SingleFor i = 1 To 15a(i) = InputBox("请输入第" & i & "个学生的成绩", "输入成绩", 60)avg = avg + a(i)Next iavg = avg / 15For i = 1 To 15If a(i) > avg Then c1 = c1 + 1If a(i) < 60 Then c2 = c2 + 1If a(i) >= 90 Then c3 = c3 + 1Next iPrint "高于平均分的人数"; c1Print "<60的人数"; c2Print ">=90的人数"; c3End Sub5、Dim a(1 To 4, 1 To 4) As Integer, b(1 To 4, 1 To 4) As Integer, c(1 To 4, 1 To 4) As IntegerPrivate Sub Command1_Click()‘（2）题For i = 1 To 4For j = 1 To it = a(i, j)a(i, j) = a(j, i)a(j, i) = tNext jNext iPicture2.ClsPicture2.Print "a转置后："Picture2.PrintFor i = 1 To 4For j = 1 To 4Picture2.Print a(i, j); " ";Next jPicture2.PrintNext iEnd SubPrivate Sub Command2_Click()‘（3）题Picture2.ClsMax = c(1, 1)t1 = 1t2 = 1For i = 1 To 4For j = 1 To 4If c(i, j) > Max ThenMax = c(i, j)t1 = it2 = jEnd IfNext jNext iPicture2.Print "max=", MaxPicture2.Print "c("; i; ","; j; ")"End SubPrivate Sub Command3_Click()‘（4）题Picture1.ClsPicture2.ClsFor i = 1 To 4For j = 1 To iPicture1.Print a(i, j); " ";Next jPicture1.PrintNext iFor i = 1 To 4For j = i To 4Picture2.Print Tab(j * 5); b(i, j);Next jPicture2.PrintNext iEnd SubPrivate Sub Command4_Click()‘（5）题Picture1.ClsFor i = 1 To 4t = a(1, i)a(1, i) = a(3, i)a(3, i) = tNext iFor i = 1 To 4For j = 1 To 4Picture1.Print a(i, j); " ";Next jPicture1.PrintNext i End SubPrivate Sub Command5_Click()‘（1）题Picture3.Print "c矩阵："Picture3.PrintFor i = 1 To 4For j = 1 To 4c(i, j) = a(i, j) + b(i, j)Picture3.Print c(i, j); " ";Next jPicture3.PrintNext iEnd SubPrivate Sub Form_Load()ShowPicture1.Print "a矩阵："Picture1.PrintPicture2.Print "b矩阵："Picture2.PrintFor i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 40 + 30)b(i, j) = Int(Rnd * 35 + 101)Picture1.Print a(i, j); " ";Picture2.Print b(i, j); " ";Next jPicture1.PrintPicture2.PrintNext iEnd Sub。
VB6.0实用教程_从入门到精通_试题
第一章 Visual Basic介绍第二章用户界面设计第三章编程的基础（含变量，常量，条件语句，循环语句，自定义变量，自定义过程，对象和类等基础）第四章 Windows 95的新控件Visual Basic的输入输出第五章 Visual Basic的鼠标事件和绘图第六章 Visual Basic的数据库、报表、预览、打印第七章从文件中存取资料第八章发行应用程序第九章使用Windows API和用Visual Basic建立自己的屏幕保护程序第十章创建ActiveX控件第十一章ActiveX文档第十二章用对象链接与嵌入（OLE）扩展Visual Basic第十三章使用资源文件第十四章用Visual Basic建立ActiveX DLL第十五章用Winsock控件进行Internet通信第十六章 Web浏览控件第一章Visual Basic介绍§2 窗体和命令钮介绍一、窗体窗体是Windows的基本组成部分，这也是为什么这个操作系统叫Windows的原因。
它的主要属性除上面介绍的以外，还包括：1，Appearance属性这个属性用来决定控件是否采用三维效果。
2，BorderStyle属性这个属性决定了窗体的边框形式，共有6种属性值。
改变窗体的BordrStyle属性后，窗体在屏幕上没有变化，它只在运行时才变为你所要求的样子。
3，ControlBox属性程序员用来决定是否采用控制框的属性，仅在程序运行时才有效。
4，Font属性程序员可以改变该窗体上显示信息的字体，它控制着直接在窗体上打印的文本显示。
5，Icon属性这个属性是用户经常要使用的一种属性。
当用户的应用程序在工具条上最小化或在Windows桌面上变为一个独立应用程序时，该属性决定将采用何种图标，窗体控制框里的图标也由它决定。
为自己的窗体设置该属性时，要控制住自己挑三拣四的冲动。
6，Visible属性该属性决定窗体是否可见。
错误地改变其值是很危险的，窗体会从眼前消失，这种莫名其妙的事情会使用户惊惶失措，所以肩负重任的程序员一定要慎重哟！7，WindowState属性指定窗体在运行时的三种状态：正常、最小化、最大化。
vb6.0实验六习题与答案
vb6.0实验六习题与答案实验六专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的1、认识常用控件：单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（Slider）、时钟、图形控件；2、学习在窗体中创建常用控件2、学习在属性窗口和在程序代码中设置属性3、学习调用控件的方法4、学习编写各控件和鼠标与键盘的事件过程二、实验内容1、单选按钮、复选框、框架1）设置窗体F1的标题为“复选框、框架和单选按钮”；在窗体中设置复选框Ch1、Ch2 Ch1和Ch2的高度和宽度分别为360和1000；并程序运行时，Check2处于非少许状态。
框架Fr1包含单选按钮Op1和Op2。
2）设计窗体，要求①标题为“设置字体”；②在窗体中设置有边框的标签控件Label1，高度和宽度分别为450和3800，标题为“欢迎使用VB”，字号为“四号”，居中显示；③标题为“字体”框架包含两个标题分别为“楷体_GB2312”和“华文新魏”的单选按钮Op1和Op2；④标题为“斜体”框架包含两个标题分别为“是”和“否”的单选按钮。
⑤编写相应控件的事件过程，使得程序运行时，单击“楷体_GB2312”，标签控件的字体为楷体_GB2312，单击“华文新魏”，标签控件的字体为华文新魏；单击“是”，标签控件的字体为斜体，单击“否”，标签控件的字体取消斜体。
Private Sub Option1_Click()Label1.FontName = Option1.CaptionEnd SubPrivate Sub Option2_Click()Label1.FontName = Option2.CaptionEnd SubPrivate Sub Option3_Click() Label1.FontItalic = TrueEnd SubPrivate Sub Option4_Click() Label1.FontItalic = FalseEnd Sub3）在窗体是设置设置框Text1，其中文字为：黑体、四号、居中；设置单选按钮Option1和Option2，标题分别为“福州大学”和“阳光学院”，编写行当的事件过程，使得程序时，单击“福州大学”或“阳光学院”，在文本框中显示“福州大学”或“阳光学院”。
《VisualBasic6.0程序设计》习题答案
《VisualBasic6.0程序设计》习题答案《Viusla Basic 6.0程序设计》习题答案习题1答案一、简答题1. 答：Windows应用程序通常以窗口形式运行，窗口上包含文本框、按钮等控件。
在Visual Basic中，采用“所见即所得”方式设计Windows应用程序，可以把控件直接拖放到窗口上，而不用编写代码来实现用户界面。
2. 答：在任务1中，窗体、标签和按钮都是对象，在设计过程设置了这些对象的许多属性，例如Caption属性等；还在按钮的Click事件中编写程序代码，以便在单击按钮时执行相应的操作。
二、填空题1. 窗体模块；标准模块；类模块2. 对象；过程3. 运行；启动4. .frm；.vbp三、选择题1. A2. D3. D4. B一、简答题1. 答：Visual Basic有以下基本数据类型：Byte（字节型）、Integer （整型）、Long（长整型）、Single（单精度浮点型）、Double（双精度浮点型）、Currency（货币型）、String（变长）、String（定长）、Variant（可变型数字）、Variant（可变型字符）、Boolean（布尔型）、Date （日期型）、Object（对象型）。
2. 答：Visual Basic的表达式分为以下4类：算术表达式、字符串表达式、关系表达式、布尔表达式。
3. 答：Print语句用于输出数字和文本，通常是把结果输出到窗体上。
4. 答：分支语句有两个：If语句和Select语句，它们都是根据条件来执行特定的语句。
5. 答：循环语句有3种语句：For、While和Do，For用于执行指定次数，While为先测试型循环语句，Do为后测试型循环语句。
6. 答：定长数组包含固定数目的元素，通过数组名和下标来访问每个元素。
7. 答：动态数组和定长数组的不同之处在于：动态数组的元素数可以动态改变。
8. 答：过程的参数有两种传递方式：按值传递参数和按地址传递参数。
精-VB6.0授课全套笔记-含大量案例及代码
第一章VB绪论一、常用单词：1、Form：窗体2、CommandButton:命令按钮3、TextBox:文本框4、Caption：显示窗体或者命令按钮上的文字5、Text：修改文本框的显示内容二、保存：注意存两个文件，窗体文件（.frm），工程文件（.vbp）三、生成可执行程序：【文件】-【生成……】-保存一个扩展名为.exe的文件第二章VB基础知识一、VB的特点Visual-可视或可见Basic-基础1、可视化的编程界面2、事件驱动机制3、面向对象二、基本概念：1、对象（Object）:任何事物都可以看做对象，VB中窗体和控件都是对象。
2、属性（Property）:对象的特点3、事件（Event）:发生在对象上的动作4、方法（Method）三、应用举例：1、一号对象——窗体（Form1）1）Caption:改窗体名称2）BackColor:背景色3）Height：高度4）Width:宽度2、二号对象——命令按钮（Command1,2,3）1）Caption:设置命令按钮的显示文本2）Height：高度3）Width:宽度3、三号对象——文本框（Text1）1) BackColor:背景色2)Font:字体3）ForeColor:字体颜色4）Text：显示文本5）Height:高度6）Width:宽度*利用【格式】菜单下的相关命令调整大小、对齐、锁定等四、代码：Private SubEnd SubClick：单击事件第三章创建简单应用程序一、加法器：功能：把两个数字（数值）相加将结果显示出来二、界面：窗体3个文本框（Text1,Text2,Text3）3个标签（Label1,Label2,Label3）3个按钮（Command1,Command2,Command3）三、代码：1、求和（加法）：Text3.text=Val(Text1.text)+Val(Text2.text)2、清除：3、关闭：四、知识点：1、Val（参数）：把文本格式转换为数值格式，参与计算2、Label——标签控件，起解释说明作用，一般不需加代码。
VB程序设计课后习题答案
VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后，误把Windows子目录删除。
当重新安装Windows后，是否需要再次安装VB6.0？答：要重新安装的。
因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。
3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。
5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装Visual Basic 6.0后，帮助系统是否也已安装？答：没有。
VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用Visual Basic 6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定内容有关的帮助信息。
vb6.0代码
Chr(asc)：转换ASCII为字符 Enter：Chr(13)&Chr(10)
Filter(数组名称,关键字符串,[,包含][,比较方法])：
将字符串数组中含有关键字符串的元素存成新的数组（默认） [包含]为false则取不包含的元素
oin(ArrayName)：将数组中元素连成字符串
date：取系统当前日期
time：取系统当前时间
now：取系统当前时间及日期值 Datetime类型
timer：取当前时间距离零点秒值，计时器，可计算时间差
DateAdd(间隔单位,间隔值,日期)：推算相邻日期
DateDiff(间隔单位,日期一,日期二)：计算时间差 日期二-日期一
Datepart(间隔单位,日期)：计算日期的间隔单位值
3.数据类型转换函数：
Cint(str)：转换正数 True -1；False 0；日期 距离1899/12/31天数；时间 上午段 0；下午段 1；
Cstr(str)：日期 输出格式 yyyy/mm/dd；时间 输出格式 Am/Pm hh:mm:ss
Clng(str)：与Cin()类似
Cbool(num)：num不为零 True；反之 False
Cdate(str)：转换日期格式 0：#Am 12:00:00#；正数 距离1899/12/31天数的日期；浮点数 日期＋小数时间
Cbyte(num)：num<255 转换为字节
Csng(str)：转换为单精度数值
Cdbl(str)：转换为双精度数值
Ccur(str)：转换为现金格式
4.时间函数：
vb6.0实验九习题与答案
实验九专业_____________ 班级________年级________姓名______________学号_______________一、实验目的1、掌握下拉式菜单和弹出式菜单的设计方法2、掌握菜单事件过程的编写方法二、实验内容1、按图示设置窗体：要求：①建立标题为“幼教”和“退出”主菜单yj和Exit；yj有标题为“三字经”、“弟子规”和“论语”的菜单项szj、dzg和Ly。
②编写适当过程，程序运行时单击“三字经”或“弟子规”在文本框中显示相应的文本。
单击“退出”，则退出应用程序。
P r i v a t e S u b s z j_C l i c k()'三字经内容T e x t1.T e x t="人之初,"&C h r(13)&C h r(10)&"性本善."&C h r(13)&C h r(10)_ &"性相近,"&C h r(13)&C h r(10)&"习相远."E n d S u bP r i v a t e S u b d z g_C l i c k()'弟子规内容T e x t1.T e x t="父母呼,"&C h r(13)&C h r(10)&"应勿缓."&C h r(13)&C h r(10)_ &"父母命,"&C h r(13)&C h r(10)&"行勿懒."E n d S u bP r i v a t e S u b t c_C l i c k()'退出程序E n dE n d S u b'|r e m为使文字可以换行成功，还需设置t e x t1的M u l t i L i n e属性为t r u e'|r e m C h r(13)表示回车C h r(10)表示换行2、按图示设置窗体：要求：①建立标题为“整数处理”和“清除”主菜单zscl和qc；zscl有标题为“数位求和”和“非零数位求积”的菜单项swqh和swqj。
人类历史上最全VB6.0入门教程
1.3.4 文件类型
• • • • • 1．工程组和工程文件 2．窗体文件 3．程序模块文件 4．类模块文件 5．资源文件
1.3.5 编译可执行文件
• 应用程序创建后，必须生成可执行文件才 能发布给最终用户。Visual Basic中生成可 执行文件操作非常简单。选择“文 件”|“生成xxx.exe”命令（xxx为工程名 称），弹出“生成工程”对话框 .
• 本节将创建第一个程序Hello-World。 创建一个应用程序之前，必须明确以 下几个重要步骤： • （1）制定计划。 • （2）创建界面。 • （3）编写代码。 • （4）测试和调试程序。 • （5）生成可执行文件。
1.3.3 第一个程序——Hello，World
1.3.3 第一个程序——Hello，World
2.2.1 变量作用域
• 声明变量可以使用Dim、Private、Public、 Static作为关键字。以上关键字分别作用于不 同的作用域。
变量 过程变量 模块变量 全局变量 语句 Dim或 Static Private Public 声明位置 存在于过程，子过程或函数过程中声明段 存在于窗体或代码模块声明段 Main模块中声明段 范围 声明变量的过程、子过程或函 数 窗体或代码模块中过程 全部应用程序
2.2.3 变量类型
• 变量类型包含2.1小节中所有的数据类型。 除此之外，根据应用程序需要还可以创建 用户自定义的类型。自定义类型声明使用 Type语句。
2.2.4 静态变量
• 程序运行时变量保存临时数据。一旦 程序终止，变量将自动被Visual Basic 删除。下一次程序运行时该变量将重 新被初始化。但是，应用程序在运行 时也有可能需要保留变量数据。Visual Static [varName] as [type] Basic可以通过声明静态变量来保存记 忆变量数值。
最新VB程序设计课后习题答案资料
VB课后习题解答第一、二章:1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后，误把Windows子目录删除。
当重新安装Windows后，是否需要再次安装VB6.0 ？答：要重新安装的。
因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。
3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。
5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”一＞“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB98& 安装Visual Basic 6.0后，帮助系统是否也已安装？答：没有。
VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用Visual Basic 6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定内容有关的帮助信息。