用vb编写——从文本框(text1)输入一个n,在文本框(text2)中输出N！的值(要求tex2的内容不能修改)

2025-05-15 12:06:51

推荐回答（3个）

回答1：

Private Sub Command1_Click()

''''定义变量

Dim num1 As Variant

Dim sum1 As Variant

num1 = Val(Text1.Text)

sum1 = 1

''''判断

If num1 <= 0 Then

MsgBox "不允许输入小于等于0的数值", vbOKOnly, "提示"

Text1.SetFocus

Exit Sub

End If

If num1 <> Int(num1) Then

MsgBox "请输入整数", vbOKOnly, "提示"

Text1.SetFocus

Exit Sub

End If

'求值

For i = 1 To num1

sum1 = sum1 * i

Next i

Text2.Text = sum1

End Sub

回答2：

text2=Ucase(text1)
将text2的locked属性设置为True可以使之不可编辑
或者使用Label控件代替text2。因为label控件内容不能编辑。

回答3：

在Text1_Change()函数里写语句：Text2.Text = UCase$(Text1.Text)