2017年江蘇省信息技術(shù)學(xué)業(yè)水平試卷（13）
發(fā)布：2024/4/20 14:35:0
一、操作題（每題10分，9題共90分）
-
1．打開“Z：\50\工程1．vbp”，完善程序并保存。
實現(xiàn)功能：在文本框text1、text2、text3中輸入3根小木棒的長度（假設(shè)都是整數(shù)），判斷能否用它們搭成一個三角形，并把結(jié)果輸出到文本框text4中。
操作要求：
（1）在窗體中加載“CommandButton”控件，命名為“Command1”并設(shè)置該控件“Caption”屬性值為“判斷”；
（2）完善程序，執(zhí)行command1_click事件，判斷出結(jié)果，如果能搭成三角形則在文本框text4中輸出“OK”，否則輸出“NO”。
Private Sub Command1_Click （ ?。?br />Dim a,b,c As ①
Let a=Val（Text1．Text）
Let b=Val（Text2．Text）
Let c=Val（Text3．Text）
If （a+b＞c） And （a+c＞b） And （b+c＞a） Then
Let Text4．Text=“OK“
Else
Let Text4．Text=“NO“
②
End Sub。組卷：7引用：1難度：0.7 -
2．打開文件“考生文件夾\108\工程1．vbp”，完善Command1_Click事件代碼并保存。
實現(xiàn)功能：判斷從文本框Text1中輸入的數(shù)據(jù)，如果該數(shù)據(jù)滿足條件：除以3余2，除以5余3，則將該數(shù)據(jù)輸出在窗體上。
Private Sub Command1_Click （ ?。?br />Dim x As Integer
x=Val（①）
If x Mod 3=2Then
If ②=3Then
Print ③
End If
End If
End Sub。組卷：7引用：1難度：0.5
一、操作題（每題10分，9題共90分）
-
7．打開文件“考生文件夾\613\工程1．vbp”，完善Command1_Click事件代碼并保存。
實現(xiàn)功能：在Text1中輸入一個數(shù)，單擊“判斷”按鈕后，判斷這個數(shù)是奇數(shù)還是偶數(shù)，并在Label1中顯示“奇數(shù)”或“偶數(shù)”出來。
Private Sub Command1_Click （ ?。?br />Dim a As Single
Dim b As Single
'從Text1中讀入這個數(shù)，并保存在變量a中
a=Val（①）
b=a Mod ②
If b=0Then
Label1．Caption=“偶數(shù)“
Else
Label1．Caption=“奇數(shù)“
③
End Sub。組卷：7引用：1難度：0.1 -
8．打開“Z：\600\工程1．vbp”，完善Command1_Click事件代碼并保存。
實現(xiàn)功能：這是一個簡單的顯示評語程序，在文本框Text1中輸入一個數(shù)后，單擊“評語”按鈕，在標簽Label1顯示評語。
當(dāng)輸入一個小于60的數(shù)時，顯示“不及格”；
當(dāng)輸入一個大于等于60且小于85的數(shù)時，顯示“良好”；
當(dāng)輸入一個大于等于85的數(shù)時，顯示“優(yōu)秀”。
Private Sub Command1_Click （ ?。?br />Dim Cj As Single'定義變量Cj,值由文本框Text1讀入
Cj=Val（①）
If Cj ②60Then
Label1．Caption=“不及格“
End If
If Cj＞=60 ③Then
Label1．Caption=“良好“
End If
If Cj＞=85Then
Label1．Caption=“優(yōu)秀“
End If
End Sub。組卷：10引用：1難度：0.1