素數(shù)只能被 1 和它本身整除，不能被其他自然數(shù)整除。編寫 VB 程序?qū)崿F(xiàn)如下功能：單擊“產(chǎn) 生奇數(shù)并判斷”按鈕 Command1，隨機(jī)產(chǎn)生一個三位正奇數(shù)顯示在文本框 Text1 中，并在文本框 Text2 中顯示其是否為素數(shù)的判斷結(jié)果。例如，當(dāng)隨機(jī)產(chǎn)生的三位正奇數(shù)為 953 時，程序運(yùn)行界面如圖 a 所示。
（1）在設(shè)計程序界面時，應(yīng)使用第 11 題圖 b 所示“控件工具箱”中的 ②②（填寫相應(yīng)編號）添加文 本框 Text1。
（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填寫合適的代碼。
Private Sub Command1Click（ ?。?br />Dim n As Integer,i As Integer
Dim flag As Boolean‘用于標(biāo)記是否為素數(shù)
Randomize
n=①Int（（Rnd*450）+50）*2+1Int（（Rnd*450）+50）*2+1‘n 為三位正奇數(shù)
Text1．Text=Str（n）：flag=True：i=3
Do While i＜=n-1 And flag=True
Ifn Mod i=0Then flag=False
End If
i=i+2
Loop
If ②flag=Trueflag=TrueThen
Text2．Text=Str（n）+“是素數(shù)”
Else
Text2．Text=Str（n）+“不是素數(shù)”
End If
End Sub
（3）以下選項中，與加框處表達(dá)式“n Mod i=0”等價的是 BB（單選，填字母）。
A．n\i=Int（n/i）B．n\i=n/iC．n Mod i=n\i
【考點】編輯事件處理過程的代碼．
【答案】②；Int（（Rnd*450）+50）*2+1；flag=True；B
【解答】
【點評】
聲明：本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復(fù)制發(fā)布。
發(fā)布：2024/6/27 10:35:59組卷：0引用：2難度：0.6
相似題
-
1．學(xué)校舉辦了“語文作文現(xiàn)場賽”，參賽同學(xué)成績存儲在文本文件“gra.jye.ai”中，如左圖所示（每一行記錄一位同學(xué)的姓名和成績，以“：”分隔）。陳老師利用Python程序?qū)ψ魑某煽冞M(jìn)行處理，統(tǒng)計出各個分?jǐn)?shù)等級的人數(shù)，并輸出結(jié)果。程序運(yùn)行界面如右圖所示。
實現(xiàn)上述功能的Python程序如下，請在劃線處填入合適的代碼。
發(fā)布：2024/12/17 2:0:1組卷：6引用：2難度：0.3 -
2．有如下Python程序段：
執(zhí)行該程序段，輸入字符串“abcdefg”，則輸出的結(jié)果是（ ?。?/h2>發(fā)布：2024/12/20 6:30:1組卷：2引用：3難度：0.4 -
3．試題描述的內(nèi)容：
一個單窗體VB程序的運(yùn)行界面如圖所示。下列說法正確的是（ ）
（1）窗體內(nèi)有1個按鈕
（2）窗體內(nèi)有2個文本框
（3）窗體內(nèi)有3個標(biāo)簽
（4）該窗體的標(biāo)題（Caption）屬性值是“加法計算器”發(fā)布：2024/12/20 20:0:2組卷：1引用：1難度：0.6
把好題分享給你的好友吧~~