UC知道Visua Basic 语言问题
来源：百度知道 编辑：UC知道 时间：2024/05/10 08:45:04
2个问题：
1.如何用VB按向上0.5圆整，例如：25.4-25.5 ，18.7-19
请以在text1中输入数字，按开始，在text2中显示结果举例。
2.如何用VB达到如下目的：2个text和一个按钮，text1初始是“请输入”
text2初始是0，我要在text1中输入数字，按cmd按钮，在text2中显示text1中的数字*2
如果text1中不是一个大于0的数（包括0，负数，字符），text2中显示“输错了”
我要的是text2中显示的数字是text1中的数字乘以2，是否下面的语句Text2.Text = 2 改为Text2.Text = Text1.Text * 2 ??
1.如何用VB按向上0.5圆整，例如：25.4-25.5 ，18.7-19
请以在text1中输入数字，按开始，在text2中显示结果举例。
2.如何用VB达到如下目的：2个text和一个按钮，text1初始是“请输入”
text2初始是0，我要在text1中输入数字，按cmd按钮，在text2中显示text1中的数字*2
如果text1中不是一个大于0的数（包括0，负数，字符），text2中显示“输错了”
我要的是text2中显示的数字是text1中的数字乘以2，是否下面的语句Text2.Text = 2 改为Text2.Text = Text1.Text * 2 ??
1.
private Sub Command1_Click()
Text2.Text = Int((Val(Text1.Text) + 0.5) * 2) / 2
End Sub
2.
Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then
If Val(Text1.Text) > 0 Then
Text2.Text = val(text1.text)*2 '此句做了改动
Exit Sub
End If
End If
Text2.Text = "输错了"
End Sub
Private Sub Form_Load()
Text1.Text = "请输入"
Text2.Text = 0
End Sub
===========================
是的