【正文】
As String*5 cj As Integer End Type 運(yùn)動(dòng)員號(hào) 學(xué)院 成績 1423 理學(xué)院 1428 理學(xué)院 1476 化工學(xué)院 1455 信息學(xué)院 1333 法學(xué)院 1346 文學(xué)院 1379 化工學(xué)院 1328 理學(xué)院 3. 使用記錄變量或記錄數(shù)組時(shí)要采用記錄元素。 39。 n。 下面程序由一個(gè)事件過程 Form_click( )和一個(gè)自定義函數(shù)過程 Mean( )組成。 Private Sub tr(ByVal Str$, ByVal n%) Dim I As Integer, J As Integer For I = 1 To n ‘打印 n行 For J = 1 To I ‘每行打印字符 Print Str。交換數(shù)組元素 min = x(i) x(i) = x(t) x(t) = min End If Next i For i = 1 To 8 39。j。 第 5 章 數(shù)組與記錄 例: A(3) As Integer B(1 to 2, 2 to 2) As Double 實(shí)際中通過輸入數(shù)組元素的個(gè)數(shù)來確定數(shù)組的大小,就要先定義一個(gè) 可調(diào)數(shù)組 ,當(dāng)確定了數(shù)組的大小后重定義數(shù)組。在什么事件中寫過程代碼。 x。 30 Print Format(, $,.) + 元 Print Format(, $000,) + 元 Print Format(, $, ) 單分支 IF …Then 語句 雙分支 IF …Then…Else 語句 多分支 IF …Then…Elseif… 語句 多分支情況 Select Case語句 IF語句的嵌套 無論分支多少 ,僅選其一執(zhí)行 分支結(jié)構(gòu) 語句 注意:單行結(jié)構(gòu)與塊結(jié)構(gòu)寫法的區(qū)別。 “學(xué)生: , (3) Print Print Print Print (4) Print 注意數(shù)據(jù)項(xiàng)的分隔符、語句末尾符號(hào)。 x mod 3 = 0 and x mod 4 = 0 例: 設(shè) x 即能被 3整除,也能被 4整除,寫出表達(dá)式。 常量:即保持不變的數(shù)值。 變量: 即可以隨時(shí)在程序中改變的數(shù)值。 True X=A OR X=B 例 :設(shè) x 小于等于 a,或者大于等于 b,寫出表達(dá)式。格式化函數(shù)。 If name =admin Then msgbox 通過 “ X=1 End if If name =“admin” Then msgbox “通過 ” : X=1 For…Next 語句 While … Wend 語句 Do…Loop 語句 Do While…Loop 語句 Do Until…Loop 語句 Do…Loop While 語句 Do…Loop Until 語句 嵌套循環(huán) 不能交叉 循環(huán)體的算法 ,進(jìn)入循環(huán)的條件 ,結(jié)束循環(huán)的條件 。 考試教室 。 控件的方法: 注意寫法:對象的名稱 .方法 例: 指定文本框 text1接受數(shù)據(jù)輸入。 例: Dim s( ) as integer … n=inputbox(“輸入 n=” ) Redim s(1 to n) 2維數(shù)組 M N元素的 輸入: For i=1 To m ‘外層循環(huán):行 For j=1 To n ‘內(nèi)層循環(huán):列 s(i,j)=InputBox(“s(“amp?!?=”。輸出排序后序列 Print x(i)。 Next J Print ‘換行 Next I End Sub Private Sub Command1_Click() tr %, 3 ?調(diào)用子過程