vb实验作业参考答案

《vb实验作业参考答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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

2、.简答题(略)2.编程题：1)单击窗体后在窗体上显示“您好！×××同学”。要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。答案参照课本P27的例1-6。2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“VisualBasic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半

3、；命令按钮：始终位于窗体右下角位置。请编写：（1）用代码初始化各控件（提示：可写在Form_Load事件中）。（2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在Form_Resize事件中）。（3）结束程序运行的代码（命令按钮）。程序代码：PrivateSubForm_Load()Text1.Left=0Text1.Top=0Text1.Width=Form1.Width/2Text1.Height=Form1.Height/2Command1.Left=Form1.S

4、caleWidth-Command1.WidthCommand1.Top=Form1.ScaleHeight-Command1.HeightEndSubPrivateSubForm_Resize()CallForm_LoadEndSubPrivateSubCommand1_Click()EndEndSub作业二1.填空题：（1）VisualBasic算术表达式a+b/(b+c/(d+e/Sqr(2*a*b)))对应的数学表达式（）。（2）产生一个10-99之间的随机整数的表达式（int(rnd*90)+10）。（3）整形变量X中存放了一个

5、两位数，要将两位数交换位置，例如，73变成37，实现的表达式是（(xmod10)*10+x10）。（4）算术表达式Fix(-3.95)+int(-3.02)+Cint(-3.5)+25mod103的值是（-10）。（5）表达式Ucase(Mid(″abcdefgh″,3,4))的值是（CDEF）。2.使用立即窗口显示下列表达式的值（设x=5，y=15，z=3），并分析所输出的结果。（1）Len(x&y&''z'')（2）Sgn(10mod6)&x+y（3）xmodz+x^2y+z（4）x^2-y*2>3*zandz^3<>x^2（5

6、）(ymod10)*10+y10（6）Mid(str(x^3),2,2)&y+z（7）Ucase(Left(Mid(''ThisisaBook'',6),4))（8）Date()+10（9）TimerMod3600（10）Hour(time())3.编程题：（1）编一个模拟简易计算器的程序，运行界面如下图所示：程序代码：PrivateSubForm_Load()Label1.Caption=""EndSubPrivateSubCommand1_Click()'加法Label1.Caption="＋"Text3=Str$(Val(Text

7、1)+Val(Text2))EndSubPrivateSubCommand2_Click()'减法Label1.Caption="－"Text3=Str$(Val(Text1)-Val(Text2))EndSubPrivateSubCommand3_Click()'乘法Label1.Caption="×"Text3=Str$(Val(Text1)*Val(Text2))EndSubPrivateSubCommand4_Click()'除法Label1.Caption="÷"Text3=Str$(Val(Text1)/Val(Text2))

8、EndSubPrivateSubCommand5_Click()'清除Text1.Text=""Text2.Text=""Text3.Text=""Label1.Caption=""EndSu