2017年江蘇省信息技術(shù)學(xué)業(yè)水平試卷(15)
發(fā)布:2024/4/20 14:35:0
一、操作題(每題10分,11題共110分)
-
1.打開文件“考生文件夾\856\60歲收入和.vbp”,完善程序?qū)崿F(xiàn)如下功能并保存:
編寫程序測算一個人在60歲退休之前總共能拿多少工資.程序運行后輸入起薪年齡和起始年薪,按工資每年增長5%計算總收入.例如,輸入25和20000,然后屏幕上會顯示:工作到60歲的總收入為:1916726.
Private Sub cmdCompute_Click ( ?。?br />Dim age As Integer
Dim salary As Single
Dim sum As Single
Dim i As Integer
age=Val(InputBox(“輸入這個年輕人的起薪年齡:“))
salary=Val(InputBox(“輸入這個年輕人的起始年薪:“))
sum=0
For i=
sum=
salary=salary*(1+0.05)
Next i
Print“工作到60歲的總收入為:“; Int(
End Sub.組卷:9引用:1難度:0.7 -
2.打開文件“考生文件夾\606\工程1.vbp”,完善Command1_Click事件代碼并保存.
實現(xiàn)功能:當(dāng)單擊“計算1+2+3+…+100”按鈕后,文本框Text1顯示1+2+3+…+100的值.
Private Sub Command1_Click ( ?。?br />Dim s As Integer
Dim i As Integer
s=
For i=1To
s=
Next i
Text1.Text=Str(
End Sub.組卷:8引用:1難度:0.5 -
3.打開“考生文件夾\605\工程1.vbp”,完善Form_Click事件代碼并保存.
實現(xiàn)功能:單擊窗體后,計算
s=1++12+13+…+14+1991100
在窗體上顯示結(jié)果.
Private Sub Form_Click ( ?。?br />Dim s As Single'累加器
Dim i As Integer'循環(huán)變量
s=
For i=1To
s=s+
Next i
Print“s=“; Str(s)
End Sub.組卷:8引用:1難度:0.5
一、操作題(每題10分,11題共110分)
-
10.打開“考生文件夾\1333”文件夾中的工程文件“工程1.vbp”進行以下操作后并保存!(在字符串相連接時不要使用“+”,應(yīng)使用“&”)
(1)在窗體中Form1添加一個名為“Command1”的按鈕,并在按鈕上顯示文字“計算”;
(2)完善程序,使之實現(xiàn)如下功能:單擊“計算”按鈕,在文本框中分別輸出1到100之間的奇數(shù)之和與偶數(shù)之和!
注:(1)刪除①、②、③,填入正確的語句
(2)不能刪除注釋語句
Private Sub Command1_Click ( )
Dim a As Singl
Dim b As Single
'從Text1中讀入這個數(shù),并保存在變量a中
a=Val(
b=a Mod
If b=0Then
Label1.Caption=“偶數(shù)“
Else
Label1.Caption=“奇數(shù)“
End Sub.組卷:10引用:1難度:0.1 -
11.打開文件“Z:\114\工程1.vbp”,完善Form_Click事件代碼并保存。
完善程序,求1/1+1/2+2/3+…+21/34+…前10項的值。
Private Sub Command1_Click ( )
Dim s As Integer
Dim a As Integer
Dim b As Integer
Dim k As Integer
s=0
a=1
b=1
For k=1To 10
s=s+a/b
a=
s=
b=
Next k
Print s
End Sub。組卷:1引用:1難度:0.4