2017年江蘇省信息技術學業(yè)水平試卷（12）
發(fā)布：2025/1/2 18:0:3
一、操作題（每題10分，6題共60分）
-
1．打開“Z：\12\工程1．vbp”，完善Command1_Click事件代碼并保存．
實現功能：在Text1中輸入一個代表秒數的整數后，單擊“計算”按鈕后，在Label1、Label2、Label3中顯示對應的小時、分鐘和秒數．如在Text1中輸入“3672”，Label1、Label2、Label3中分別顯示“1”、“1”、“12”，即1小時1分12秒．
Private Sub Command1_Click （ ）
Dim h As Integer
Dim m As Integer
Dim s As Integer
Dim ss As Integer
ss=Val（①）
h=②
m=（ss-h*3600）\60
s=（ss-h*3600）Mod ③
Label1．Caption=Str（h）
Label2．Caption=Str（m）
Label3．Caption=Str（s）
End Sub.組卷：8引用：1難度：0.7 -
2．打開文件“考生文件夾\26\工程1．vbp”，完善Command1_Click及Command2_Click事件代碼并保存。
在窗體上有一個“標簽”控件Label1和兩個“命令按鈕”控件，命令按鈕command1上顯示“上移”，另一個命令按鈕command2上顯示“下移”。
實現功能：
（1）設置標簽控件Label1屬性，顯示文字為“歡迎進入算法與程序設計”；
（2）單擊“command1”時，Label1上移100個單位；單擊“command2”，Label1下移100個單位。組卷：2引用：1難度：0.5
一、操作題（每題10分，6題共60分）
-
5．打開文件“考生文件夾\60\工程1．vbp”，完善Command1_Click事件代碼并保存．
實現功能：從文本框Text1中輸入一個圓的半徑，計算圓的面積，把結果輸出到文本框Text2中．
Private Sub Command1_Click （ ）
Const pi=3.14
Dim r As Single
Dim s As Single
r=Val（①）
s=②
Text2．Text=③
End Sub.組卷：8引用：1難度：0.1 -
6．打開“Z：\414\工程1．vbp”，進行以下操作并保存。
實現功能：
（1）將label1標簽上的文字設置為“測試系統”；
（2）把窗體中顯示用戶名的文本框的字體設置為“楷體_GB2312”；
（3）在窗體的相應位置添加一個“確定”的命令按鈕。
控件名請采用默認值。最終效果圖如下：
（過程省略）組卷：1引用：1難度：0.6