VB程序設計強化復習主題講座(2)ppt課件

1、格式“A 90 x“B80 x90“C70 x80“D 60 x70“E x0,y0X2-y2x0,y0 and y0 then z=x*x+y*yIf x0 and y 0.00001 ? i = i + 1 t = t / I e = e + t Loop Print 計算了計算了 ; i; 項的和是項的和是 ; eEnd Sub00103133)(2xxxxxxxxfy+ Dim i As Integer, j As Integer * 錯誤1 * For i = 9 To 1 Form1.Print Space(i); * 錯誤2 * For j = 1 To 2 * i - 1 *

2、錯誤3 * Form1.Print i Next j Form1.Print Next iEnd SubPrivate Sub Form_Click()Dim i%, j%N=9For i = 1 To n Print Tab(20 - i); For j = 1 To i Print Trim(Str(j); Next j For j = i - 1 To 1 Step -1 Print Trim(Str(j); Next j PrintNext iEnd Sub n = Val(InputBox( 輸入一個正整數輸入一個正整數N=？) For i = 2 To int(Sqr(n) If

3、n Mod i = 0 Then Exit ForNext i If i int(Sqr(n) Then Text2.Text = Text1.Text + 是素數是素數 Else Text2.Text = Text1.Text + 不是素數不是素數 End IfPrivate Sub Command1_Click() Dim n As Integer , i As Integer, flag as boolean n = Val (Text1.Text) flag=true 先假設是素數先假設是素數 For i = 2 To Sqr(n) If n Mod i = 0 Then flag=f

4、alse : exit for Next i If flag Then Text2.Text = Text1.Text + 是素數是素數 Else Text2.Text = Text1.Text + 不是素數不是素數 End IfEnd SubPrivate Sub Form_Click() Dim Str1 As String,Str2 As String Str1=Text1.Text Str2=for m=1 to len(str1)2 Str2 = Str2 + mid(str1,m,1) Str2 = str2 + mid(str1,len(str1)-m+1,1) next m Form1.Print Str2End Sub i = i + 1 Loop While i n * 錯誤錯誤4 * Form1.Print str(Hex) & 轉換為十進制數為轉換為十進制數為 & str(Dec)End Sub Form1.Print i; is armstrong number Form1.