VB启动计算机并控制

发布时间：2020-12-17 08:21:11 所属栏目：百科来源：网络整理

导读：Private Sub Command1_Click()Dim I As IntegerDim Jh As String'===Shell "calc.exe",1For I = 1 To 9SendKeys Replace("{" Str(I) "}"," ","")SendKeys "{+}"NextEnd SubPrivate Sub Command2_Click()Dim k As Integer,sum As IntegerFor k = 1 To 9sum =

Private Sub Command1_Click()
Dim I As Integer
Dim Jh As String
'===
Shell "calc.exe",1
For I = 1 To 9
SendKeys Replace("{" & Str(I) & "}"," ","")
SendKeys "{+}"
Next
End Sub


Private Sub Command2_Click()
Dim k As Integer,sum As Integer
For k = 1 To 9
sum = sum + k
Next
MsgBox sum
End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!