题目内容 (请给出正确答案)
[单选题]

下列代码的运行结果是_______。 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个"*"

提问人:网友ykexin 发布时间:2022-01-07
参考答案
查看官方参考答案
如搜索结果不匹配,请 联系老师 获取答案
网友答案
查看全部
  • · 有3位网友选择 A,占比37.5%
  • · 有2位网友选择 B,占比25%
  • · 有2位网友选择 D,占比25%
  • · 有1位网友选择 C,占比12.5%
匿名网友 选择了D
[195.***.***.86] 1天前
匿名网友 选择了C
[169.***.***.177] 1天前
匿名网友 选择了D
[159.***.***.14] 1天前
匿名网友 选择了A
[18.***.***.122] 1天前
匿名网友 选择了B
[149.***.***.89] 1天前
匿名网友 选择了A
[86.***.***.240] 1天前
匿名网友 选择了A
[81.***.***.70] 1天前
匿名网友 选择了B
[110.***.***.112] 1天前
加载更多
提交我的答案
登录提交答案,可赢取奖励机会。
更多“下列代码的运行结果是_______。 Private Sub…”相关的问题
第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 语句定义函数过程。
点击查看答案
账号:
你好,尊敬的用户
复制账号
发送账号至手机
密码将被重置
获取验证码
发送
温馨提示
该问题答案仅针对搜题卡用户开放,请点击购买搜题卡。
马上购买搜题卡
我已购买搜题卡, 登录账号 继续查看答案
重置密码
确认修改
欢迎分享答案

为鼓励登录用户提交答案,简答题每个月将会抽取一批参与作答的用户给予奖励,具体奖励活动请关注官方微信公众号:简答题

简答题官方微信公众号

警告:系统检测到您的账号存在安全风险

为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!

微信搜一搜
简答题
点击打开微信
警告:系统检测到您的账号存在安全风险
抱歉,您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封,或联系客服
微信搜一搜
简答题
点击打开微信