首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Private Sub Form_Click() Dim s As Integer, p As Integer p=1 For i=1 To 4 For j=1 To i s=s+j Next j p=p * s Next i P
有如下程序: Private Sub Form_Click() Dim s As Integer, p As Integer p=1 For i=1 To 4 For j=1 To i s=s+j Next j p=p * s Next i P
admin
2015-06-30
25
问题
有如下程序:
Private Sub Form_Click()
Dim s As Integer, p As Integer
p=1
For i=1 To 4
For j=1 To i
s=s+j
Next j
p=p * s
Next i
Print p
End Sub
程序运行后,单击窗体,则输出结果是( )。
选项
A、在类型定义"Type RType"之前加上"Private"
B、Dim p As RType必须置于窗体模块的声明部分
C、应把Open语句中的For Random 改为 For Output
D、Put语句应该写为Put #1,p.Name , p.Tel
答案
A
解析
记录类型的定义必须放在模块的声明部分,当在标准模块中定义时,关键字Type前可以有Public(默认)或Private,而如果在窗体模块中定义,则必须在前面加上关键字Private。Open语句中使用For Random表示文件以随机方式存取。Put语句的语法为:Put #文件号,[记录号],变量。其中"变量"是除对象变量和数组变量外的任何变量。
转载请注明原文地址:https://kaotiyun.com/show/HuQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体中画一个命令按钮,然后编写以下事件过程:PrivateSubCommand1_Click()Forj=1To3PrintTab(3(j);11((2(j-1);NextjPri
以下关于多重窗体程序的叙述中,错误的是
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()StaticxAsIntegerClsFori=1To2
编写如下事件过程:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfShift=
对话框在关闭之前,不能继续执行应用程序的其他部分,这种对话框属于()。
设在窗体上有一个名称为Command1的命令按钮,并有以下事件过程:PrivateSubCommandlClick()StatiCbAsVariantb=Array(1,3,5,7,9)...
下列叙述中正确的是
在窗体上画三个单选按钮,组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是
某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签,计时器的属性设置为Enabled=True,Interval=0,并编程如下。希望在程序运行时,可以每2秒在标签上显示一次系统当前时间。PrivateSubTimer
设有下列二叉树:对此二叉树中序遍历的结果为
随机试题
党和政府第一次郑重地向全国人民提出实现“四个现代化”奋斗目标是在()
下列关于粪便性状异常的描述错误的是
中国农业发展银行的主要业务之一是办理粮食、棉花、油料的()贷款。
各结算参与人与其所属证券营业部之间的资金清算由中国结算公司负责。()
一张面值5万元,利率为10%,期限为3个月的商业承兑汇票,其到期值应为()元。
A企业年末“应付账款”科目的贷方余额为200万元,其中“应付账款”明细账的借方余额为100万元,贷方余额为300万元。“预付账款”科目借方余额为50万元,其中“预付账款”明细账的借方余额为75万元,贷方余额为25万元。该企业年末资产负债表中“应付账款”项目
“图二:分城乡按收入水平划分的家庭支出收入比”显示:不同收入层次的家庭,其消费率的变化呈现出规则的曲线,以家庭消费率代表家庭即期消费的倾向,比率越高,即期消费倾向( )。高收人家庭消费率比较低,意味着城市和农村高收入家庭每年收入的( )。
下列选项不是自变量的是
下列哪些行为不符合我国法律的适用原则?()。
SOCIALITYINANIMALS(1)Socialinsectsrepresentthehighpointofinvertebrateevolution.Somespeciesliveincommunities
最新回复
(
0
)