首頁- 代碼:
Dim k, sum As Integer
Private Sub Command1_Click()
Label1.Caption = Val(Text1(0).Text) + Val(Text1(1).Text)
End Sub
Private Sub Command10_Click()
Label1.Caption = (k * (k + 1) * (2 * k + 1)) / 6
End Sub
Private Sub Command2_Click()
Label1.Caption = Val(Text1(0).Text) / Val(Text1(1).Text)
End Sub
Private Sub Command3_Click()
Label1.Caption = Val(Text1(0).Text) * Val(Text1(1).Text)
End Sub
Private Sub Command4_Click()
Label1.Caption = Val(Text1(0).Text) - Val(Text1(1).Text)
End Sub
Private Sub Command5_Click()
Label1.Caption = Val(Text1(0).Text) ^ 2
End Sub
Private Sub Command6_Click()
Label1.Caption = Val(Text1(0).Text) ^ 0.5
End Sub
Private Sub Command7_Click()
k = Val(Text1(0).Text)
Label1.Caption = k ^ 2 + k + 1
End Sub
Private Sub Command8_Click()
sum = 0
For k = 1 To Text1(0).Text
sum = sum + k
Next k
Label1.Caption = sum
End Sub
Private Sub Command9_Click()
Label1.Caption = ((k * (k + 1)) / 2) ^ 2
【VB6.0】多功能整合
內容 [第1頁(共1頁)]
1 【VB6.0】多功能整合 周二 五月 03, 2011 12:23 pm
Williamd
Admin
內容 [第1頁(共1頁)]
» 數位新視界 » 資訊特區 » C-Wind第一資訊學院 » 【VB6.0】多功能整合
這個論壇的權限：
您 無法 在這個版面回復文章