1、注意：做題時(shí)，在這里可以注意：做題時(shí)，在這里可以比較容易找稱的控件而不出注意：設(shè)置命令按鈕的“輸注意：設(shè)置命令按鈕的“輸入掩碼”屬性值為。單擊事件代二、程序設(shè)Private m=二、程序設(shè)Private m=Text1 n = Text2 s = 0Fori=mTon s = s + iNextEnd SubPrivate a = b = IfabThenr=ab Ifaa = b = IfabThenr=ab Ifa=bThenr=a=b IfabThenr=ab Label1.Caption = rEnd 注意要類(lèi)型轉(zhuǎn)換，否則將把文本框的數(shù)字當(dāng)字符串，比較會(huì)出錯(cuò)不做 val 的類(lèi)型轉(zhuǎn)換的話

2、，可以試9 和 12 n =n 0s請(qǐng)輸入一個(gè)自然數(shù)nMod20Then s = n & 是偶數(shù)sn&是奇數(shù) End If Label1.Caption = s End Sub s= Fori=1To100Steps= s+Next i End s= s+Next i End Private 不得刪除本行注If Text1.Value = abcd Then End IfEnd w=Ifw=Case Is = 80 rs(等級(jí)良好CaseIs=rs(等級(jí)中等CaseIs=rs(等級(jí)及格Casers(等級(jí)不及格End Select CaseIs=rs(等級(jí)及格Casers(等級(jí)不及格End Se

3、lect Setrs=AFT.Form.RecordSource=select*fromEnd DimH_AvgAsDim Avg_rs As ADODB.Recordset Avg_rs.Open select avg(身高) as 平均身高 from stu, CurrentProject.Connection, 2, 2H_Avg = Avg_rs(平均身高) SetAvg_rs=End 不得刪改本行注釋Dim rs As ADODB.Recordset 不得刪改本行注釋Dim rs As ADODB.Recordset DimsqlstrAssqlstrselect*fromscore

4、where 課程名稱& rs.Open sqlstr, CurrentProject.Connection, 2, 2n =x =y =n = n + 1x = x + 1y = y + 1 End If bo1&Text1 = nMe.Text2.Value = xSetrs=Text1 End 不得刪改本行注釋Dim strSQL As StringSetrs 不得刪改本行注釋Dim strSQL As StringSetrs=NewstrSQL=fromplayerwhere 組別=&Combo1 &本行需要補(bǔ)充代碼，實(shí)現(xiàn)構(gòu)造SQL語(yǔ)rs.OpenstrSQL,CurrentProject.Connection,2,2 For i = List1.ListCount - 1 To 0 Step -1List1.RemoveItemNextDoWhileNotrs.EOF List1.AddItemrs( Setrs=End 不得刪改本行注釋Dim strSQL As StringSetrs=New 不得刪改本行注釋Dim strSQL As StringSetrs=NewstrSQL=select 雇 rs.Ope