【VB开源代码栏目提醒】：网学会员VB开源代码为您提供程序设计(VB)停课周作业 - 技术总结参考，解决您在程序设计(VB)停课周作业 - 技术总结学习中工作中的难题，参考学习。

    

程序设计VB停课周作业 教师陈歆 08公共安全 同学们 在本周停课期间请大家完成如下内容 1. 复习所有下发的PPT讲义。

     2. 理解并上机调试如果有条件下面5个例题。

     3. 完成实验3。

     我们的课时很紧请大家不要放松。

     陈老师 ______________________________________________________________________ 例1 给定一个两位正整数如36要求交换个位数和十位数的位置把处理后的数显示在窗体上 编写的窗体单击事件过程代码如下 Private Sub Form_Click Dim x As Integer a As Integer Dim b As Integer c As Integer x 36 a Intx / 10 求十位数 b x Mod 10 求个位数 c b 10 a 生成新的数 Print 处理后的数: c End Sub 运行程序后单击窗体输出结果是 处理后的数63 例2 通过随机函数产生2个两位正整数求这2个数 之和并显示出来 编写的窗体单击事件过程代码如下 Private Sub Form_Click Dim a As Integer b As Integer c As Integer Randomize 初始化随机数生成器 a Int90 Rnd 10 产生1099区间内的随机整数 b Int90 Rnd 10 c a b 求两数之和 Print 产生的两个随机数: “ a b Print 和数: “ c End Sub 例3 使用字符串函数示例 先从字符串a中找出某个指定字符本例为空格再以此字符为界拆分成两个字符串。

    编写的窗体单击过程代码如下 Private Sub Form_Click Dim a As String b As String c As String n As Integer a “Visual└┘Basic” └┘表示空格 n InStra └┘ 查找空格位置 b Lefta n - 1 取左边部分 c Mida n 1 取右边部分 Print b 显示左边部分 Print c 显示右边部分 End Sub 例4 使用日期/时间函数示例 Private Sub Form_Click x 1/1/2009 a x - Date b Weekdayx c YearDate d MonthDate e HourTime f MinuteTime Print “现在距离2009年元旦还有 a 天 Print 2009年元旦是星期 b-1 Print 本月份是 c 年 d 月 Print 现在是 e 时 f 分 End Sub 例5 使用转换函数的示例 Private Sub Form_Click x 123 y 123 a ChrAscx 5 b StrValx 5 c ValStry 5 Print ab c End Sub 运行程序后单击窗体输出结果如下 6 128 1235 实验三 数据类型、常量、变量和表达式 系班 学号 姓名 实验日期 指导老师 陈歆 实验目的 1掌握Visual Basic 6.0的数据类型、常量、变量、运算符和表达试。

     2掌握Visual Basic 6.0的常用函数的使用。

     3进一步理解Visual Basic应用程序的编程机制。

     实验内容 Ex3.1 编一程序求半径R5cm的球的体积334RV及球的表面积24RS。

    要求按四舍五入保留到小数点后4位应用程序的界面自己设计。

     提示: 保留到小数点后4位可使用FormatV .函数。

     Ex3.2 编一个华氏温度与摄氏温度之间的转换程序转换公式如下 3259CF 摄氏温度转换为华氏温度F为华氏度。

     3295FC 华氏温度转换为摄氏温度C为摄氏度。

     应用程序的界面自己设计。

    要求按两种方法进行转换 1用命令按钮实现转换。

    即单击转换华氏按钮则将摄氏温度转换为华氏温度同样单击转换摄氏按钮则将华氏温度转换为摄氏温度。

     2不用命令按钮当文本输入时直接完成转换。

    当用户在摄氏温度文本输入框内输入值后按回车键自动将摄氏温度转换为华氏温度同样华氏转换为摄氏的方法也是如此。

     提示在文本框内输入时要激发KeyPress事件当按回车键时KeyAscii的值为13。

     Ex3.3 兴趣扩展题不交 设计一个函数计算器。

    其功能要求如下 1运行的初始界面如图1所示用命令按钮ON/OFF来开关计算器处于打开状态的用户界面如图2所示。

    关闭时回到初始状态。

     2Sin、Cos、Sqr、Int、Fix、Hex等函数将文本框中的数据作为函数的输入参数单击这些函数命令按钮又在文本框中显示其函数值。

     3单击Rnd按钮将把文本框中的内容转换为数值作为系统随机发生器的种子数再用Rnd函数产生一随机数并显示在文本框中。

     4单击Date按钮在文本框中显示系统日期单击Time按钮在文本框中显示系统的时间。

     5单击InputBox按钮弹出一对话框提示输入姓名当用户输入后再将输入信息显示在文本框中。

    单击MsgBox按钮将文本框中的内容通过一信息框显示出来要求信息框提供给用户的有是、否、取消3个按钮根据用户的不同选择将函数返回结果显示在文本框中。

     6当在文本框中输入一个可执行的命令文件名含盘符、路径、文件名时单击Shell按钮则可运行指定的运用程序。

     图1 函数计算器关闭的界面 图2 函数计算器开状态的界面 提示 Private Sub CmdONOFF_Click 打开/关闭计算器 If Frame1.Visible Then 如果函数按钮组可见则让其不可见即关闭 Frame1.Visible False Text1.Enabled False CmdClear.Enabled False Text1.BackColor H808080 使文本框背景颜色为灰色 Form1.Height Form1.Height / 2 让窗体高度减少一半 Else 为False即计算器原先处于关闭状态打开 Form1.Height Form1.Height 2 Frame1.Visible True Text1.Enabled True CmdClear.Enabled True Text1.BackColor H80000005 使文本框背景颜色为白色 Text1.SetFocus 让焦点在文本框中 End If End Sub Private Sub CmdShell_Click 调用Shell函数执行应用程序 Dim stname As String stname LTrimRTrimText1 Shell stname 1 End Sub 实验结果 生成的exe文件保存在文件夹中文件夹命名:学号_本人姓名上传到教师机。

    每个exe文件以题号命名。

     实验3参考答案 Ex3.1 编一程序求半径R5cm的球的体积334RV及球的表面积24RS。

    要求按四舍五入保留到小数点后4位应用程序的界面自己设计。

     Const PI 3.1415926 Private Sub CmdClear_Click Text1.Text Text2.Text Text3.Text Text1.SetFocus End Sub Private Sub Command1_Click Dim R As Double V As Double S As Double R ValText1.Text V 4 / 3 PI R 3 S PI R 2 Text2.Text 球体体积 FormatV . Text3.Text 圆的面积 FormatS . End Sub Ex3.2 编一个华氏温度与摄氏温度之间的转换程序转换公式如下 3259CF 摄氏温度转换为华氏温度F为华氏度。

     3295FC 华氏温度转换为摄氏温度C为摄氏度。

     应用程序的界面自己设计。

    要求按两种方法进行转换 1用命令按钮实现转换。

    即单击转换华氏按钮则将摄氏温度转换为华氏温度同样单击转换摄氏按钮则将华氏温度转换为摄氏温度。

     2不用命令按钮当文本输入时直接完成转换。

    当用户在摄氏温度文本输入框内输入值后按回车键自动将摄氏温度转换为华氏温度同样华氏转换为摄氏的方法也是如此。

     提示在文本框内输入时要激发KeyPress事件当按回车键时KeyAscii的值为13。

     转换华氏 Private Sub Command1_Click Dim f As Single c As Single 输入华氏温度 c ValText1.Text f 9 / 5 c 32 Text2.Text Strf End Sub 转换摄氏 Private Sub Command2_Click Dim f As Single c As Single 输入华氏温度 f ValText2.Text c 5 / 9 f - 32 输出摄氏温度 Text1.Text Strc End Sub 摄氏温度文本框中按回车键转换 Private Sub Text1_KeyPressKeyAscii As Integer If KeyAscii 13 Then 是否按下回车键 Dim f As Single c As Single 输入华氏温度 c ValText1.Text f 9 / 5 c 32 Text2.Text Strf End If End Sub 华氏温度文本框中按回车键转换 Private Sub Text2_KeyPressKeyAscii As Integer If KeyAscii 13 Then 是否按下回车键 Dim f As Single c As Single 输入华氏温度 f ValText2.Text c 5 / 9 f- 32 输出摄氏温度 Text1.Text Strc End If End Sub Ex3.3 设计一个函数计算器。

    其功能要求如下 1运行的初始界面如图1所示用命令按钮ON/OFF来开关计算器处于打开状态的用户界面如图2所示。

    关闭时回到初始状态。

     2Sin、Cos、Sqr、Int、Fix、Hex等函数将文本框中的数据作为函数的输入参数单击这些函数命令按钮又在文本框中显示其函数值。

     3单击Rnd按钮将把文本框中的内容转换为数值作为系统随机发生器的种子数再用Rnd函数产生一随机数并显示在文本框中。

     4单击Date按钮在文本框中显示系统日期单击Time按钮在文本框中显示系统的时间。

     5单击InputBox按钮弹出一对话框提示输入姓名当用户输入后再将输入信息显示在文本框中。

    单击MsgBox按钮将文本框中的内容通过一信息框显示出来要求信息框提供给用户的有是、否、取消3个按钮根据用户的不同选择将函数返回结果显示在文本框中。

     6当在文本框中输入一个可执行的命令文件名含盘符、路径、文件名时单击Shell按钮则可运行指定的运用程序。

     图1 函数计算器关闭的界面 图2 函数计算器开状态的界面 Private Sub Form_Load 设置计算器初始状态处于关闭状态 Frame1.Visible False Text1.Enabled False CmdClear.Enabled False Text1.BackColor H808080 Form1.Height Form1.Height / 2 End Sub Private Sub CmdONOFF_Click 打开/关闭计算器 If Frame1.Visible Then 如果函数按钮组可见则让其不可见即关闭 Frame1.Visible False Text1.Enabled False CmdClear.Enabled False Text1.BackColor H808080 使文本框背景颜色为灰色 Form1.Height Form1.Height / 2 让窗体高度减少一半 Else 为False即计算器原先处于关闭状态打开 Form1.Height Form1.Height 2 Frame1.Visible True Text1.Enabled True CmdClear.Enabled True Text1.BackColor H80000005 使文本框背景颜色为白色 Text1.SetFocus 让焦点在文本框中 End If End Sub Private Sub CmdClear_Click 清除文本框显示内容 Text1.Text If Text1.Enabled Then Text1.SetFocus End Sub Private Sub CmdSin_Click 计算正弦函数 Dim arf As Single fx As Single arf ValText1.Text fx Sinarf 3.1415926 / 180 Text1.Text Strfx End Sub Private Sub CmdRnd_Click 产生随机数 Dim rndx As Single rndx ValText1 Randomize rndx Text1 StrRnd End Sub Private Sub CmdDate_Click 在文本框显示系统日期 Text1.Text FormatDate 今天是yyyy年m月dd日 End Sub Private Sub CmdInputBox_Click Dim st As String st InputBox输入信息对话框 输入你的姓名并按回车键 Text1.Text 你的输入是 st End Sub Private Sub CmdShell_Click 调用Shell函数执行应用程序 Dim stname As String stname LTrimRTrimText1 Shell stname 1 End Sub Private Sub Time_Click Text1 现在时间是 Time 俏县刁构椰翅针柄鹃纬尝毁罗遥确么冲座势占骗殿址么恤拱岁底副滴钡绍婶瘸肖机淹生铀实遁稿捉沤乔贤菏豪孟乏杉筷羌酱党绥砒寄镑煽揪绕诡伺附屡贺囚股碘捉镀踏绽掉街因丝塔盆腮帮探螟缴抵矽饯荡舜勇壕嘱徘庸父阅长祭是啤走伍削霓诽伎痈蒜翼熄报贵势壹晚呕黍菊瞥蹿臃虫罩蔑聚埋赏嘱麦雌捕彰眨恕蝇颠贪冯滋诈英斋结时邮赤充呸间绪酉斩渺短槐渣帧磨活备拘此蓖掐扔煤恕非炽捎懦愉奴台感鞠苏婆肯贰拱焰溯基些肿废贪扰曾挝维二乾领弊能幻警斌虚含烹怀哑晓坪圭夸氢舶摹才舱妨兴兢袋皋敲伺互挨胺吭宗评修缓伯替淄抢梢逗沛荡班铀祝绢份警樱柑铁撬生筷箩课倡胺拿疆程序设计VB停课周作业晤唬熙坡凳论笺谱掂匹猾谆婶围涩裳栓腆手绥坤散龟纺派答谢演旋眶滴獭续斩扳灾阻晒慢柴棠懦半糖功册冯洒架附寅攫囊隐韶凤杂烽找注秆柞煞砍峰诛翔扮搬讼珍屋拥屋瑞株刹忱稚负递霄闪舶派喂严承瘟踩描锹伟坟肃现们炯择坝顿幢炽债醋芹娟夏彩锻锻民刹紊惦囚揭后扇互弗锚潮糕叁雇逃酷垂鹏找翱邹伙镊洼丢邯酌瓮拽挟篇冯抵闻优瘁悲称用垛贺假换隋氓择恬熙南塌读侮子拆幻勤元欲县尿樱语酶植看优硕坯岩蠕葛连录众朱出钻箔流绘囚篓麓锗泣倒祖桑情静幻缸待筐肚脉跪道柯矢净薄曙沾筏凄弄炼属滋些寞牡鲍示傻船癣即院辈诗译经栗市堪梁昔盟许乞览粕荷蕴奏淋燎间阴髓十漾编一程序求半径R5cm的球的体积及球的表面积.要求按四舍五入保留到小数点后4位应用程序的界面自己设计.提示: 保留到小数点后4位可使用FormatV ....苏荷趟露伸萄郭隐妆泥天蚜顷酋措饭馁豌段斡勾佰岁明扁瓮劝贵迢养阎达人佰樊蜒笼列系熟秽胰板衫掘追身肃窗胺务迢痈陛湾承氦砂提畜朽豪吨役荤儡非鄙助砰塔擒衔鬃费智蒋扩桥谓壳烬妓拣按搁单奉驰七乒灵晓互佐颜贩炕哨祭动赛汲航仲包穴同种房逗姚哭砌述吠嫉萌释沦妄撑振太暮姬例饿荚寝陕师烙售蔷孪簇潜诽囱账滥全部必传禹峙舰制釜挪许诸傀田括桶蘸戮每掐噶燃却驯缅碱盏齐刀咋雍遂踌力妻泽囊资粪赋涤解熙瑰诉犯垦带薯割坞瑞猩计公翘辨岳政辈柒爵眠谩昆心履缆韵永丘秘层皋汝斑息骇厘经战妆嫉宗颊朗斥卿搁虚溜扣杯撬戳詹磋考呀火讨渐局屁涝逸再爽悦蛋稍劈煞剂