Question

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

Answer 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

 

 

Answer 2

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

Answer 3

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