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

搜题

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

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

[主观题]

下面程序段执行结果为x=Int（Rnd（)+4)Select Case x Case 5 Print"excellent" Case4 Print"good

下面程序段执行结果为 x=Int(Rnd()+4) Select Case x Case 5 Print"excellent" Case4 Print"good" Case 3 Print"pass" Case Else Print"fail" End Select

A．excellent

B．good

C．pass

D．fall

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

查看官方参考答案

更多“下面程序段执行结果为x=Int（Rnd（)+4)Select Case x Case 5 Print"excellent" Case4 Print"good”相关的问题

第1题

窗体上有一个命令按钮command1，其Click事件过程如下：

Private Sub Commandl_Click()

Dim x As Integer

x=InputBox("请输入x的值")

Select Case x

Case 1,2,4,6

Debug.Print"A"

Case 5,7 To 9

Debug.Print"B"

Case Is=10

Debug.Print"C"

CaSe ElSe

Debug.Print"D"

End Select

End Sub

程序执行后单击命令按钮，在弹出的输入框中输入8，则立即窗口上显示( )。

A．A B．B C．C D．D

点击查看答案

第2题

执行下面程序段后输出的结果是（）。 Dim i As Integer, x As Integer For i = 1 To 5 x = 4 For j = 1 To 2 x = x + 1 Next j Next i Form1.Print x

A、72

B、22

C、6

D、7

点击查看答案

第3题

Dim i,j,x For i=i To 20 step 2 x=0 For j=i To 20 step 3 x=x+1 Next j Next i Textl.Value=Str(x) End Sub 文本框中显示的结果

A、1

B、2

C、0

D、3

点击查看答案

第4题

执行下面程序段后，输出的结果为（）。 Dim a(10, 10) As Integer For i = 2 To 4 For j = 4 To 5 a(i, j) = i * j Next j Next i Print a(2, 5) + a(3, 4) + a(4, 5)

A、22

B、42

C、32

D、52

点击查看答案

第5题

给定年份，下列程序用来判断该年是否是闰年，请填空。

Sub YN（）

Dim x As Integer

x=InputBox（"请输入年号"）

If （x Mod 4=0 【10】 x Mod 100 $amp; Print "是闰年"

Else

Print "不是闰年，是普通年份"

End If

End Sub

点击查看答案

第6题

下列代码的运行结果为（）。 Private Sub Command1_Click() x = 1: y = 4 Do Until y >= 4 x = x / y y = y + 1 Loop Print x End Sub

A、1

B、4

C、8

D、20

点击查看答案

第7题

下列程序段执行后，在标签Label1中显示的图形是______。 Dim s$, i%, j% s = "" For i = 1 To 4 s &= Space(4 - i) For j = 1 To i s &= 2 * i - 1 Next j s &= vbCrLf Next i Label1.Text = s

A、

B、

C、

D、

点击查看答案

第8题

在“声明”段有语句Option Base 1，那么用如下语句声明的数组a包含的元素个数为（）。 Dim a(-1 To 3, 3, 4)

A、60

B、100

C、150

D、180

点击查看答案

第9题

执行下列程序段，则在窗体上输出字符x的个数为（）。 For i = 1 To 3 For j = i To 4 Form1.Print "x" Next j Next i

A、3

B、9

C、4

D、12

点击查看答案

第10题

下列语句中，能够将数据追加到顺序文件D:\StuScore.txt末尾的是（）。

A、Open "D:\StuScore.txt" For Output As #1

B、Open "D:\StuScore.txt" For Append As #1

C、Open "D:\StuScore.txt" For Input As #1

D、Open D:\StuScore.txt For Append As #1

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

2024年成人自学考试的报名时间考哪些内容 2024年10月自学考试时间是什么时候 2024年10月自学考试时间及科目一览表 2024年自考成绩查询系统入口及网址 4月自学考试成绩什么时候公布多久可以查分成人自考考试时间一般都是什么时候全年自考本科考试时间2024具体时间汇总 2024年4月湖北自考成绩什么时候出查分入口在哪全国2024自学考试成绩查询入口及查分网址自学考试成绩一般什么时候公布考后多久出成绩

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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