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 = 0Text1.Top = 0Text1.Width = Form1.Width / 2Text1.Height = Form1.Height / 2Command1.Left = Form1.ScaleWidth - Command1.WidthCommand1.Top = Form1.ScaleHeight - Command1.Height End SubPrivate Sub Form_Resize()Call Form_LoadEnd SubPrivate Sub Command1_Click()EndEnd Sub作业二1.填空题：（1）Visual Basic 算术表达式a+b/(b+c/(d+e/Sqr(2*a*b)))对应的数学表达式（ ab ed c b ba 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 SubPrivate Sub Command1_Click() ' 加法Label1.Caption = "＋"Text3 = Str$(Val(Text1) + Val(Text2))End SubPrivate Sub Command2_Click() ' 减法Label1.Caption = "－"Text3 = Str$(Val(Text1) - Val(Text2))End SubPrivate Sub Command3_Click() ' 乘法Label1.Caption = "×"Text3 = Str$(Val(Text1) * Val(Text2))End SubPrivate Sub Command4_Click() ' 除法Label1.Caption = "÷"Text3 = Str$(Val(Text1) / Val(Text2))End SubPrivate 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 StringForm1.CurrentX = Form1.ScaleWidth * Rnd '随机确定当前x坐标Form1.CurrentY = Form1.ScaleHeight * Rnd '随机确定当前y坐标ch = Chr(65 + Int(26 * Rnd)) '随机产生一个大写字母Print chEnd Sub作业三1.填空题;（1）下面程序执行的结果是（A=2 B=3 C=2）。
Private Sub Form_Click()a = 1:b = 2:c = 3a = bb = cc = aPrint "a="; a; "b="; b; "c="; cEnd Sub（2）下面程序执行的结果是（5）。
Private Sub Form_Click()a$ = "123": b$ = "456"c = Val(a$) + Val(b$)Print c \ 100End Sub（3）下面程序执行的结果是（BABCBACBC）。
Private Sub Form_Click()x$ = "a": y$ = "b": z$ = "c"x$ = y$ & x$: y$ = y$ & z$: z$ = x$ & z$ & y$Print x$ + y$ + z$End Sub（4）下面程序执行的结果是（ 1 2 False）。
Private Sub Form_Click()Dim x%, y%, z%x = 1: y = 2z = x = yPrint x; y; xEnd Sub（5）当程序运行后，在文本框Text1中输入1234，窗体上的输出结果是（1-12-123-1234-）。
Private Sub Text1_Change()Print Text1 & "-";End Sub2.编程题：1）编写程序，输入一个职工的工资，打印输出发给该职工的人民币张数最少的方案。
程序代码：Public Sub Form_click()Dim hundred As Integer '100元票面数量Dim fifty As Integer '50元票面数量Dim Twenty As Integer '20元票面数量Dim ten As Integer '10元票面数量Dim five As Integer '5元票面数量Dim two As Integer '2元票面数量Dim one As Integer '1元票面数量Dim total As Integer '总计最小钞票数量Dim X As Integer '职工工资Dim tmp As IntegerX = Val(InputBox("输入职工工资 X=？", "输入框"))hundred = X \ 100 '求100元票面数量tmp = X Mod 100 ' 求剩余金额fifty = tmp \ 50tmp = tmp Mod 50Twenty = tmp \ 20tmp = tmp Mod 20ten = tmp \ 10tmp = tmp Mod 10five = tmp \ 5tmp = tmp Mod 5two = tmp \ 2one = tmp Mod 2total = hundred + fifty + Twenty + ten + five + two + oneForm1.Print "100元票" & (hundred) & "张", "50元票" & Str(fifty) & "张"Form1.Print "20元票 " & Str(Twenty) & "张", "10元票" & Str(ten) & "张"Form1.Print "5元票" & Str(five) & "张", "2元票" & Str(two) & "张"Form1.Print "1元票" & Str(one) & "张"Form1.PrintForm1.Print "-----------------------------------------------"Form1.Print "合计票：" & Str(total) & "张"End Sub2）编写程序，使用InputBox函数输入两个电阻的值，求它们并联和串联的电阻值，使用MsgBox消息框输出结果，要求结果保留小数点后三位。