追蹤
ˊ-橙色九月-ˊ
關於部落格
  • 32460

    累積人氣

  • 0

    今日人氣

    0

    追蹤人氣

VB10

'**************************
'* 119-940302 Program Start
'**************************
Private Sub Command1_Click()
 Dim i As Integer  '行迴圈
 Dim j As Integer  '列迴圈
 Dim n As Integer  '讀入資料
 Dim s As String   '結果
 
 Open "d:940302.sm" For Input As #1
 Input #1, n
 Close #1
 第一種方法
 For i = 1 To n    '行迴圈
  For j = 1 To i   '列迴圈
   s = s & j       '列資料
  Next
  s = s & vbCrLf   '換行
 Next
 第二種方法
j = 1
Do while j <= i
s = s & j
j = j + 1
Loop
s = s & vbCrLf
i = i + 1
Loop
第三種方法
i = 1
Do
j = 1
Do
s = s & j
j = j + 1
Loop while j <= i
s = s & vbCrLf
Loop while i <= n
 
 Text1.Text = "第二題結果:" & vbCrLf & vbCrLf & s
End Sub
<<這是940302檔案
 
 
相簿設定
標籤設定
相簿狀態