首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下程序的功能是随机产生10个两位的整数: Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim i As Integer Randomize For i=1
以下程序的功能是随机产生10个两位的整数: Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim i As Integer Randomize For i=1
admin
2020-07-22
58
问题
以下程序的功能是随机产生10个两位的整数:
Option Base 1
Private Sub Command1_Click()
Dim a(10)As Integer
Dim i As Integer
Randomize
For i=1 To 10
a(i)=Int(Rnd * 100)+1
Print a(i)
Next i
End Sub
运行以上程序,发现有错误,需要对产生随机数的语句进行修改。以下正确的修改是( )。
选项
A、a(i)=Int(Rnd * 100)
B、a(i)=Int(Rnd * 90)+10
C、a(i)=Int(Rnd * 100)+10
D、a(i)=Int(Rnd * 101)
答案
B
解析
由Rnd函数生成的随机数在0~1之间,包括0但不包括1,所以有可能产生0,与题目要求的两位的整数不符。所以语句a(i)=Int(Rnd * 100)+1需要修改为a(i)=Int(Rnd * 90)+10,这样就能正确产生两位的整数了。
转载请注明原文地址:https://kaotiyun.com/show/rgHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个工程文件sit3.vbp,其功能是:①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的0~999之间的100个整数读入数组a中:②单击“计算”按钮,则找出这100个整数巾所有水仙花数,并将它们的最大值与最小值分别显示
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click() ’循环1 Fori=1To3 Forj=1To4
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有一个文本框数组,名称为Text1,下标从0开始。程序运行后,单击“产生随机数”按钮,就会随机产生10个3位数,并放人Text1数组中(如图1所示);单击“重排数据”按钮,则把Text1中的奇数移到前面
一个栈的初始状态为空。现将元素1,2,3,A,B,C依次入栈,然后再依次出栈,则元素出栈的顺序是
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输人大、小写字母和数字。单击标题为“统计”的命令按钮,分别统计输入字符串中大写字母、小写字母及数字字符的个数,并将统计结果分别在标签控件数组x中显示,如图所示。在给
窗体上有一个名称为Commandl的命令按钮,一个名称为Textl的文本框。编写如下程序:PrivateSubCommandl_Click()DimXAsIntegerx=Val(InputBox(“输入数据”))
以下打开VisualBasic菜单编辑器的操作中,错误的是
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是
在软件设计中不使用的工具是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1标题为“选课”的窗体上画一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、
随机试题
与r对策生物相比,K对策生物的出生率______。
患者,女,24岁。农民。因不规则发热3周伴乏力、气短、出汗、关节痛而来院。发现有心脏杂音8年。查体:体温38℃,脉搏100次/分,血压120/70mmHg,颜面潮红,咽红,扁桃体Ⅱ度肿大,双肺清,未闻及干湿性啰音。心界向两侧扩大,心律整,心尖部第一心音减
"五体"中,与肾相合的是
下列哪些污染物必须在车间内或车间处理设施排放口采样?()
在长江三峡中,以“秀”著称的是()。
“点头微笑表示肯定,摇头皱眉表示否定”体现了情绪情感的()功能。
出租车队去机场接某会议的参会者,如果每车坐3名参会者,则需另外安排一辆大巴送走余下的50人;如每车坐4名参会者,则最后正好多出3辆空车。则该车队有_________辆出租车。
设f(x)在[a,b]上连续,在(a,b)上可导,且f(A)=f(B)=1,证明:必存在ξ,η∈(a,b),使得eη-ξ[f(η)+f’(η)]=1。
根据定积分的几何意义,下列各式中正确的是[].
TheprototypeofBritishParliamentis
最新回复
(
0
)