vb實验作业参考答案.docVIP

Vb实验作业参考答案 作业一窗体设计 2 作业二计算器 4 作业三人民币张数 求电阻值 6 作业四（必做）建康城 8 作业五阶乘累加 9 作业六（必做）九九乘法表 11 作业七（必做）InputBox 函数输入 12 个整数，赋值给 3 × 4 的二维数组 12 作业八递归函数计算两个正整数的最大公约数，递归公式为 13 作业九（必做）家电提货单 15 作业十统计某个文本文件中各英文字母出现的次数，不区分大小写，并将结果打印到窗体上。 17 作业十一设计一个程序，用于打开1个windows应用程序，如打开“记事本”“画图”、“计算器”等。 19 作业十二通过菜单选择，对字体、字号进行设置 20 作业一 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)))对应的数学表达式（ ）。 （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*23*z and z^3x^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 =