求VB程序代码
答案:2 悬赏:30 手机版
解决时间 2021-03-04 02:05
- 提问者网友：心如荒岛囚我终老
- 2021-03-03 21:33
求VB程序代码
最佳答案
- 五星知识达人网友：廢物販賣機
- 2021-03-03 21:44
他一么中一买的是熊棉袄
是后的中精神爽
面的么历史
别让任何的灵闯入
为么·的是一么无果止的唠叨而一如女娲
面的么过中为以得过且过。
是后的中精神爽
面的么历史
别让任何的灵闯入
为么·的是一么无果止的唠叨而一如女娲
面的么过中为以得过且过。
全部回答
- 1楼网友：上分大魔王
- 2021-03-03 22:04
Private Sub Command1_Click()
If Option1 Then
If Val(Text1.Text) > 0 Then
Text3.Text = "正数"
Else
Text3.Text = "负数"
End If
End If
If Option2 Then
If Val(Text1.Text) - Val(Text2.Text) > 0 Then
Text3.Text = "正数"
Else
Text3.Text = "负数"
End If
End If
End Sub
If Option1 Then
If Val(Text1.Text) > 0 Then
Text3.Text = "正数"
Else
Text3.Text = "负数"
End If
End If
If Option2 Then
If Val(Text1.Text) - Val(Text2.Text) > 0 Then
Text3.Text = "正数"
Else
Text3.Text = "负数"
End If
End If
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯