首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
17
问题
有如下程序:
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://jikaoti.com/ti/VQ60FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在VisualBasic集成环境创建应用程序时,除了窗体设计器、【工具箱】窗口、【属性】窗口以外,必不可少的窗口是()
执行以下程序段,并输入1.23,则程序的输出结果应是【】。N=Str(InputBox("请输入一个实数:"))p=InStr(N,".")PrintMid(N,p)
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivate
在窗体上画一个命令按钮,命名为CommandI。程序运行后,如果单击命令按钮,则显示一个输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程F1,在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。能够正
如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是
下列关于Do…Loop语句的叙述不正确的是()
在窗体上画一个命令按钮,然后编写如下程序(假定变量x是—个窗体级变量)DimxAsIntegerSubinc(aASInteger)X=K+aEndSubPrivateSubCommand1
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的,在名称为Forml的窗体上有一个Label控件和两个名称分别为Commandl和Command2、标题分别为“开始”和“关闭”的命令按钮。编写函数Minus(A,N),其功能
一棵二叉树第6层(根结点为第一层)的结点最多为______个。
随机试题
某二级耐火等级的办公室,建筑高度为24m,其周边布置有多个二级耐火等级的建筑,下列关于该办公建筑与周边建筑物防火间距的做法中,正确的有()。
()负责保障基金财务监管。
试论述宏观经济的四大目标。
新时代的师生关系应该是民主平等的,因此在德育工作中应该遵循()。
《红楼梦》中林黛玉的气质类型属于典型的()。
价值规律是商品经济的基本规律,其表现形式是
设求y(5)(0).
Maybeunemploymentisn’tsobadafterall.Anewstudysaysthathavingademanding,unstableandthanklessjobmaymakeyoueve
若原始数据序列(23,4,45,67,12,8,19,7)采用直接插入排序法(顺序地将每个元素插入到它之前的适当位置)排序,则进行完第4趟后的排序结果是______。A.4,8,45,23,67,12,19,7B.4,7,8,12,23,45,67,1
Myfavoritefilm,Casablanca,______wasmadein1942,willbeshowninthecinemaagainnextweek.
最新回复
(
0
)