浙江信息技術(shù)學(xué)考vb模塊基礎(chǔ)檢測(cè)(附參考題答案)(參考版)
2025-06-27 19:11本頁(yè)面
【正文】 參考。什么時(shí)候離光明最近？那就是你覺(jué)得黑暗太黑的時(shí)候。我不知道年少輕狂，我只知道勝者為王。22. cisaB23. （1）t=99 (或t100) （2） t+224. ******25. 16 : 326. （1）step 2（2）i Mod 15 = 0 Then sum = sum + i （或 i Mod 3 = 0 And i Mod 5 = 0 Then sum = sum + i）或： （1） step 1 （2） i Mod 2 = 1 And i Mod 15 = 0 Then sum = sum + i （或 i Mod 2 0 And i Mod 15 = 0 Then sum = sum + i ） （或 i Mod 2 = 1 And i Mod 3 = 0 And i Mod 5 = 0 Then sum = sum + i） （或 i Mod 2 0 And i Mod 3 = 0 And i Mod 5 = 0 Then sum = sum + i）27. （1） k = k + 1 （2） t k （或 k t）28. 6329. （1）20358 （2）11730. （1）len( code2 ) （2）2 ^ ( changdu i )歡迎您的光臨，！希望您提出您寶貴的意見(jiàn)，你的意見(jiàn)是我進(jìn)步的動(dòng)力。請(qǐng)將選項(xiàng)直接寫(xiě)在各小題相應(yīng)位置。（2分） For i = 1 To changdu bit = 39。存放二進(jìn)制 Dim code10 As Long 39。 程序運(yùn)行效果如右圖所示。（2分） Next i = Str(s)End Sub28. 有VB程序段，Command1的事件處理過(guò)程如下（4分） Private Sub Command1_Click()Dim s As Integer, i As Integer ,n As Integers=0n=Val（）For i＝ 5 To 1 Step 2 s= s+nNext i= Str(s）End Sub程序運(yùn)行時(shí)在文本框Text1中輸入7，連續(xù)單擊兩次Command1按鈕后。（共4分）Private Sub Command1_Click() Dim i As Integer, n As Integer Dim s As Integer, t As Integer, k As Integer s = 0 For i = 1 To 1000 n = i t = 0 k = 0 Do While n 0 If n Mod 2 = 1 Then t = t + 1 Else k = 39。下列VB程序的功能是：統(tǒng)計(jì)前1000個(gè)自然數(shù)中A類(lèi)數(shù)的個(gè)數(shù)，并在文本框中輸出。（2分） Next i Print sumEnd Sub27．一個(gè)十進(jìn)制整數(shù)的二進(jìn)制表示中，如果數(shù)字“1”的個(gè)數(shù)多于數(shù)字“0”的個(gè)數(shù)，則稱(chēng)該整數(shù)為A類(lèi)數(shù)。（共4分）Private Sub Command1_Click() Dim sum As Long, i As Integer, n As Integer sum = 0 n = Val()For i = 1 To n _______ 39。 Str(c) 該程序段運(yùn)行后，請(qǐng)?jiān)谙旅娣娇騼?nèi)寫(xiě)出文本框Text1中顯示的內(nèi)容。25．有VB程序段如下：（4分） Dim a(1 To 10) As Integer Dim k As Integer, i As Inte
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1