内容发布更新时间 : 2025/7/3 7:59:03星期一 下面是文章的全部内容请认真阅读。
Next Next Next End Sub
Private Sub Command2_Click() For i = 0 To 9 For j = 0 To 9 For k = 0 To 9
If Val(i & i & k) + Val(j & k & k) = 532 Then Print i; j; k Next Next Next End Sub
VERSION 5.00
Begin VB.Form Form1
Caption = \ ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 LinkTopic = \ ScaleHeight = 3090 ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省 Begin VB.TextBox Text1 Height = 615 Left = 1200 TabIndex = 1 Top = 840 Width = 2415 End
Begin VB.CommandButton Command1 Caption = \ Height = 495 Left = 1920 TabIndex = 0 Top = 1920 Width = 1215 End End
Attribute VB_Name = \
Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() x = Val(Text1) y = x * 4 n = 0
Do While x <= y x = x * (1 + 0.1) n = n + 1 Print x Loop
Print x, n End Sub
VERSION 5.00
Begin VB.Form Form1
Caption = \ ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 LinkTopic = \ ScaleHeight = 3090 ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = \ Height = 495 Left = 1800 TabIndex = 0 Top