发布时间 : 星期六 文章VB实训指导书更新完毕开始阅读bb175a32b90d6c85ec3ac60c
Visual Basic实用程序设计教程
在错误信息得到用户确认（点击MsgBox对话框上的“确定”按钮）之后，将输入焦点转移到输入半径的文本框中，且将当前的非法输入自动选定，反白显示。
【提示】
（1）判断输入值是否为数值类型可用函数IsNumber（）；
（2）VB大部分数据类型之间在适当的时候会自动相互转换，此谓隐式转换。例如，文本框的Text属性为字符串类型，当用Text属性值直接参加算术运算时，Text属性值先会自动转换为数值类型，然后再参加算术运算。但是当Text属性值含有非数字字符时，会产生“类型不匹配”的运行时错误，因此有些情况下采用显示转换更为安全妥当。
当字符串类型向数值类型转换时用函数Val（）；而当数值类型向字符串类型转换时，可以用Str（）函数或格式化函数Format（）。
4 编写一个华氏温度F与摄氏温度C之间转换的应用程序，界面如图2-3所示。其中F与C之间的关系为：F?95C?32。 图2-3 实验2-4程序运行界面
302
实验三 选择结构程序设计
(设计型 4学时)
一、实验目的
1．掌握逻辑表达式的正确使用方法。
2．掌握单分支、双分支和多分支条件语句结构的使用方法。
二、实验内容
1 有函数：
?x?y??3x?2?4x?12?(x?1)(1?x?10) (x?10)写一个程序，输入x值后，则输出相应y值。要求用“If…ElseIf…EndIf”和用“Select Case”两种方法完成该题目。
【提示】
注意区分1≤x<10和1<=x And x<10有什么不同。 2编写一个判断给定坐标在第几象限的程序，界面如图3-1所示。
图3-1 实验3-2程序运行界面
3 编写一个简易学生成绩管理系统，要求输入姓名和成绩，点击“添加”按钮后，在文本框中追加并换行显示“姓名”、“成绩”和“合格”或“不合格”信息，如图3-2所示。
图3-2 实验3-3程序运行界面
【提示】
换行追加并且显示时，可用Text1.Text = Text1.Text & vbCrLf & （待追加并显示的字符串），同时应该将Text1的MultiLine属性设置为True，ScrollBars属性设置为Both。
Visual Basic实用程序设计教程
进一步要求：按照≥90为“优”，≥80为“良”，≥70为“中”，≥60为“及格”，<60为“不及格”来划分并显示上述信息。
304
实验四 循环结构程序设计
(设计型 4学时)
一、实验目的
1．掌握循环的基本概念。 2．掌握For循环。
3．掌握Do ... While循环和Do While ... Loop循环，注意区分两种循环。 4．了解Do ... Loop Until循环和Do Until ... Loop循环。 5．掌握如何利用循环条件来控制循环，防止死循环的出现。
二、实验内容
1 编写一个程序，当程序运行时，单击窗体后，用单循环在窗体上输出规则字符图形，如图4-1所示。
【提示】
使用String（）函数，String（）函数可以重复显示某个字符串。例如，String（4，\）可以生成4个连续的“*”，即“****”。
图4-1 实验4-1程序运行界面
图4-2 实验4-2程序运行界面
2 编写程序，用单循环在窗体上实现如图4-2所示的图形。 【提示】
（1）注意观察图形的规律：第I行在输出时是m个空格＋n个字符x，其中m、n、x均和I有关系。
（2）配合Print方法使用Spc（n）函数，其作用是产生n个连续的空格。
（3）使用Str（）函数和Trim（）函数。Str（f）函数是将数值f转换为相同形式的字符串；Trim（s）函数可将字符串s的最前和最后的空格（称为前导和后导空格，可为多个空格）剪切掉，字符串中的空格不受影响。当I为7时，Trim（Str（I））则是字符串\。