2018-2019學年浙江省紹興市諸暨中學高二(上)期中信息技術試卷
發(fā)布:2024/4/20 14:35:0
一、單選題(每題2分,共28分)
-
1.在Visual Basic代碼中,將多個語句合并在一行上的并行符是( ?。?/h2>
組卷:11引用:2難度:0.9 -
2.下列控件中可用于接受用戶輸入文本,又可用于顯示文本的是( ?。?/h2>
組卷:12引用:4難度:0.7 -
3.Visual Basic規(guī)定工程文件的擴展名是( ?。?/h2>
組卷:7引用:2難度:0.5 -
4.在程序中用到某一整型變量的數(shù)據(jù)范圍為-40000至40000,則該變量類型應該說明為( ?。?/h2>
組卷:8引用:1難度:0.7 -
5.用語句Dim A(-3To 3)As Integer 所定義的數(shù)組的元素個數(shù)是( )
組卷:4引用:1難度:0.7 -
6.下列邏輯運算結果為“true“的是( ?。?/h2>
組卷:11引用:2難度:0.7
二、填空題(15題4分,16題6分,17題6分,18題6分,共22分)
-
17.一個程序?qū)崿F(xiàn)如下功能:在文本框text1中輸入一個數(shù),在文本框text2中輸入需要轉(zhuǎn)換的進制(小于等于16),點擊轉(zhuǎn)換按鈕,在標簽Label3輸出轉(zhuǎn)換后的十進制數(shù),程序運行界面如圖所示:
(1)請在橫線處填入合適的代碼
Private Sub Commandl Click
Dim s As String,k As Integer
(1)
k-Val(Text2Text
Labl3.Caption=“對應的十進制數(shù):“+St(toD(s,k))
End Sub
Function toD(s As String,k As Integer) As Integer
Dim ans As Integer,x As Integer
ans=o
For i-I To Len(s)
If Mid(s,i,1)>=“A“And Mid (s,i,1)<=“F”Then
x=Asc(Mid(s,i,1)-Asc(A“)+10
x=Val(Mid(s,i,1))
End If
(2)
Next i
(3)
End Function組卷:2引用:1難度:0.5 -
18.哥德巴赫1742年給歐拉的信中提出了以下猜想:任一大于2的偶數(shù)都可寫成兩個質(zhì)數(shù)之和,是為著名的哥德巴赫猜想。下面VB程序用來驗證4-10000的偶數(shù)分解。
請完善下列程序代碼:
Function prime(x As Integer) As Boolean’此函數(shù)判斷x是否為質(zhì)數(shù)
prime=True
For i=2To Int(Sqr(x))
If
Next i
End Function
Private Sub Command2_Click ( ?。?br />Dim a As Integer,b As Integer
Dim n As Integer
For a=2To n\2
b=n-a
If
List1.AddItem Str(a)+““+Str(b)+““+Str(n)
End If
Next
End Sub組卷:2引用:1難度:0.5