vb实验作业参考答案

VB实验作业参考答案

作业一窗体设计 (2)

作业二计算器 (4)

作业三人民币张数求电阻值 (6)

作业四（必做）建康城 (8)

作业五阶乘累加 (9)

作业六（必做）九九乘法表 (11)

作业七（必做）I NPUT B OX 函数输入12个整数，赋值给3×4的二维数组 (12)

作业八递归函数计算两个正整数的最大公约数，递归公式为

(13)

作业九（必做）家电提货单 (15)

作业十统计某个文本文件中各英文字母出现的次数，不区分大小写，并将结果打印到窗体上。 (17)

作业十一设计一个程序，用于打开1个windows应用程序，如打开“记事本”“画图”、“计算器”等。 (19)

作业十二通过菜单选择，对字体、字号进行设置 (21)

作业一

1.简答题(略)

2.编程题：

1)单击窗体后在窗体上显示“您好！×××同学”。

要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。

答案参照课本P27的例1-6。

2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写：

（1）用代码初始化各控件（提示：可写在Form_Load事件中）。

（2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在Form_Resize事件中）。

（3）结束程序运行的代码（命令按钮）。

程序代码：

Private Sub Form_Load()

Text1.Left = 0

Text1.Top = 0

Text1.Width = Form1.Width / 2

Text1.Height = Form1.Height / 2

Command1.Left = Form1.ScaleWidth - Command1.Width

Command1.Top = Form1.ScaleHeight - Command1.Height End Sub

Private Sub Form_Resize()

Call Form_Load

End Sub

Private Sub Command1_Click()

End

End Sub

作业二

1.填空题：

（1）Visual Basic 算术表达式a+b/(b+c/(d+e/Sqr(2*a*b)))对应的数学表达式（ ab e

d c b b

a 2++

+ ）。

（2）产生一个10-99之间的随机整数的表达式（ int(rnd*90)+10 ）。

（3）整形变量X 中存放了一个两位数，要将两位数交换位置，例如，73变成37，实现的表达式是（ (x mod 10)*10+ x\10 ）。

（4）算术表达式Fix(-3.95)+int(-3.02)+Cint(-3.5)+25 mod 10\3的值是（ -10 ）。

（5）表达式Ucase(Mid(″abcdefgh ″,3,4))的值是（ CDEF ）。

2.使用立即窗口显示下列表达式的值（设x=5，y=15，z=3），并分析所输出的结果。

（1）Len(x & y &''z'') （2）Sgn(10 mod 6) & x+y

（3）x mod z +x^2\y+z （4）x^2-y*2>3*z and z^3<>x^2

（5）(y mod 10) *10+y\10 （6）Mid(str(x^3),2,2) & y+z

（7）Ucase(Left(Mid(''This is a Book'',6),4)) （8）Date()+10

（9）Timer Mod 3600 （10）Hour(time())

3.编程题：

（1）编一个模拟简易计算器的程序，运行界面如下图所示：

程序代码：

Private Sub Form_Load()

Label1.Caption = ""

End Sub

Private Sub Command1_Click() ' 加法

Label1.Caption = "＋"

Text3 = Str$(Val(Text1) + Val(Text2))

End Sub

Private Sub Command2_Click() ' 减法

Label1.Caption = "－"

Text3 = Str$(Val(Text1) - Val(Text2))

End Sub

Private Sub Command3_Click() ' 乘法

Label1.Caption = "×"

Text3 = Str$(Val(Text1) * Val(Text2))

End Sub

Private Sub Command4_Click() ' 除法

Label1.Caption = "÷"

Text3 = Str$(Val(Text1) / Val(Text2))

End Sub

Private Sub Command5_Click() ' 清除

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Label1.Caption = ""

End Sub

（2）编一个程序，当单击窗体时，在窗体上任意位置，随机输出一个大写的英文字母。

提示：随机大写的英文字母由表达chr(Int(Rnd*26)+65)产生，窗体上的随机位置通过设置当前坐标CurrentX,CurrentY属性来确定。

程序代码：

Private Sub Form_Click()

Dim ch As String

Form1.CurrentX = Form1.ScaleWidth * Rnd '随机确定当前x坐标

Form1.CurrentY = Form1.ScaleHeight * Rnd '随机确定当前y坐标

ch = Chr(65 + Int(26 * Rnd)) '随机产生一个大写字母

Print ch

End Sub