题目内容（请给出正确答案）

[主观题]

下面程序的功能是输出100以内所有素数： Private Sub Command1_Click（) For n = 2 To 100 isprime

下面程序的功能是输出100以内所有素数： Private Sub Command1_Click() For n = 2 To 100 isprime = True k = 2 Do While k ＜= 1 2 n and _______________ if mod k="0" then isprime="False" + loop print end next sub＞ A、isprime

B、Not isprime

C、n ＜ 100

D、n ＜=＞

提问人：网友y81212 发布时间：2022-01-07

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“下面程序的功能是输出100以内所有素数： Private S…”相关的问题

第1题

for(i=0;i<100;i+=2)s=s+i++;循环次数是（）次。>

点击查看答案

第2题

下面程序运行时，若输入395，则输出结果是（）。

Private Sub Command1_Click（）

Dim X％

x=InputBox("请输入一个3位整数")

Print x Mod 10，x\100，(x Mod 100)\10

End Sub

A.3 9 j

B.5 3 9

C.5 9 3

D.3 5 9

点击查看答案

第3题

设有如下程序： Private Sub sV(ByVal m As Integer, n As Integer) m = m * 2 n = n - 5 Print m; n End Sub Private Sub Form_Click() Dim x As Integer, y As Integer x = 10 y = 15 sV x, y Print x; y End Sub 运行程序，单击窗体，输出结果为_______________。

A、20 10 10 10

B、10 15 20 10

C、20 15 10 15

D、20 10 20 10

点击查看答案

第4题

1. 窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1(Simple)，并有如下事件过程： Private Sub Command1_Click() 　　For i＝0 To List1.ListCount－1 　　　　If List1.Selected(i)＝True Then 　　　　　　List2.AddItem Text 　　　　End If 　　Next End Sub 上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是(　　)。 A) 将For循环的终值改为List1.ListCount B) 将List1.Selected(i)＝True 改为List1.List(i).Selected＝True C) 将List2.AddItem Text 改为List2.AddItem List1.List(i) D) 将List2.AddItem Text 改为List2.AddItem List1.ListIndex

A、A

B、B

C、C

D、D

点击查看答案

第5题

下列函数实现请用户输入若干个整数写入指定的文件中，直到用户输入-1为止，请填空。 void f(char *fname) { (1) file(fname); int x; cout<<"input while(1) { cin>>x; if(x!=-1) file<<x<<' '; else break; } file.close();>

点击查看答案

第6题

在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序：

Dim ss As String

Private Sub Text1 KeyPress(KeyAscii As Integer)

If Chr(KeyAscii)$amp;amp;$quot;"Then ss=ss+Chr(KeyAscii)

End Sub

Private Sub Command1 Click（）

Dim m As String，i As Integer

For i=Len(ss)To 1 Step-1

m=m+Mid(SS，i，1)

Text1．Text=UCase(m)

End Sub

程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的就是（）。

A.NUMtBER l00

B.REBMUN

C.REBM UN l00

D.001 REBMUN

点击查看答案

第7题

编写程序，生成包含1000个0~100之间的随机整数，统计并输出每个整数出现的次数。

点击查看答案

第8题

下面的程序产生100个0～99的随机整数，并统计个位上的数字分别是1，2，3，4，5，6，7，8，9，0的数的个数。

Private Sub a3()

Dim x(1 To 10)As Integer,a(1 To 100)As Integer

Dim P As Integer,j As Integer

For j=1 To 100

a(j)=______

P=a(j)Mod 10

If P=0 Then P=10

______

Next j

For j=1 To 10

Debug.Print x(j);

Next j

End Sub

点击查看答案

第9题

编写如下程序： Private Sub Command1_Click() Dim i As Integer, num As Integer Dim arr(10) As Integer For i = 0 To 10 arr(i) = i Next Do num = num + arr(10 - i) i = i - 1 Loop Until i <= 5 print num end sub> A、0

B、1

C、10

D、程序出错

点击查看答案