Case Else KeyAscii = 0 End Select End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
f = Text2.Text c = 5 / 9 * (f - 32) Text1.Text = c End If Select Case KeyAscii Case 48 To 57, 8, 46 Case Else KeyAscii = 0 End Select End Sub
VB 程序设计实验报告
实验日期：2010.09.16
一、实验目的与要求
理解变量与常量的概念、定义及使用，并且理解程序设计的算法及算法表示； 掌握各种常用数据类型的数据在内存中的存放形式，选择及循环控制语句的运用； 了解自定义数据类型，各种运算符、表达式的使用方法，顺序结构程序设计方法； 会用常用的内部函数，并且能够灵活运用各种选择结构进行和循环控制进行综合程序设计。
小，设置间距；
（2） 将 label1、label2 的 caption 属性改为“摄氏温度” 、 “华氏温度”，并设置字体大小。 （3） 将 text1、text2 的内容清空； 四、程序代码
第一题实验代码：
Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 0 To 64 Text2.Text = Text2.Text + Chr(KeyAscii) Case 65 To 90 Text2.Text = Text2.Text + Chr(KeyAscii + "32") Case 97 To 122 Text2.Text = Text2.Text + Chr(KeyAscii - "32")
二、实验内容
1.设计一个字符大小写转换程序，当在文本框 Text1 中输入大写字母，在文本框 Text2 中同时显示 其小写字母；当在文本框 Text1 中输入小写字母，在文本框 Text2 中同时显示其大写字母；当输入 其他字符，则在文本框 Text2 中原样输出。 2. 编写华氏温度与摄氏温度的转换程序，转换公式如下：
Text1.Text = c End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
c = Text1.Text f = 9 / 5 * c + 32 Text2.Text = f End If Select Case KeyAscii Case 48 To 57, 8, 46
三、实验步骤 第一题实验步骤;
(1) 将 label1、label2 的 caption 属性写为“输入文本”； (2) 将 text1、text2 的内容清空； (3) 将 form1 的 caption 属性改为“字符大小写转换”。

第二题实验步骤
（1） 将命令按钮 Command1、Command2 的 caption 属性改为“转换华氏” 、 “转换摄氏” ，并统一大
F =
������ ������ ������
������ + ������������
摄氏温度转化为华氏温度，F 为华氏温度 华氏温度转化为摄氏温度，C 为摄氏温度
C = ������ ������ − ������������
要求按两种方法进行转换。
（1） 用命令按钮实现转换，即单击“转换华氏”按钮，则将摄氏温度转换成华氏温度； 同样，单击“转换摄氏”按钮，则将华氏温度转换成摄氏温度。 （2） 不用命令按钮，当文本输入时直接完成转换。当用户在“摄氏温度”文本输入框内 输入值后按回车键，自动将摄氏温度转换成华氏温度；同样，华氏转换成摄氏的方 法也是如此。
Case Else KeyAscii = 0 End Select
End Sub
第二题实验代码：
Private Sub Command1_Click() Dim f!, c! c = Text1.Text f = 9 / 5 * c + 32 Text2.Text = f End Sub
Private Sub Command2_Click() f = Text2.Text c = 5 / 9 * (f - 32)