请熟悉VB的进来教教我

来源：百度知道 编辑：UC知道 时间：2024/05/23 21:44:05
编程题
1、设计一个程序，运行程序时，要求用户在文本框中输入大写英文字母。如果用户输入大写英文字母，窗体上显示出“输入正确！”；当输入小写字符时，窗体上显示出“输入有错误，请使用大写字母”。

2、编写一个程序，程序运行时，在文本框中输入一个整数。如果输入的数据小于或等于0，提示重新输入。如果大于0，计算该数的阶乘，显示计算结果。

'添加窗体Form1,文本框Text1,Text2,然后添加如下代码:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then '按回车键开始处理
        If UCase(Text1.Text) = Text1.Text Then
            Print "输入正确！"
        Else
            Print "输入有错误，请使用大写字母"
        End If
    End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then '按回车键开始处理
        If Val(Text2.Text) <= 0 Then
&