首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下程序的功能是随机产生10个两位的整数: Option Base 1 Private Sub Commandl Click() Dim a(10)As Integer,i As Integer Randomize Fox i=1 To 10 a(i)=I
以下程序的功能是随机产生10个两位的整数: Option Base 1 Private Sub Commandl Click() Dim a(10)As Integer,i As Integer Randomize Fox i=1 To 10 a(i)=I
admin
2019-03-08
49
问题
以下程序的功能是随机产生10个两位的整数:
Option Base 1
Private Sub Commandl Click()
Dim a(10)As Integer,i As Integer
Randomize
Fox 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的功能是用于产生一个小于l但大于或等于0的随机数。为了生成某个指定范围内的随机整数,可使用以下公式:Int((’upperbound-lowerbound+1)*Rnd+lowerbound),其中upperbound是随机整数范围的上限,lowerbound,随机整数范围的下限。本题中upperbound为99,lowerbound为10。
转载请注明原文地址:https://kaotiyun.com/show/IZFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger) PrintText1.Text;EndSub运行程序,
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() DimiAsInteger,nAsInteger Fori=0To
VisualBasic控件一般都规定一个默认属性,在引用这样的属性时,只写对象名而不必给出属性名。默认属性为Caption的控件是( )。
(1)在名称为Form1的窗体上添加一个名称为Com-mand1的命令按钮,标题为“打开文件”,再添加一个名称为CDl的通用对话框。程序运行后,如果单击命令按钮,则弹出打开文件对话框,请按下列要求设置属性和编写代码:①设置适当属性,使对话框的标题
以下关于框架的叙述中,错误的是
以下关于VB对象属性的叙述中,错误的是
下列不能接收焦点的控件是
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下:324376582812985731425364758
窗体上有一个名称为Combo1的组合框,为了引用Combo1中最后一个列表项,应使用的表达式是
窗体上有一个名称为Combol的组合框,为了引用Combol中最后一个列表项,应使用的表达式是
随机试题
头围的大小与脑和颅骨的发育有关,新生儿出生时头围平均为()cm。
面访法是指由调查员对被调查者逐个访问,这种问卷调查方法的优点是
能确保自营业务与经纪、资产管理、投资银行等业务在人员、信息、账户、资金、会计核算上严格分离的制度是()。
下列各项中,不属于存货变动储存成本的是()。
若从0~9这十个数字中取出三个,使其和为不小于10的偶数,则不同的取法有()种.
从所给的四个选项中,选择最合适的一个填入问号处,使之呈现一定的规律性。
Weallknowpeoplewhosaytheyhave"nosenseofdirection".Yetforsomepeoplethatdescriptionistrueinallcircumstances:
青少年情绪发展的一般特点。
下列选项中,属于不作为犯罪的是()
A、Shehasalwaysbelievedtheyexist.B、SheheardabouttheminNewZealand.C、Storiesaboutthemmaybebasedongiantsquid.D
最新回复
(
0
)