UC知道谁帮我把下面的vb代码翻译成中文???谢谢!
来源：百度知道 编辑：UC知道 时间：2024/05/26 19:58:19
Private Sub Command1_Clickc)
Dimi As Integer,X As Integer
If Not IsNumeric(Text1.Text)Then
MsgBox"输入的不是数字，无法计算""design"
Else
X=Val(Text1)
IfX=0 Or X=3 Then
Label3.Caption==x&"是质数"
Fori=2To Sqr(x)
If X Modi=0 Then Exit For
Next
If i>Sqr(x)Then
Label3.Caption=x&"是质数"
Else
Label3.Caption=x&"不是质数"
End If
End If
End Sub
Dimi As Integer,X As Integer
If Not IsNumeric(Text1.Text)Then
MsgBox"输入的不是数字，无法计算""design"
Else
X=Val(Text1)
IfX=0 Or X=3 Then
Label3.Caption==x&"是质数"
Fori=2To Sqr(x)
If X Modi=0 Then Exit For
Next
If i>Sqr(x)Then
Label3.Caption=x&"是质数"
Else
Label3.Caption=x&"不是质数"
End If
End If
End Sub
呵呵,还有这样求翻译的..我试试
1.窗体 按钮1 点击 过程
2.声明一个整型变量i,一个整型变量x
3.如果文本框1中的文本不是数字就
4.弹出提示框, 标题为"design" ,内容为:"输入的不是数字，无法计算"
5.反之,也就是说文本框1中是数字
6.让变量x等于文本框1中的数字
7.如果变量x等于0或3就
8.标签3显示变量x的内容和 "是质数"
9.让变量i的值从2循环到变量x的开平方为止
10.如果变量x除以i的余数是0的话就退出循环
11.继续循环
12.如果变量 i的值小于变量x的开平方的话就
13.标签3显示变量x的内容和 "是质数"
14.反之
15.标签3显示变量x的内容和 "不是质数"
16.结束第12行的如果
17.结束第3行的如果
18.结束体 按钮1 点击 的过程
一个字 高~~~~~~~~
小弟佩服~
—_—!
高人啊！