VB实验作业参答案.docVIP

VB实验作业参考答案 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 = 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.T