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

搜题

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

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

[单选题]

下列代码的运行结果是_______。 Private Sub Command1_Click（) n = 100 For I = 1 To n If I Mod 25 = 0 Then Print "*" Next I End Sub

A.4个"*"

B.5个"*"

C.25个"*"

D.100个"*"

参考答案

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

查看官方参考答案

网友提供的答案

共位网友提供了参考答案，

查看全部

· 有3位网友选择 A，占比37.5%
· 有2位网友选择 B，占比25%
· 有2位网友选择 D，占比25%
· 有1位网友选择 C，占比12.5%

ABCD

提交我的答案

登录提交答案，可赢取奖励机会。登录

更多“下列代码的运行结果是_______。 Private Sub Command1_Click（) n = 100 For I = 1 To n If I Mod 25 = 0 Then Print "*…”相关的问题

第1题

下列程序运行的结果是（）。 Private Sub Command1_Click() Dim a(6) As Integer, b(6) As Integer n = 5 For i = 1 To 6 a(i) = i b(i) = i ^ 2 - n Next i Print a(n); b(n) End Sub

A、5 10

B、5 20

C、6 30

D、6 31

点击查看答案

第2题

设有如下程序： 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

点击查看答案

第3题

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

点击查看答案

第4题

执行下面的程序，单击窗体后在窗体上显示的结果是 ______。Private Sub form_ Click() Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1 = "e" for I = t To 2 Str2 = Ucase (Str1) Str1 = Str2 & Str1 Str3 = Str3 & Str1 str1 = Chr (Asc(Str1) + I) Next I Print Str3End Sub

A．EeFF

B．eEfF

C．EEFF

D．eeFF

点击查看答案

第5题

'下面的程序运行时,单击窗体后,窗体上显示的结果是(B )。

Private Sub Form_Click(B )

Dim a(1 To 5)As Integer

a(1)= 2: a(2)= 3: a(3)= 1: a(4)= 5: a(5)= 4

n = 5

For i = 1 To n - 1

Min = i

For j = i + 1 To n

If a(j)< a(Min)Then Min = j

Next j

t = a(i): a(i)= a(Min): a(Min)= t

Next i

For i = 1 To n

Print a(i);

Next i

End Sub

A. 2 3 1 5 4

B. 1 2 3 4 5

C. 9 8 7 6 5

D. 5 5 5 5 5

点击查看答案

第6题

用DataOuputStream的哪个方法写一个字符串到顺序文件?

A、writeInt

B、writeString

C、writeSTR

D、writeUTF

点击查看答案

第7题

表达式2 + 8 * 6 / 4 mod 2的值是:

A、9

B、2

C、6

D、5

点击查看答案

第8题

VB的一个应用程序至少包含一个_________文件，该文件存储窗体上使用的所有控件对象和有关的_______、对象相应的________过程和______代码.

A、窗体、属性、事件、程序

B、窗体、属性、事件、模块

C、模块、方法、事件、程序

D、窗体、程序、属性、事件

点击查看答案

第9题

可以使用ReDim 语句定义函数过程。

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

自考本科在哪里考报名流程是怎样 2024年每年自考本科的报名时间考哪些内容 2024年女生最实用的自考专业含金量高的推荐 2024年成人高考和成人自考哪个更好有什么区别 2024年自考本科网上报名条件考试科目有什么 2024成人高中学历怎么提升学历考哪些内容 2024年自考成人本科考哪些科目合格标准是多少 2024年自考什么时候报名考哪些内容 2024年本科自考报考时间考哪些内容 2024年自考本科在哪里报名报考条件有哪些

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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