【正文】
設(shè)計一個算法求出該號碼。(6分)i=i+112.寫程序結(jié)果: Text2 = “34” a = ( Val ( Text2 ) – 32 ) * 5 / 2 Print a答案:____________ 5四、算法題分析題:我們在用計算機解決問題時,常采用的算法有解析法、窮舉法、遞歸法、冒泡排序法、選擇排序法等,分析下列問題應采用哪種算法解決?求解“百雞問題”:已知公雞每只3元,母雞每只5元,小雞每3只1元。 Mid (ch, i, 1 )Next iPrint chEnd Sub 答案:________________________DEFDEF,如要根據(jù)表中的指令畫出圖一的圖形,請根據(jù)分析填空:FORWARD 4 FORWARD 5 LEFT 1205.寫出程序結(jié)果: Private Sub Command1_Click() Dim p As Integer, i As Integer, n As Integer p=0 : n=5 For i=1 To n p=p+i*2 If p=10 Then Exit For Next i Print p End Sub答案:________________________ 126. 填補程序:假設(shè)你從今年開始為“希望工程”存錢,今年存入100元錢,第二年存入200元錢,第三年存入300元錢……依此類推,問:20年時間你將為“希望工程”存入多少錢? Private Sub Command1_Click( ) Dim n as integer, intsum as integer intsum=0 For n=1 to ______________ 20 intsum=intsum+n*100 _______________________ next n =”兩年共存入:”amp。m End Sub 執(zhí)行結(jié)果:______M=15________1分析程序,寫出執(zhí)行結(jié)果 (VB代碼) Private Sub Form_Activate() Dim i,s as integers=0 for i=2 to 6 s=s+I Next i Print “S=”。 b=0 Do while a=5 b=b+a*a a=a+1 Loop Print a, b 屏幕上顯示的內(nèi)容是:__6__ ,__55__13.完善程序,打印如下圖形 *********************For I = 1 To 6For j = 1 To__i__ Print *。s End Sub分析程序,寫出計算結(jié)果Private Sub Form_Activate() Dim I As Integer, S As Integer S = 0 For I = 2 To 6 S = S + I Next IPrint S=。Private Sub Form_Activate( ) Dim i, s AS Integer s = 0 for i =1 to 99 Step 2 s = s+i Next i Print “S=”。 a = 5 b = 10 max = a IF b max Then max = b A、5 B、10 C、5和10 D、其他三項都不是3以下屬于程序的基本控制結(jié)構(gòu)的是(