当前位置：文档之家 › VB程序设计教程(第3版)课后答案解析

VB程序设计教程(第3版)课后答案解析

  • 格式：doc
  • 大小：103.00 KB
  • 文档页数：73

A.1 Private Sub Command1_Click( Label3 = Text1 End Sub A.2 Private Sub Form_Load( Timer1.Interval = 0 End Sub Private Sub Command1_Click( '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click( '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer( Call MyMove End Sub Sub MyMove( Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A.3 Private Sub Form_Click( Text1 = V al(Text1 + 1 End Sub Private Sub Form_Load( Text1 = 0 End Sub A.4 Private Sub Form_Click( Caption = "单击窗体,改变图片" Picture = LoadPicture(App.Path + "\n_015.bmp" Print "欢迎使用VB" End Sub Private Sub Form_DblClick( Cls Caption = "双击窗体,卸去图片" Picture = LoadPicture("" ' End Sub Private Sub Form_Load( Caption = "装入窗体" Picture = LoadPicture(App.Path + "\n_016.bmp" Print "装入图" End Sub Private Sub Form_Resize( ' 该事件的作用窗体始终与图一样大 'Caption = "窗体大小不变" 'Form1.Width = 260 * 16 ' 260是Tongji-2.bmp图的宽度,象素单位 'Form1.Height = 260 * 16 + 200 ' 260是图的高度,象素单位,200是窗体的标题栏高度End Sub

A.5 Sub Command1_Click( Text1.FontName = "隶书" Text1.FontSize = 25 End Sub Sub Command2_Click( Text2.Text = Text1.SelText Text2.FontName = Text1.FontName Text2.FontSize = Text1.FontSize End Sub B.1 Private Sub Command1_Click( Text2 = Format(5 / 9 * (V al(Text1 - 32, "0.00" End Sub Private Sub Command2_Click( Text1 = Format(9 / 5 * V al(Text2 + 32, "0.00" End Sub 或 Private Sub Command1_Click( Dim f!, c! ' 声明两个变量 f = V al(Text1 c = 5 / 9 * (f - 32 Text2 = Format(c, "0.00" ' 保留两位小数 End Sub Private Sub Command2_Click( Dim ff!, cc! ' 声明两个变量 cc = V al(Text2 ff = 9 / 5 * cc + 32 Text1 = Format(ff, "0.00" ' 保留两位小数 End Sub B.2 Label2 = Format(V al(Text1 * V al(Text1 * 3.14, "0.00" End Sub Private Sub Command2_Click( Label3 = Format(V al(Text1 * 3.14 * 2, "0.00" End Sub Private Sub Text1_LostFocus( If Not IsNumeric(Text1.Text Then MsgBox "输入有非数字字符,请重新输入", , "警告" Text1.Text = "" Text1.SetFocus End If End Sub 或 Private Sub Command1_Click( Label2 = Format(V al(Text1 * V al(Text1 * 3.14, "0.00" End Sub Private Sub Command2_Click( Label3 = Format(V al(Text1 * 3.14 * 2, "0.00" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer If KeyAscii = 13 Then If Not IsNumeric(Text1.Text Then Text1.Text = "" End If End If End Sub B.3 Private Sub Command1_Click( n = Int(Log(2 / Log(1.008 + 1 Label1 = n & "年后人数超过26亿" End Sub B.4 Private Sub Command1_Click( Dim x, dx, cd x = Text1.Text dx = UCase(x cd = Len(x Print "大写字母为:"; dx Print "字符串长度为:"; cd End Sub B.5 Text1 = Int(Rnd * 900 + 100 End Sub Private Sub Command2_Click( Dim x%, x1%, x2%, x3% x = V al(Text1 x1 = x Mod 10 ' 分离出的个位数 x2 = (x Mod 100 \ 10 ' 分离出的十位数 x3 = x \ 100 ' 分离出的百位数 Label1 = x1 * 100 + x2 * 10 + x3 End Sub B.6 Private Sub Form_Click( Label1 = Left(Text1, 11 Label2 = Mid(Text1, 12, 6 Label3 = Right(Text1, 5 End Sub B.7 Private Sub Command1_Click( Print For i = 1 To 5 Print Tab(15 - i * 2; String(2 * i - 1, "★"; Spc(18 - 4 * (i - 1; String(2 * i - 1, "★" Next i End Sub Private Sub Command2_Click( Cls End Sub 进一步要求: Private Sub Command1_Click( Print For i = 1 To 5 Print Tab(15 - i * 2; String(2 * i - 1, "★"; String(10 - (2 * i - 1, "☆"; String(2 * i - 1, "★"

Next i End Sub Private Sub Command2_Click( Cls End Sub B.8 Private Sub Form_Click( x = V al(InputBox("输入一正实数", "计算", 0 pf = Format(x * x, "0.000" pfg = Format(Sqr(x, "0.000" lf = Format(x * x * x, "0.000" lfg = Format(x ^ (1 / 3, "0.000" Print "平方为:"; pf; Space(5; "平方根为:"; pfg; Space(5; "立方为:"; lf; Space(5; "立方根为:"; lfg

End Sub C.1 Private Sub Form_Click( Dim x!, y! x = V al(InputBox("输入x的值" If x < 1000 Then y = x ElseIf x < 2000 Then y = 0.9 * x ElseIf x < 3000 Then y = 0.8 * x Else y = 0.7 * x End If Print y End Sub C.2 Private Sub Form_Click( Dim x!, y! x = V al(InputBox("输入上网时间" If x < 10 Then y = 30 ElseIf x < 50 Then y = 30 + 2.5 * (x - 10 Else

合集下载

vb程序设计实验教程习题答案(精品).doc

vb程序设计实验教程习题答案(精品).doc

实验教材实验-1:单项选择题：AACCC DCBBC2：填空题：(1).bas(2).vbp, ,frm(3)视图工具箱(4)对象(5)属性对象事件方法(6)Windows(7)事件行为(8)窗体模块实验二1：单项选择题：ADCCA BAB DC BBCBC BAB DC 2：基本运算题：(1)27(2) 3.33333333333333(3) 3(4)0(5)-3(6) 2(7)ab33(8)类型不匹配(9) 3(10)AB3实验三1：单项选择题：BCBDC2：填空题：(1)300(2)321456(3)Shanghai(4) 6 7 6(5)True(6)2+3=5(7)”area=” 12.56(8)VISUAL实验四1：单项选择题：CAACA2：填空题：(1)7(2) 3 5(3)输入的数小于0(4) 3(5)False(6)2010 is not leap year.试验五1：单项选择题：ACCAB ACCCB2：填空题：(1)9(2)@n ② 1(3)®Len(a)②n\2 ③Mid(a,(n-i+l),l)④Mid(a,(n-i+l),l)(4)@n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ©While CountN<5(5)Mid(cl,l,i)实验六1：单项选择题：DB DCD ACADD2：填空题:(1)30(2) 3(3)①a(2)②a(3)③a(l)(4)①1 ②2 ③a(i)=a(6-i)(5)①i+j ②0 ③a(i,j)(6)©Print ②k ③a(k,j)=a(j,k)④a(k,j);实验七1：单项选择题：ABBACB2：填空题：(1)15(2)①Preserve a(n+l) ②a(i+l)=a(i) ③Exit For ④a(i+l)=m⑤0 to n+1 (或LBound(a) to UBound(a))(3)d,c,b,a实验八1：单项选择题：CADBD CACB2：填空题：(1)a=9 b=4(2)362516941(2)①a (2)UBound(b)③实验九1:单项选择题：DDDBB CAB CAD2：填空题：(1)①p=p*n ②Fac(n) ③ 10人-6(2)①Max=x ②Max=y ③p ④Max(x,a(n))(3)①number(i) ②n as integer (3)number=number+7* 10A(i-1)实验十1：单项选择题：DC BAB C实验十一1：单项选择题：DADBBB BDD实验十二1：单项选择题：CBCBC CBDAD DBC2：填空题：(1)①Label 1. FondName=Combo 1 .TextCombo2.Text ③ Label 1 .FontBold=True ④ Label 1 .FondItalic=True⑤ Label 1 .FondSize=Combo3.Text(2)①Listl.Text ©List 1 .RemoveitemListl.ListindexListl .Additem List2.Text ④ List2.RemoveItem实验十三实验十四1：单项选择题：DACDAABC2：填空题：(1)ShowFont(2)打开另存为颜色字体打印机帮助(3)工程部件Microsoft Common Dialog Control 6.0(4 ) ShowColor Action=3实验十五1：单项选择题：CB BCB B BAD2：填空题：(1)内建菜单弹出菜单(2)Click(3)工具(4)代码窗口Click(5)相同不同实验十六1：单项选择题：B CAAC ACDDB DCC2：填空题：(1)①Open "c:\studl.txt” For Output As #1Textl.Text=”End”White #l,Textl.Text(2)①For Input ②For Output As #2 ③Not Eof(l)Input #l,strl ⑤ Close #1,#2 ⑥Kill(“c:\old.txt”(3)①For Output ②For Input As #2。

经典：vb程序设计教程第三版第5章

经典：vb程序设计教程第三版第5章


Exit For
' 结束循环
End if
Next n1
End Sub
25
5.4 过程的嵌套和递归调用
5.4.1 过程的嵌套
在程序中调用一子过程，而在子过程中又调用另外的子过 程，这种程序结构称为过程的嵌套。过程的嵌套调用执行过 程如下图：
28
5.4.2 过程的递归调用
用自身的结构来描述自身，称递归。例如，对阶乘的定义：
第5章 过程
将程序分割成较小的逻辑部件就可以简化程序 设计任务，称这些部件为过程。
VB中有两类过程，一类是内部过程，另一类是 外部过程，每一类过程又可分为函数过程和事件过 程。内部过程是由系统提供的、不需要用户编写、 可直接用过程名调用的程序段。外部过程是由用户 根据自己的需要定义和编写的、可供事件过程多次 调用的程序段。
Temp = x: x =b
End Sub
17
Private Sub CmdOK_Click() a% = 10: b% = 20: Swap1 a, b Print "A1="; a, "B1="; b a = 10: b = 20: Swap2 a, b Print "A2="; a, "B2="; b
n=Val(InputBox(“输入大于6的偶数"))
For n1=3 to n\2 step 2 ' 让n1从3开始分解
n2=n-n1
' 求得n2
‘ 如果n1和n2都是素数，则打印输出
If prime(n1) And prime(n2) then
Print n & "=" & n1 & "+" & n2
《VB程序设计》课后题答案

《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程序设计教程习题答案

vb程序设计教程习题答案VB程序设计教程习题答案VB程序设计是一门广泛应用于软件开发领域的编程语言，它具有易学易用的特点，被广大程序员所喜爱。

在学习VB程序设计的过程中，习题是一个非常重要的环节，通过解答习题可以帮助我们巩固所学的知识，提高编程能力。

下面我将给出一些VB程序设计教程习题的答案，希望对初学者有所帮助。

1. 编写一个VB程序，实现计算两个数的和并输出结果的功能。

答案：```Public Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) HandlesButton1.ClickDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = Integer.Parse(TextBox1.Text)num2 = Integer.Parse(TextBox2.Text)sum = num1 + num2MessageBox.Show("两个数的和为：" & sum)End SubEnd Class```2. 编写一个VB程序，实现判断一个数是奇数还是偶数的功能。

答案：```Public Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim num As Integernum = Integer.Parse(TextBox1.Text)If num Mod 2 = 0 ThenMessageBox.Show("这个数是偶数")ElseMessageBox.Show("这个数是奇数")End IfEnd SubEnd Class```3. 编写一个VB程序，实现计算一个数的阶乘的功能。