- 博客(3)
- 收藏
- 关注
RSS订阅原创 vb
Private Sub Command1_Click() Dim numberlengh As Integer Dim Firstnumbers() As Integer Dim Secondnumbers() As Integer numberlengh = Len(Text1.Text) ReDim Firstnumbers(numbe
2012-05-21 20:58:54
276
原创 vb
Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text If a > b Then Print a Else Print b End If End Sub 第一个 Private Sub Command1_Click() Dim a
2012-05-21 20:58:11
176
原创 vb
Private Sub Command1_Click() If Trim(Text1.Text) = "" Then Text1.Text = "0" '调用自定义函数 Label3.Caption = transth(Val(Text1.Text).true) Label4.Caption = "摄氏度" Label5.Caption = "华氏度" End Sub Priva
2012-05-21 20:56:42
251
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人