程序设计实验报告.docx

VB程序设计实验报告 实验日期：2010.09.16 一、实验目的与要求理解变量与常量的概念、定义及使用，并且理解程序设计的算法及算法表示；掌握各种常用数据类型的数据在内存中的存放形式，选择及循环控制语句的运用；了解自定义数据类型，各种运算符、表达式的使用方法，顺序结构程序设计方法；会用常用的内部函数，并且能够灵活运用各种选择结构进行和循环控制进行综合程序设计。二、实验内容1.设计一个字符大小写转换程序，当在文本框Text1中输入大写字母，在文本框Text2中同时显示其小写字母；当在文本框Text1中输入小写字母，在文本框Text2中同时显示其大写字母；当输入其他字符，则在文本框Text2中原样输出。2. 编写华氏温度与摄氏温度的转换程序，转换公式如下：F = 95 c + 32 摄氏温度转化为华氏温度，F为华氏温度C = 59 F -32 华氏温度转化为摄氏温度，C为摄氏温度要求按两种方法进行转换。（1） 用命令按钮实现转换，即单击“转换华氏”按钮，则将摄氏温度转换成华氏温度；同样，单击“转换摄氏”按钮，则将华氏温度转换成摄氏温度。（2） 不用命令按钮，当文本输入时直接完成转换。当用户在“摄氏温度”文本输入框内输入值后按回车键，自动将摄氏温度转换成华氏温度；同样，华氏转换成摄氏的方法也是如此。三、实验步骤第一题实验步骤;(1) 将label1、label2的caption属性写为“输入文本”；(2) 将text1、text2的内容清空；(3) 将form1的caption属性改为“字符大小写转换”。第二题实验步骤（1） 将命令按钮Command1、Command2的caption属性改为“转换华氏”、“转换摄氏”，并统一大小，设置间距；（2） 将label1、label2的caption属性改为“摄氏温度”、“华氏温度”，并设置字体大小。（3） 将text1、text2的内容清空；四、程序代码第一题实验代码：Private Sub Text1_KeyPress(KeyAscii As Integer)Select Case KeyAsciiCase 0 To 64Text2.Text = Text2.Text + Chr(KeyAscii)Case 65 To 90Text2.Text = Text2.Text + Chr(KeyAscii + 32)Case 97 To 122Text2.Text = Text2.Text + Chr(KeyAscii - 32)Case ElseKeyAscii = 0End SelectEnd Sub第二题实验代码：Private Sub Command1_Click()Dim f!, c!c = Text1.Textf = 9 / 5 * c + 32Text2.Text = fEnd SubPrivate Sub Command2_Click()f = Text2.Textc = 5 / 9 * (f - 32)Text1.Text = cEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thenc = Text1.Textf = 9 / 5 * c + 32Text2.Text = fEnd IfSelect Case KeyAsciiCase 48 To 57, 8, 46Case ElseKeyAscii = 0End SelectEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thenf = Text2.Textc = 5 / 9 * (f - 32)Text1.Text = cE