《VB语言程序设计》习题参考答案
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
《VB程序设计》课后题答案
第二章一、问答题1.叙述建立一个完整的应用程序的过程。
答：界面设计编写事件过程代码运行、调试保存文件2.当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
问该工程涉及到几个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及到两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求把窗体文件先保存。
3.假定在W indows环境中，要保存工程文件时，若不改变目录名，则系统默认的目录是什么？答：VB984．当标签框的大小由Caption属性的值进行扩展和缩小，应对该控件的什么属性进行何种设置？答：将标签的Autosize设置为True.5．VB6.0提供的大量图形文件在哪个目录下？若你的计算机上没有安装，则怎样安装这些图形文件？答：VB6.0提供的图形文件在Graphics目录。
6．在VB6.0中，命令按钮的显示形式可以有标准和图形两种选择，这通过什么属性来设置？若选择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，怎样改正？答：按钮Style的属性设置为Graphical（或1）。
通过Picture属性来装入图形。
不能显示图形是因为Style的属性设置为Standard（或0），只要改为Graphical（或1），一般还将Caption 属性的值设置为空。
7．标签和文本框的区别是什么？答：文本是否可编辑。
8．当窗体上有三个文本框和一个命令按钮，若程序运行时，需把焦点定位在第三个文本框处，应对何控件的什么属性进行何种设置？答：应对Text3控件进行Text3.TabIndex=0的设置。
9．简述文本框的change与keypress事件的区别。
答：文本框内容变化，change与keypress事件都会发生，所不同的是Keyprees还将返回一个Keyasii参数10.当某文本框输入数据后（按了回车键），进行判断认为数据输入错，怎样删除原来数据？怎样使焦点回到该文本框重新输入？答：假定文本框的名称为Text1，则事件过程如下：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf 出错条件判断成立ThenText1＝””…先删除原来数据Text1.SetFocus …焦点回到Text1End If……End IfEnd Sub11.在程序运行前，对某些控件设置属性值，除了在窗体中直接设置外，还可以通过代码设置，这些代码一般放在什么事件中？例如，程序要将命令按钮定位在窗体的中央，请写出事件过程。
vb程序设计试题及答案
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
VB程序设计教程课后参考答案概要
VB程序设计教程课后参考答案习题一一、填空题1．对象、事件驱动2．窗体、控件3．属性4．属性窗口、编程设置5．事件过程6．对象名、下划线、事件名7．Form_click8．Print form1.print “我的VB”9．主窗口、属性、工具箱、代码、窗体、工程资源管理10．菜单、快捷键二、选择题1．C 2. A 3. B 4. B 5. D 6. B C 7. A 三、简答题（略）习题二一、选择题1. D2. C3. C4. B5. C6. B7. C8. B 9. A 10. B 11. B 12. C 13. D 14. B15. A 16. A 17. A 18. A 19. B 20. C 21. A22. B 23. B 24. A 25. C 26. A 27. B 28. B29. C 30. B 31. D 32. D 33. C二、填空题1．Controlbox、Maxbutton、Minbutton2．Multiline TRUE3．******4．单文档界面（SDI）多文档界面（MDI）5．窗体显示6．Passwordchar7．_change()三、编程题（略）习题三一、基础知识题（略）二、填空题1．整型、长整型、单精度、双精度2．(x mod 10)*10+x\103．Sin(3.14*15/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)4．(a+b)/(1/(c+5)-c*d/2)5．X mod 5=0 or x mod 9=06．False7．-4、3、－3、3、－4、48．CDEF10．TRUE11．变量、属性12．‘_ :13．(略)14．“”＃15．Public、通用/模块、Dim、static、private16．+ 、&、+17．Now() 、time()、日期18．Inputbox()、字符串、val()19．Msgbox()三、选择题1．B 2. C 3. A 4. B D此题有误 5. B 6. A7. D 8. B 9. B 10. C 11. D 12. B13. C 14. B 15. A 16. C 17.A 18. D19. A 20. D 21. A 22. C 23. C 24. D25. A 26. D 27. D 28. B 29. C 30. B31. C 32. B 33. C D此题有误34. C 35. A36. D 37. C 38. A 39. B 40. A 41. C42. C 43. D 44. C 45. D 46. A四、编程题1.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%, delta%Dim x1#, x2#, x#a = Val(InputBox("please input data to a:", "info", 1))b = Val(InputBox("please input data to b:", "info", 1))c = Val(InputBox("please input data to c:", "info", 1))If a = 0 And b <> 0 Thenx = -c / bPrint "所构成的方程是：" & b & "x" & "+" & c & "=0"Print "该一元一次方程的根是：", xEnd IfIf a = 0 And b = 0 ThenPrint "很抱歉，不能构成合法的方程！"End IfIf a <> 0 Thendelta = b * b - 4 * a * cIf delta >= 0 Thenx1 = (-b + Sqr(delta)) / (2 * a)x2 = (-b - Sqr(delta)) / (2 * a)Print "所构成的方程是：" & a & "x2" & "+" & b & "x" & "+" & c & "=0"Print "该方程的根是："Print "第一个根是：", x1Print "第二个根是：", x2Else2Print "该方程有两个虚根："Print "第一个虚根是：" & -b / (2 * a) & "+" & Sqr(Abs(delta)) / (2 * a) & "i"Print "第二个虚根是：" & -b / (2 * a) & "－" & Sqr(Abs(delta)) / (2 * a) & "i" End IfEnd IfEnd Sub2.Option ExplicitPrivate Sub Command1_Click()Dim i%, s%s = 0For i = 1 To 99 Step 2s = s + iNextPrint sEnd Sub3.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#s = 0For i = 1 To 100s = s + 1 / i * (-1) ^ (i + 1)NextPrint sEnd Sub4.Option ExplicitPrivate Sub Command1_Click()Dim i%, n%Dim t#, s#n = Val(InputBox("please input data:", "info", 5))s = 0t = 1For i = 1 To nt = t * is = s + tNextPrint sEnd Sub5.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%Dim p#, s#a = Val(InputBox("please input data to a:", "info", 3))b = Val(InputBox("please input data to b:", "info", 4))c = Val(InputBox("please input data to c:", "info", 5))If (a + b > c And Abs(a - b) < c) Or (a + c > b And Abs(a - c) < b) Or ((b + c) > a And Abs(b - c) < a) Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print "三角形的面积是：" & sElsePrint "很抱歉，不能构成合法的△三角形！"End IfEnd Sub6.Option ExplicitPrivate Sub Command1_Click()Dim ji%, tu%For ji = 1 To 27For tu = 1 To 27If ji * 2 + tu * 4 = 78 And ji + tu = 27 ThenPrint "鸡的个数是：" & jiPrint "兔的个数是：" & tuEnd IfNextNextEnd Sub7.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#, t#s = 10t = 10For i = 1 To 7t = t * 0.4s = s + t * 2NextEnd Sub8.Option ExplicitPrivate Sub Command1_Click()Dim i%, fs%, max%, min%, s%Dim ave#fs = Val(InputBox("please input score:", "info", 90))s = fsmax = fsmin = fsFor i = 2 To 7fs = Val(InputBox("please input score:", "info", 90))If max < fs Thenmax = fsEnd IfIf min > fs Thenmin = fsEnd Ifs = s + fsNextave = (s - max - min) / 5Print "该运动员的平均成绩是：" & aveEnd Sub9. ‘同学们，这道题方法很多，主要考察你对选择结构的理解，我给出其中一种方法。
VB程序设计 习题及答案第4章 选择结构程序设计
第4章选择结构程序设计4．1 写出数学式|x|<2.5×10-2对应的Visual Basic表达式。
【答案】x<2.5e-2 and x>-2.5e-24．2 逻辑运算符And、Or和Not的优先级最高的是哪一个。
【答案】Not4．3 已知 W=10 X=9 Y=8 Z=7 ，求下列表达式的结果。
(1) W>X And Y<=Z OR X>Y(2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z)(4) Not (Y<>X Or W*3>Z)【答案】(1) True(2) True(3) True(4) False4．4 写出下列十进制整数逻辑运算的结果：(1) X = 23 And 14(2) X = 23 Or 14(3) X = -1 And 19(4) X = -1 Or 10(5) X = Not -1【答案】(1) 6(2) 31(3) 19(4) -1(5) 04．5 已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值。
【参考答案】程序代码设计Private Sub Form_Click()x = 5: y = 6t = x: x = y: y = tForm1.Print "x="; x, "y="; yEnd SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "x = 5", "y = 6"Form1.Print "单击窗体交换x,y的值"图4-1 程序运行结果End Sub程序运行结果如图4-1所示：4．6 从键盘输入一个学生的三科成绩，计算总分，并找出最高分。
【参考答案】（1）用户界面设计（2）控件属性设置（略）（3）程序代码设计Private Sub Command1_Click()g1 = Val(Text1.Text)g2 = Val(Text2.Text)g3 = Val(Text3.Text)Var = (g1 + g2 + g3) / 3g = g1If g < g2 Then g = g2If g < g3 Then g = g3Text4.Text = VarText5.Text = gEnd Sub图4-2 程序运行结果程序运行结果如图4-2所示。
VB程序设计教程 第四版 课后答案
vb课后习题答案第一章习题参考答案一、填空题1、对象事件驱动2、编译运行模式解释运行模式二、简答题1、简述VB的特点。
答：①可视化的程序设计方法②面向对象的程序设计思想③事件驱动的编程机制④结构化的程序设计语言⑤高度的可扩充性⑥强大的数据库访问能力⑦支持动态数据交换⑧支持对象链接与嵌入2、简述VB的安装过程。
答：①向光驱中放入VB安装光盘；②计算机将运行自动安装程序，若没有，执行VB 目录下的Setup.exe；③根据提示逐一回答问题，并点击“下一步”；④点击“完成”；2、如何启动VB。
答：三种方法：①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击；②双击桌面上的VB6.0快捷图标；③在“开始”菜单的运行对话框中输入命令来启动VB；第二章习题参考答案一、选择题：1-10、 DCACD BCBBC11-20、BADCA BBAAB21-29、AACBB CDDC二、填空题1．窗体、控件2．属性值3．属性窗口设置、代码窗口设置4．事件过程5．对象名、下划线、事件名6． Form_Click第三章习题参考答案一、选择题1、B2、C3、A4、B5、A6、C7、C二、填空题1、 11字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。
String、Byte、Integer、Long、Single、Double、Currency、Boolean、Date、Object、Variant2、双引号(英文)、#3、 ASCII、1、24、 public、通用、Dim、Static、Private、Static5、 &、+、+6、 Now()、Time、日期型三、解答题1、(3)2、(1 )3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量（7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度）4、315、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y)（3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c))6、7、（1）13 （2）17（3）#1999-11-12# （4）zxy123ABC（3）5．25 （4）27）16 （8）“-459.65” （9）510、（4）11、（2）12、（4）第四章习题参考答案一、选择题：1—7: DAABBCD二、填空题1． 500.00%2．将字号扩大为原来的二倍3． B三、编程题（略）1．文本框、标签和命令按钮的名称分别为text1、label1、command1Private Sub Command1_Click()Label1.caption=text1.textCommand1.caption=text1.textEnd Sub2．单价、数量、折扣和应付款对应的文本框的名称分别为：text1、text2、text3和text4，计算和清除命令按钮的名称分别为：command1和command2。
VB语言程序设计习题2
《VB语言程序设计》习题2一、单项选择题1.在Visual Bsaic代码中，将多个语句合并写在一行上的并行符是（）。
A、撇号(')B、冒号(:)C、感叹号(!)D、星号（*）2.通过（）可以在设计时直观地调整窗体在屏幕上的位置。
A、代码窗口B、窗体布局窗口C、窗体设计窗口D、属性窗口3.通过改变选项按钮(OptionButton)控件的（）属性值，可以改变按钮的选取状态。
A、ValueB、StyleC、AppearanceD、Caption4.为了清除列表框中的所有内容，应使用的方法是（）。
A、ClsB、ClearC、RemoveD、RemoveItem5.文本框能输入（）。
A、控制字符B、ASCII字符C、回车D、文本和数字6.下列控件中，没有Caption属性的是（）。
A、框架B、列表框C、复选框D、单选按钮7.文本框控件最多能处理（）字节。
A、32KB、64KC、128KD、16K8.以下能够触发文本框Change事件的操作是（）。
A、文本框失去焦点B、文本框获得焦点C、设置文本框的焦点D、改变文本框的内容9.要将一个组合框设置为简单组合框(Simple Combo)，则应将其Style属性设置为（）。
A、0B、1C、2D、310.要使标签所在处透明显示背景，应把BackStyle属性设置为（）。
A、0B、1C、TureD、False11.用（）属性可唯一标志控件阵列中的某一个控件。
A、NameB、IndexC、CaptionuD、TabIndex12.组合框控件是将（）组合成一个控件。
A、列表框控件和文本框控件B、标签控件和列表框控件C、标签控件和文本框控件D、复选框控件和选项按钮控件13.（）使图象(Image)控件中的图象自动适宜控件的大小。
A、将控件的AutoSize属性设为TrueB、将控件的AutoSize属性设为FalseC、将控件的Stretch属性设为TrueD、将控件的Stretch属性设为false14.如果要在命令按钮上显示图形文件，应设置命令按钮的（）。
VB程序设计试题 及 参考答案
VB程序设计及参考答案一、单选题（共20分，每小题1分）1、要改变控件的宽度，应修改该控件的（）属性。
（A）TOP （B）width （C）Left （D）Height2、将命令按钮Command1设置为不可见，应修改该命令按钮的（）属性。
（A）Visible （B）Value （C）Caption （D）Enabled3、（）对象具有clear方法。
（A）图片框（B）窗体（C）复选框（D）列表框4、启动VB后，就意味着要建立一个新（）。
（A）窗体（B）文件（C）工程（D）程序5、下列（）对象不具有Clear方法。
（A）列表框（B）组合框（C）剪贴框（D）图片框6、组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style 属性值应为（）（A）0 （B）1 （C）2 （D）37、下列可调整图片框的大小以适合图片的属性是（）（A）Stretch （B）autosize （C）picture （D）oledropmode 8、要想清除文本框中的内容则可利用（）进行。
（A）Caption （B）Text （C）Clear （D）Cls9、在文本框控件中将Text的内容全部显示为所定义的字符的属性是（）。
（A）Password （B）PasswordChar（C）需要编程来实现（D）以上都不是10、Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是（）。
（A）从主程序开始执行（B）按过程顺序执行（C）事件驱动（D）按模块顺序执行11、下列四项中合法的变量名是（）。
（A）a-bc （B）a_bc （C）4abc （D）integer12、无论何种控件，共同具有的属性是（）（A）Text （B）Name （C）Caption （D）ForeColor13、有程序代码如下：Text1.Text = "Visual Basic程序设计"则Text1、Text ，和"Visual Basic程序设计"分别代表（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
《VB语言程序设计》习题参考答案第1章习题一、单选题1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B二、多选题1．ACDE 2．BCDE 3．CD 4. CE三、填空题1．事件驱动 2．解释，编译 3．设计，运行，中断4. 属性，方法，事件5. Command2_Click6. 中央，代码7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计"编程及上机调试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．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B二、多选题1．BD 2．CD 3．AC 4. AD三、填空题1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)(3) a*a–3*a*b/(3+a) (4) x^(3/8)+Sqr(y*y+4*a*a/(x+y^3))2．Int(50+6*Rnd)3．(1)138 (2)3 (3)214 (4) "inchina" (5)70 (6) "45"(7)04. "系统管理数据库"编程及上机调试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。
Private Sub Command1_Click()Dim x As Stringx = Left(Text1.Text, 1) + Right(Text1.Text, 1)Text2.Text = xEnd Sub第3章习题一、单选题1．C 2．B 3．D 4．D 5．B 6．C 7．B 8．D 9．D 10．A 11．A 12．C 13．C 14．B 15．(1)A (2)C 16．A 17．B 18．(1)D (2)B (3)C 19．D二、多选题1．AC 2．AC 3．ABCF三、填空题1. $000,124 2．Label1.Caption="a*b=" 3．Height，Width4．2 5．Text1.SetFocus6．Multiline, ScrollBars, 2 7．编程技术，程序设计8．Private Sub Text2_Change()´当文本框Text2中的文本内容发生变动时，执行该事件过程Label1.Caption=Text1.Text ´把文本框Text1中的文本内容作为标签Label1的标题End SubPrivate Sub Text1_GotFocus() ´当文本框Text1获得焦点时，执行该事件过程Text1.SelStart = 0 ´选定文本框Text1中的所有文本内容Text1.SelLength=Len(Text1.Text)End Sub编程及上机调试1．在窗体上建立一个文本框Text1(输入n值)、三个标签Label1(第一个随机数)、Label2(第二个随机数)和Label3(第三个随机数)，以及一个命令按钮Command1。
Private Sub Command1_Click()n = Val(Text1.Text)Randomizex = Int(1 + n * Rnd)Label1.Caption = "第一个随机数" + Str(x)x = Int(1 + n * Rnd)Label2.Caption = "第二个随机数" + Str(x)x = Int(1 + n * Rnd)Label3.Caption = "第三个随机数" + Str(x)End Sub2．在窗体上建立了四个文本框Text1、Text2、Text3和Text4，以及一个命令按钮Command1(“交换”)和Command2(“合并”)。
Private Sub Command1_Click() '“交换”t = Text1.TextText1.Text = Text2.TextText2.Text = Text3.TextText3.Text = tEnd SubPrivate Sub Command2_Click() '“合并”t = Text1.Text + Text2.Text + Text3.TextText4.Text = tEnd Sub3. (1)Rnd * 9000 + 1000 (2)Str(x) (3)Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1)4. Private Sub Command1_Click() '往左Text1.Left = 0End SubPrivate Sub Command2_Click() '往右Text1.Left = Form1.Width - Text1.WidthEnd SubPrivate Sub Command3_Click() '居中Text1.Left = (Form1.Width - Text1.Width) / 2End Sub5. Private Sub Cmd1_Click()Lab1.Visible = TrueLab1.Caption = "您已下达显示命令"End SubPrivate Sub Form_Click()Cmd1.Visible = TrueEnd Sub6. Private Sub Form_KeyPress(KeyAscii As Integer)ShowPrint "输入字符："; Chr(KeyAscii), "ASCII码为;"; KeyAsciiEnd SubPrivate Sub Form_DblClick()ClsEnd Sub7. 产生这三个消息框的相应语句是：产生第1个消息框：x = MsgBox("在这里显示提示信息", 4 + 0, "请确认")产生第2个消息框：x = MsgBox("在这里显示" + Chr(13) + "提示信息",3 + 0,"请确认")产生第3个消息框：x = MsgBox("在这里显示"+Chr(13)+"提示信息",2 + 16 + 0,"请确认")第4章习题一、单选题1．C 2．A 3．C 4．C 5. B 6. A7．D 8．B 9．B 10．(1)D (2)A (3)B二、多选题1．ABCFGHJ 2．BE 3．CD 4. CDE 5. AE三、填空题1．(S And (A>=18 And A <=20) And H>=1.65) Or (Not S And (A>=16 And Age<=18) And H>=1.60)2. 600003. (1) "0" To "9" (2) "a" To "z","A" To "Z" (3) Else4．(1)6 (2)-2 (3)25． Select Case x Case Is < 20Case Is <= 0 y = 2 y = 4 Case Is <= 30Case Is < 10 y = 3y = 0 Case ElseCase Is < 15 y = 4y = 1 End Select6．(1) (x>100) And (x Mod 5=0) (2) 0(3) Len(Text1.Text) (4) Text1.SelText编程及上机调试1. 在窗体上建立两个文本框Text1(输入数)及Text2(显示结果)，一个命令按钮Command1(“判断”)。
Private Sub Command1_Click() '“判断”x = Val(Text1.Text)If x Mod 2 = 0 ThenText2.Text = "偶数"Else消息Text2.Text = "奇数"End IfEnd Sub2．窗体上建立了一个文本框Text1，用于显示结果。