【文章內(nèi)容簡(jiǎn)介】 d1_Click()Dim x%, y%x = InputBox(請(qǐng)輸入x的值：)Select Case xCase 1, 3, 5y = x 1Case 6 To 10y = x + 1Case 2, 4y = 2 * xCase Is 10y = x * x + 1End SelectPrint x=。 x, y=。 yEnd Sub （x 、4和15）答案： x=2 y=4x=8 y=9x=4 y=8x=15 y=2266． Private Sub Command1_Click()Dim i%, t!t = 1: i = 1While i 10t = t * ii = i + 2WendPrint t=。 tEnd Sub答案：t=9457． Private Sub Command1_Click()Dim i%, x%, y%x = 1: y = 1:i = 1Do Until i 8If i Mod 2 = 1 Thenx = x * iElsey = y * iEnd Ifi = i + 1LoopPrint x=。 x, y=。 yEnd Sub答案：x=105 y=3848． Private Sub Command1_Click()Dim p%, s%p = 1: s = 1Do p=p+2:s=s+pLoop While p10Print s=。 sEnd Sub答案：s=369． Private Sub Command1_Click()Dim m%, n%For m=1 to 3 n=0 While n=m1 Print m,n n=n+1 WendNext mEnd Sub答案: 1 0 2 0 2 13 03 13 23．4 編程題1. 輸入一個(gè)學(xué)生成績(jī)，若成績(jī)?cè)?5分以上，則輸出“very good”；若成績(jī)?cè)?0分到80分之間，則輸出“good”；若成績(jī)低于60分，則輸出“no good”。解答：(1) 界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)標(biāo)簽、兩個(gè)文本框和兩個(gè)命令按鈕。窗體和窗體上控件的主要屬性設(shè)置如表331所示。表331 第1題的屬性設(shè)置 控件名稱(chēng) 屬性名 屬性值 Form1 Caption根據(jù)分?jǐn)?shù)給定評(píng)語(yǔ) Label1 Caption 分?jǐn)?shù) Label2Caption 評(píng)語(yǔ) Text1 Text 空串 Text2 Text 空串 Command1Caption 開(kāi)始 Command2 Caption 結(jié)束(2) 程序代碼Private Sub Command1_Click() Dim score! score = Val() If score = 85 Then = Very good! ElseIf score = 60 Then = Good! Else = No good! End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub(3) 運(yùn)行情況運(yùn)行程序后，屏幕出現(xiàn)用戶(hù)界面。把鼠標(biāo)移到Text1文本框并單擊，輸入分?jǐn)?shù)。然后，單擊“開(kāi)始”命令按鈕，系統(tǒng)執(zhí)行Command1_Click事件過(guò)程。單擊標(biāo)題為“結(jié)束”的命令按鈕，執(zhí)行Command2_Click事件過(guò)程，結(jié)束程序的執(zhí)行。 第1題的執(zhí)行結(jié)果2. 求一元二次方程ax+bx+c=0的根。解答：(1) 界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表332所示。表332 第2題的屬性設(shè)置 控件名稱(chēng) 屬性名 屬性值 Form1 Caption求一元二次方程的根 Command1Caption 開(kāi)始 Command2 Caption 結(jié)束(2) 程序代碼由中學(xué)數(shù)學(xué)知識(shí)知道，求一元二次方程的根的公式為：，編程時(shí)要考慮如下各種情況：① 當(dāng)a=0 時(shí)，方程不是二次方程；② 當(dāng) b24ac=0 時(shí),有兩個(gè)相同的實(shí)根： ；③ 當(dāng) b24ac0 時(shí),有兩個(gè)不同的實(shí)根： ；④ 當(dāng) b24ac0 時(shí),有兩個(gè)共軛復(fù)根： 。Private Sub Command1_Click() Cls Dim a!, b!, c!, disc!, x1!, x2!, realpart!, imagpart! a = InputBox(請(qǐng)輸入方程的系數(shù)a：) b = InputBox(請(qǐng)輸入方程的系數(shù)b：) c = InputBox(請(qǐng)輸入方程的系數(shù)c：) Print: Print Print Tab(10)。 輸入方程的系數(shù)為：。 a=。 a。 b=。 b。 c=。 c Print If Abs(a) = Then Print Tab(15)。 方程不是一個(gè)二次方程！ Else disc = b ^ 2 4 * a * c If Abs(disc) = Then Print Tab(10)。 方程有兩個(gè)相同的實(shí)根：。 x1=x2=。 b / (2 * a) ElseIf disc Then x1 = (b + Sqr(disc)) / (2 * a) x2 = (b Sqr(disc)) / (2 * a) Print Tab(5)。 方程有兩個(gè)實(shí)根： Print Tab(18)。 x1=。 x1 Print Tab(18)。 x2=。 x2 ElseIf disc Then realpart = b / (2 * a): imagpart = Sqr(disc) / (2 * a) Print Tab(5)。 方程有兩個(gè)虛根：。 Print Tab(18)。 x1=。 realpart。 +。 imagpart。 i Print Tab(18)。 x2=。 realpart。 。 imagpart。 i End If End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub注意，程序中的條件“fabs(a)=”和“fabs(disc)=”分別用來(lái)判斷a和disc的值是否為0。因?yàn)閷?shí)數(shù)在計(jì)算機(jī)計(jì)算和存儲(chǔ)時(shí)會(huì)有微小的誤差，若用“a=0”和“disc=0”來(lái)判斷a和disc是否為0，則會(huì)由于誤差導(dǎo)致條件不成立，無(wú)法得到正確的運(yùn)行結(jié)果。(3)運(yùn)行情況運(yùn)行程序后，單擊“開(kāi)始”命令按鈕，執(zhí)行Command1_Click事件過(guò)程。執(zhí)行時(shí)，在InputBox框中輸入 a、b和c三個(gè)系數(shù)?！? 執(zhí)行結(jié)果(a) 執(zhí)行結(jié)果(b) 執(zhí)行結(jié)果(c) 執(zhí)行結(jié)果(d)3. 給定函數(shù)y = ,從鍵盤(pán)上輸入x的值，求y的值。(要求使用Case語(yǔ)句)解答：(1) 界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表333所示。表333 第3題的屬性設(shè)置 控件名稱(chēng) 屬性名 屬性值 Form1 Caption求給定分段函數(shù)的值 Command1Caption 開(kāi)始 Command2 Caption 結(jié)束(2) 程序代碼Private Sub Command1_Click() Cls Dim x!, y! x = InputBox(請(qǐng)輸入x的值：) If x = 1 And x = 5 Then Select Case x Case Is 2 y = 3 * x 5 Case Is 4 y = 2 * Cos(x) + 1 Case Is = 5 y = Sqr(1 + x * x) End Select Else y = x * x 4 * x + 5 End If Print Tab(10)。 x=。 x, y=。 yEnd SubPrivate Sub Command2_Click() EndEnd Sub(3) 運(yùn)行情況運(yùn)行程序后，單擊“開(kāi)始”命令按鈕，執(zhí)行事件過(guò)程Command1_Click。執(zhí)行時(shí)，按InputBox對(duì)話(huà)框提示，輸入x的值。計(jì)算結(jié)果在窗體上顯示。4. 輸入圓的半徑R和運(yùn)算標(biāo)志，按照運(yùn)算標(biāo)志進(jìn)行指定運(yùn)算。給定的運(yùn)算標(biāo)志及其表示的運(yùn)算如下：C（Circle） 表示計(jì)算周長(zhǎng)A（Area） 表示計(jì)算面積B（Both） 表示周長(zhǎng)和面積都計(jì)算(要求使用Case語(yǔ)句)解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上放置兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表334所示。表334 第4題的屬性設(shè)置 控件名稱(chēng) 屬性名 屬性值 Form1 Caption計(jì)算圓周長(zhǎng)或圓面積或兩者都計(jì)算 Command1Caption 開(kāi)始 Command2 Caption 結(jié)束(2)程序代碼Private Sub Command1_Click() Cls Dim r!, f As String * 1 Const pi! = r = InputBox(請(qǐng)輸入圓的半徑 r ：) If r = 0 Then f = UCase(InputBox(輸入運(yùn)算標(biāo)志： + Chr(13) amp。 _ C___(計(jì)算周長(zhǎng)) + Chr(13) amp。 _ A___(計(jì)算面積) + Chr(13) amp。 _ B___(兩者都計(jì)算))) 39。提示信息分多行顯示 Select Case f Case C Print Tab(10)。 半徑r=。 r。 圓周長(zhǎng)=。 r * 2 * pi Case A Print Tab(10)。 半徑r=。 r。 圓面積=。 r ^ 2 * pi Case B Print Tab(10)。 半徑r=。 r。 圓周長(zhǎng)=。 r * 2 * pi Print Tab(10)。 半徑r=。 r。 圓面積=。 r ^ 2 * pi Case Else Print Tab(18)。 輸入的運(yùn)算標(biāo)志錯(cuò)！ End Select Else Print Tab(18)。 半徑不能是負(fù)數(shù)！ End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub(3)運(yùn)行情況運(yùn)行程序后，單擊標(biāo)題為“開(kāi)始”的命令按鈕，執(zhí)行Command1_Click事件過(guò)程。按InputBox對(duì)話(huà)框的提示輸入半徑r和運(yùn)算標(biāo)志。計(jì)算結(jié)果在窗體上顯示。5. 求滿(mǎn)足12+22+…+n21000的最小n值。(要求使用While…WEnd語(yǔ)句)解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表335所示。表335 第5題的屬性設(shè)置 控件名稱(chēng) 屬性名 屬性值 Form1 Caption求滿(mǎn)足1^2+2^2+…+n^21000的最小n值 Command1Caption 開(kāi)始 Command2 Caption 結(jié)束(2)程序代碼Private Sub Command1_Click() Dim n%, samp。 n = 0: s = 0 While s = 1000 n = n + 1