資源簡介

4.1解析法訓練9
學校:___________姓名：___________班級：___________考號：___________
一、填空題
1．為求s=2+4+8+16+32的和，流程圖不能實現，需作一處適當更改。請選出你認為錯誤的標號并做更改。標號 處更改為 。
2．要求將某一字符串中指定的字符改寫成小寫或大寫（如果原先是大寫就改成小寫，反之改成大寫），并將處理后的字符重新輸出。
程序界面如下圖所示，在Text1中輸入原始字符串，在Text2中輸入需要改變的字符，單機“改變”按鈕后，在Text3中輸出處理后的結果。程序代碼如下：
Private Sub Command1_Click()
Dim s As String, result As String, k As String
Dim zs As String, n As Integer
result = ""
s = Text1.Text
k = Text2.Text
For n =" 1" To Len(s)
①
If zs =" k" Then
If Asc(zs) >=" 65" And Asc(zs) <=" 90" Then
zs =" Chr(Asc(zs)" + 32)
ElseIf Asc(zs) >=" 97" And Asc(zs) <=" 122" Then
zs =" Chr(Asc(zs)" - 32)
End If
End If
②
Next n
③
End Sub
在程序①、②、③劃線處，填入適當的語句或表達式，把程序補充完整:
程序中①劃線處應填入___________________。
程序中②劃線處應填入___________________。
程序中③劃線處應填入___________________。
3．
若輸入3和2,則輸出結果為______。
4．有如下Visual Basic程序段：
a="2"
b=5
c=4
If a>b or c該程序段運行后,變量m的值為_______。
5．有如下Visual Basic程序段：
a=2
b=3
c=0
b=a
c=a+b
該程序段運行后,變量c的值為_______。
6．下面是一段Visual Basic程序：
Private Sub Command1_Click()
Dim sum As Double，i As Integer
sum = 0
For i =" 1" To 5
sum = 2
sum = sum+i
Next i
Text1.Text = Str(sum)
End Sub
該程序運行后，語句sum=sum+i共執行了____ ____次，sum的值為 ，i的值為 。
7．下列程序在調試時，文本框Text2不能輸出最后的結果，已知①和②處存在唯一錯誤，請問錯誤出在 （填①或②）處，該處正確的語句應該為 。
Dim x As Integer, max As Integer
Dim a As Integer, b As Integer, c As Integer, t As Integer
x = Val(Text1.Text) ' ①
a =" x" \ 100
b =" x" \ 10 Mod 10
c =" x" Mod 10
If a < b Then t =" a:" a =" b:" b = t
If a < c Then t =" a:" a =" c:" c = t
If b < c Then t =" c:" c =" b:" b = t
max =" a" * 100 + b * 10 + c
Text2.Text =max ' ②
8．輾轉相除法：用輾轉相除法求三個數的最大公約數。
程序界面如圖所示，在文本框Text1、Text2和Text3中分別輸入三個數從a、b和c，單擊"求最大公約數"按鈕（Command1）后，在文本框Text4中輸出a、b、c的最大公約數y。
輾轉相除法具體為：設兩數為a、b(a>b），求最大公約數(a，b）的步驟如下：a除以b，得a=bq......r1(0≤r1）。若r1=0，則（a，b)=b；若r1≠0， b除以r1，得b="r1q......r2" (0≤r2）.若r2=0，則（a，b)=r1，若r2≠0，則繼續r1除以r2，……如此下去，直到余數為0，這時的除數即為最大公約數（a，b）。
相應的Visual Basic 程序如下：
Function temp(num1 as Integer, num2 as Integer) as Integer
Dim r As Integer
if num1t=num1:num1=num2:num2=t
endif
r =" num1" Mod num2
Do While (1)
num1 = (2)
num2 = (3)
r =" num1" Mod num2
Loop
temp = num2
End Function
-------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim a as Integer, b as Integer, c as Integer, x as Integer, y as Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
x = (4)
y =" temp(x," c) ‘調用函數TEMP
Text4.Text = Str(y)
End Sub
在（1）中應該填入( )
A、r =0 B、 r<>0 C、 r< 0 D、r>0
在（2）中應該填入( )
A、num1 B、num2 C、 r D、num1 mod num2
在（3）中應該填入( )
A、num1 B、num2 C、 r D、num1 mod num2
在（4）中應該填入( )
A、temp(a, b) B 、temp(x, c) C、temp(b, c) D、temp(x, y)
9．下Visual Basic程序段：
s = 0
For i =" 1" To 5
s =" s" + i * i
Next i
Label1.Caption = Str(s)
該程序段運行后，在標簽Label1上顯示的是____________。
10．有7個人坐在一起，問第七個人多少歲？他說是第6個人年齡2倍小4歲 。問第6個人歲數，他說是第5個人年齡也是2倍小4歲。問第5個人，還說是第4個人年齡2倍小4歲。問第4個人，又說是第3個人年齡2倍小4歲，以此類推。最后問第一個人，他說是5歲。請問第7個人多大？以下是小王同學編寫的解決該問題的VB，請把程序補充完整。
Private Sub Command1_Click()
Dim i, year As Integer
Dim a(1 To 8) As Integer
a(1) = 5
For i = To 7
List1.AddItem"第"+ Str(i)+"個人的年齡為"+Str(a(i))
Next i
End Sub
11．按下列公式計算銀行貸款等額還款的月償還金額S：
現要求編寫VB程序（運行界面如圖所示），實現如下功能：在文本框架中輸入貸款本金、貸款期限、年利率，單擊計算機按鈕，在每月償還本息額文本框中顯示S的值。按此要求編寫的程序如下，請把帶下劃線部分所缺的程序段補齊
Private Sub Command1_Click()
Dim x As Long
Dim y As Single
Dim n As Integer
Dim s As Single
x =" Val(Text1.Text)" *
n =" 12" * Val(Text2.Text)
y =" Val(Combo1.Text)" / 12 / 100 ′月利率為年利率除12
s = 1
For i =" 1" To n
s =" (1" + y) * s
Next
s =
Text4.Text = Str(s)
End Sub
其中，“等額還款”是 (Form/Text/Combo/Command)控件的Caption屬性。
12．將以下計算50以內奇數和S的值（s=1+3+5+…+49）的程序段補充完整.
private sub form_click( )
dim i as integer, s as integer
s=(1)_________
for i="1" to 50 (2)____________
（3)____________
Next i
print “50以內奇數和="”;" s
end sub
參考答案：
1．3；a=1
【詳解】
2．（1）zs =" Mid(s," n, 1)
（2）result =" result" & zs 或 result =" result" + zs
（3）Text3.Text = result
【詳解】
3．32
【詳解】
4．-3
【詳解】
5．4
【詳解】
6．5、7、6
【詳解】
7．② Text2.Text =Str(max)
【詳解】
8． B B C A
【詳解】
9．55
【詳解】
10．2、a(i)=a(i-1)*2–4
【詳解】
11．10000、x * y * s / (s - 1)、Form
【詳解】
12．(1) 0 (2)step 2 (3) s=s+i
【詳解】