网友您好，请在下方输入框内输入要搜索的题目：

搜题

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

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

[主观题]

下面程序的功能是输出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 ＜=＞

简答题官方参考答案（由简答题聘请的专业题库老师提供的解答）

查看官方参考答案

更多“下面程序的功能是输出100以内所有素数： Private Sub Command1_Click（) For n = 2 To 100 isprime”相关的问题

第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、程序出错

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

2024自考专升本报考详细流程图如何报名参加自学考试和成人高考哪个好有哪些不一样 2024年成人自考本科考哪些科目多少分合格 2024年自考本科费用一览表要考多久自考大专毕业可以考教师资格证吗有什么用处 2024年自考专科专业科目一览表广西如何选择初中学历怎样自考大专报名4个步骤流程自考流程详细介绍报考步骤是什么 10月自考本科什么时候开始报名一般几月报考全国自考新生注册报名时间一年有几次

购买搜题卡查看答案

购买前请仔细阅读《购买须知》

请选择支付方式

微信支付

支付宝支付

点击支付即表示你同意并接受《服务协议》和《购买须知》

立即支付已付款，但不能查看答案，请点这里登录即可>>

搜题卡使用说明

1. 搜题次数扣减规则：

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次