杭州师范学院 信息工程学院--《计算机技术基础》（VB程序设计）
运行时，单击命令按钮Command1，就在标签4（Label4）中显示随机实数[0,1]，在标签5（Label5）中显示随机实数[1,10]，在标签6（Label6）中显示随机整数[10,100]。
检查
当程序运行出错，可从常见的一些错误入手，进行检查。
实验四 选择结构程序设计
实验目的：
1、 掌握if语句和嵌套if语句的正确使用。 2、 掌握Select Case情况语句的正确使用。
实验内容：
1、 设计一个字符大小写转换程序，程序运行界面如图4-1所示。当在文本框Text1中输入大写字母，在文本框Text2中同时显示其小写字母；当在文本框Text1中输入小写字母，在文本框Text2中同时显示其大写字母；中输入其它字符，则在文本框Text2中原样输出。
图4- 1
2、 编程，输入平面上任意一点的坐标（x，y），并判断显示该点位于哪个象限的信息。例如，当输入-2，5时，输出“（-2，5）”位于第二象限。运行结果如图4-2所示。
图4- 2
实验主要步骤：
题目1操作步骤：
1) 根据图4- 1所示，设计窗体界面，窗体中各对象的属性设置如下表。 控件 窗体 标签1 标签2 文本框1 文本框2 对象名 Form1 Label1 Label2 Text1 Text2 caption caption caption text text - 13 -
属性名 属性值 ―字符大小写转换‖ ―输入文本‖ ―输出文本‖ ―‖ ―‖ 杭州师范学院 信息工程学院--《计算机技术基础》（VB程序设计）
2) 过程设计
[分析]
⑴在文本框Text1中输入字母，同时在文本框Text2中显示相应的字母，该触发事件可以为Keypress和Change事件。两事件的区别将在以后章节中学习，该题建议编写Keypress事件，
⑵用if语句判断Text1中输入的字母是大写、小写还是数字。
⑶文本框Text1中输入的字母其Ascii码为Keyascii，大写字母Ascii码值为65~90，小写字母Ascii码值为97~121，将Text1中输入字母在Text2中转换为相应的字母，可以使用加减32，或用转换函数Ucase和Lcase。
[程序代码]
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim st As String * 1
st = Chr(KeyAscii)
If st >= \
st = Chr(KeyAscii - 32) ElseIf st >= \st = Chr(KeyAscii + 32) End If
Text2.Text = Text2.Text & st
End Sub
3) 运行调试
运行时，在文本框Text1内每输入一个大写（小写）字母，同时就会在文本框Text2内显示相应小写（大写）字母，若输入其它字符，则同时在文本框Text2内显示相同字符。运行界面如图4- 1所示。
4) 出错检查
当程序运行出错，可从常见的一些错误入手进行检查。 ? If语句缺少配对子句And。
? ElseIf子句的书写错误，ElseIf中间有空格。 ? 赋值语句等号两侧类型不一致。
题目2操作步骤：
1)根据图4- 2所示，设计窗体界面，窗体中各对象的属性设置如下表。 控件 对象名 属性名 属性值 窗体 标签 文本框 命令按钮1 命令按钮2 Form1 Label1 Text1 Command1 Command 2 caption caption text caption caption ―判断坐标所在象限‖ ―输入坐标x，y‖ ―‖ ―判断‖ ―退出‖
2)过程设计
[分析]
⑴在文本框Text1中输入x，y，再从中分离出坐标值x，y。方法是先确定“，”位置k=Instr（text1，‖，‖），然后就可得坐标值分别为x=ValMid（text1，1，k-1），y= ValMid（text1，k+1）。
⑵x，y的取值可能有多种情况(分别为>0,=0,<0)， 通过Select Case语句和if语句结合使用,来判断x，y的可能取值，特别注意Select Case语句中测试表达式的表示。 ⑶用MsgBox函数，在消息框中显示信息。
⑷可编写Text1的KeyPress事件,以控制文本框内只能输入数字,逗号,回退键。 [程序代码]
Private Sub Command1_Click() '判断命令按钮 Dim x As Integer, y As Integer, k As Integer
- 14 -
杭州师范学院 信息工程学院--《计算机技术基础》（VB程序设计）
k = InStr(Text1.Text, \查找逗号所在地位置 If k = 0 Then
MsgBox \输入错误,请重新输入\消息框\ Text1.Text = \ Text1.SetFocus Else
x = Val(Mid(Text1.Text, 1, k - 1)) '分离x坐标 y = Val(Mid(Text1.Text, k + 1)) '分离y坐标 Select Case x Case 0
If y = 0 Then
MsgBox \在坐标原点\消息框\ ElseIf y > 0 Then
MsgBox \是在Y轴的上半轴上\消息框\ Else
MsgBox \是在Y轴的下半轴上\消息框\ End If Case Is > 0
If y = 0 Then
MsgBox \是在X轴的正半轴上\消息框\ ElseIf y > 0 Then
MsgBox \是在第一像限中\消息框\ Else
MsgBox \是在第四像限中\消息框\ End If Case Is < 0
If y = 0 Then
MsgBox \是在X轴的负半轴上\消息框\ ElseIf y > 0 Then
MsgBox \是在第二像限中\消息框\ Else
MsgBox \是在第三像限中\消息框\ End If End Select End If
End Sub
'限定只能输入数字,逗号,回退键
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then '按回车键调用\判断\命令按钮 Call Command1_Click
Exit Sub End If
Select Case Chr(KeyAscii)
Case \ Case Else
KeyAscii = 0 End Select End Sub
Private Sub Command2_Click() '结束命令按钮
- 15 -
杭州师范学院 信息工程学院--《计算机技术基础》（VB程序设计）
End End Sub
3)运行调试
运行时，在文本框内输入x和y值，中间用“，”分割，注意所用的“,”和“-”符号应与程序代码中的对应字符一致。单击“判断”按钮，则在消息对话框内显示判断所得信息。若在文本框内输入的字符为非数字,逗号,回退键，单击“判断”按钮后，消息对话框内显示\输入错误,请重新输入\，且文本框内不显示字符，文本框只显示数字,逗号字符。运行界面如图4- 2所示。
4)检查
当程序运行出错，可从常见的一些错误入手，进行检查。
? 选择结构中缺少配对的结束语句。（If~End，Select Case~End Select） ? 多边选择ElseIf子句的书写，注意ElseIf中间不能有空格。 ? Select Case语句中Case子句的表示，注意不能出现变量。
实验五 循环结构程序设计
实验目的：
1、 掌握一重或多重循环结构的正确使用。
2、 学会根据问题找规律、并写出通项式，掌握条件循环的正确使用。 3、 学会利用循环结构输出字符图形。
实验内容：
1?12!?13!?14!?....?(?1)n?11n!的和，要求精度达到0.000001。
1、 编程，计算算式
1
222 33333 4444444 555555555 6666666 77777 888 9
2、 编程，输入一个整数n（n大于0、小于10）后，显示如下图所示的图案。
实验主要步骤：
题目1操作步骤： 1) 过程设计 [分析]
⑴用循环实现累加，循环的终止与否由当前项的值是否达到精度要求来决定，由于事先未知循环次数，故使用While（Until）/Loop循环语句为好。
⑵找通项，即前一项与当前项的关系：tn= tn-1/n（注意程序代码表示为t= t/n） ⑶级数之和表示为累加和：s=s+f*t，其中f表示符号。
- 16 -
相关推荐：
loading