文档介绍:第五部分:上机程序设计题
1、新建一个工程,完成“加法器”程序的设计。具体要求如下:
窗体的标题为"加法器“,固定边框。
在窗体上从上到下依次引入TEXT1、TEXT2、TEXT3三个文本框,三个文本框的对齐方式 均为右对齐。
从上面两个文本框用于输入加数,要求不接受非数字键。
下面一个文本框用于显示和,它不能进行编辑操作。
单击“=“按钮(COMMAND*!),将两个加数的各显示在下面一个文本框中。
单击“清空“按钮(COMMAND2),三个文本框内容都被清空,同时第一个文本框获得焦 点。
Private Sub Command l_Click()
= Val() + Val()
End Sub
Private Sub Command2_Click()
= HH
= "n
=
End Sub
Private Sub Form_Load()
= True ,屏蔽对 Text3 的编辑
End Sub
Private Sub Textl_KeyPress(KeyAscii As Integer) Select Case KeyAscii
Case 48 To 57, 8
Case Else
KeyAscii 二 0
End Select
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
Text l_KeyPress(KeyAscii)
End Sub
2、新建一个工程,完成“健康称”程序的设计。具体要求如下:
窗体的标题为“健康称”,固定边框。
窗体的左边有两个标签,,Labell的标题为“身高”、Label2的标题为“体重”;它们的 旁边分别有两个文本框,Textl用于输入身高、Text2用于输入体重;在文本框的右边有两个 标签,Label3的标题为“cm”、Label4的标题为“kg”。
将两个文本框文字对齐方式均设置为右对齐,最多接受3个字符。
两个文本框均不接受非数字键。
单击“健康状况”按钮(Commands ,根据计算公式将相应的提示信息显示在标签Label5 中。计算公式为:标准体重=身高「05;体重高于标准体重***.1为偏胖,提示“偏胖,注意 节食”;,提示“偏瘦,增加营养”;其他为正常,提示“正 常,继续保持”。
Private Sub Command l_Click()
Dim bzh As Single
bzh = Val(Textl .Text) - 105
IfVal()〉bzh * Then
= ”偏胖,注意饮食”
Elself Val() < bzh * Then
= ”偏瘦,增加营养”
Else
="正常,继续保持”
End If
End Sub
Private Sub Textl_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, 8
Case Else
KeyAscii 二 0
End Select
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
Textl_KeyPress(KeyAscii)
End Sub
3、新建一个工程,完成“判断质数”应用程序的设计。具体要求如下:
按照下图所示在窗体上放置按钮和控件。
按照下图所示在窗体上放置按钮和控件。
在%青输入”文本框中输入一个数字后,单击判断,可在”结果为”显示判断结果。
若输入的不是数字,则弹出消息框,提示信息是”输入的不是数字,无法计算”。
Private Sub Command 1 _Click()
= ”结果为:"
If IsNumeric(Textl) Then
x = Val(Textl)
For i = 2 To Int(Sqrt(x))
If x Mod i = 0 Then
Exit For
End If
Next i
If i >Int(Sqrt(x)) Then
= Label2. Caption + Str(x) + "是一个质数"
E