首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
50
问题
有如下程序:
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/rcQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列各选项说法错误的一项是
数据字典是各类数据描述的集合,它通常包括5个部分,即数据项、数据结构、数据流【】和处理过程。
设在工程中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮,
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivate
执行下面的程序段,x的值为PrivateSubCommandl_Click()Fori=1To5a=a+iNextix=Val(i)MsgBoxxEndSub
在窗体上画一个命令按钮,然后编写如下事件过程:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1For
在显示字体对话框之前必须设置【】属性,否则,将发生字体不存在的错误。
决定控件上文字的字体、字形、大小、效果的属性是______。
下列叙述中,不属于软件需求规格说明书的作用的是______。
随机试题
A、About13%.B、About15%.C、About30%.D、About50%.C
骨髓增生程度的主要判断标准是()
病人烦渴引饮,能食易饥,小便频数量多,消瘦,该患者证属()。
在备用信用证项下,受益人只有在开证申请人未履行义务时,才能行使信用证规定的权利,因而,开证银行承担第二性的付款责任。()
尽管财务报表是按会计准则编制的,但不一定反映公司的实际情况,如()。Ⅰ.有些数据是估计的,如无形资产摊销等Ⅱ.流动资产的余额是按历史成本减折旧或摊销计算的,不代表现行成本或变现价值Ⅲ.报表数据未按通货膨胀或物价水平调整
下列各项所得,免征个人所得税的项目有()。
技术发展给社会带来的弊端——1989年英译汉及详解WhenJaneMathesonstartedworkatAdvancedElectronicsInc.12yearsago,【F1】shelabouredoveramic
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码:PrivateSubCommand1_Click()s=”ABBACDDCBA”ForI=6To2:Step-2x=Mid(s,I,I):
面向对象的程序设计语言是()。
Musiccomesinmanyforms;mostcountrieshaveastyleoftheirown.【C1】______themmofthecenturywhenjazzwasborn,America
最新回复
(
0
)