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

    累積人氣

  • 0

    今日人氣

    0

    追蹤人氣

VB8

Private Sub Command1_Click()

'變數宣告
Dim sum1 As Integer     '宣告 總和
Dim sum2 As Integer     '宣告 總和
Dim sum3 As Integer     '宣告 總和
Dim i As Integer       '宣告 迴圈變數
Dim start1 As Integer  '宣告 迴圈變數 起始值
Dim end1 As Integer    '宣告 迴圈變數 結束值
Dim step1 As Integer   '宣告 迴圈變數 間隔

sum = 0                '給定總和起始值
Open Text1.Text For Input As #1    '開啟檔案
Input #1, start1, end1, step1         '讀入變數資料
Close #1                              '關閉檔案

'計算總和
For i = start1 To end1 Step step1
 sum1 = sum1 + i
Next

i = start1
Do While (i <= end1)
sum2 = sum2 + i
i = i + step1
Loop

i = start1
Do
sum3 = sum3 + i
i = i + step1
Loop While (i <= end1)

'輸出資料
output.Text = ""
output.Text = sum1 & "-" & sum2 & "-" & sum3

'Printer.FontSize = 20
'Printer.Print "第一題答案:"
'Printer.Print sum

End Sub

相簿設定
標籤設定
相簿狀態