当前位置：首页 > 大学网课 > 大学网课

网友您好，请在下方输入框内输入要搜索的题目：

搜题

题目

[单选题]

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码： Option Base 1 Private Sub Command1_Click（) Dim a（5) As String Dim i As Integer Dim b As Variant For i = LBound（a) To UBound（a) a（i) = Chr（Asc（"a") + （26 - i)) Next i For Each b In a Print b; Next End Sub 程序运行时，单击Command1，则输出结果是________。

A.abcde

B.12345

C.zyxwv

D.出错

答案

B、12345

更多“在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码： Option Base 1 Private Sub Command1_Click（) Dim a（5) As String Di…”相关的问题

第1题

在窗体上添加一个命令按钮，名称为Command1，编写如下事件过程： Private Sub Command1_Click（) Dim arr arr = Array（"武汉", "温州", "吉林", "哈尔滨", "北京") Print arr（2) End Sub 运行时，单击命令按钮后输出的结果是（）。

A.温州

B.吉林

C.哈尔滨

D.北京

点击查看答案

第2题

在窗体上画一个名为Command1的命令按钮,然后编写以下程序 Private Sub Command1_Click（) Dim a（10) as integer For k=10 to 1 Step -1 a（k)=20-2*k Next k k=k+7 Print a（k-a（k)) End Sub 运行程序后,单击命令按钮,输出结果是。

A.18

B.12

C.8

D.6

点击查看答案

第3题

在窗体上添加一个命令按钮Command1，编写如下事件过程，运行时单击按钮，显示结果为（）。 Private Sub Command1_Click（) For i = 1 To 4 For j = 4 To 8 Sum = Sum + 1 Next j Next i Print Sum End Sub

A.4

B.8

C.20

D.32

点击查看答案

第4题

在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview设置为True（在激活对象上的控件键盘事件之前，优先激活键盘事件,即Form优先）然后编写如下代码： Dim SaveAll As String Private Sub Command1_Click（) Text1.Text=Ucase（SaveAll) End Sub Private Sub Form_KeyPress（KeyAscii As Integer) SaveAll= SaveAll+Chr（KeyAscii) End Sub 程序运行后，在键盘上输入“abcdefg”,单击命令按钮，则文本框显示为（)。

A.abcdefg

B.不显示任何信息

C.ABCDEFG

D.出错

点击查看答案

第5题

在窗体Form1上画一个名称为Command1的命令按钮，编写如下程序代码： Private Type stu sn As String * 20 class As String * 20 End Type Private Sub Command1_Click（) Dim s As stu Open "c:allstu.dat" For Random As #1 Len = Len（s) s.sn = "John" s.class = "Computer 2013" Put #1, , s Close #1 End Sub 则以下叙述中正确的是________。

A.文件c:allstu.dat中的每条记录是等长的

B.定义记录类型stu的Type语句可以移到事件过程Command1_Click中

C.如果文件c:allstu.dat不存在，则Open语句执行中出现'文件未找到'的错误

D.语句'Put #1, , s'中没有指明记录号，因此系统总是把记录写到文件的头部

点击查看答案

第6题

在窗体上添加一个命令按钮Command1，编写如下事件过程，运行时单击按钮，显示结果为（）。 Private Sub Command1_Click（) a = 0 For m = 1 To 3 a = a + 1 b = 0 For j = 1 To 3 a = a + 1 b = b + 2 Next j Next m Print a, b End Sub

A.6 6

B.6 18

C.12 6

D.12 18

点击查看答案

第7题

窗体上有一个名称为Command1的命令按钮，一个名称为List1的列表框。命令按钮的单击事件过程如下： Private Sub Command1_Click（) Open "c:f1.txt" For Input As #1 Do While Not EOF（1) Input #1, str1 List1.AddItem str1 Loop Close End Sub 对于上述程序，以下叙述中错误的是________。

A.Close的作用是关闭已经打开的数据文件

B.单击命令按钮后，把f1.txt中的所有内容添加到列表框中

C.以输入方式打开随机文件f1.txt

D.运行程序后，列表框中的列表项都是f1.txt中的记录

点击查看答案

第8题

在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框。在改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是（）。

A.Drive1_Change

B.Drive1_Click

C.Dir1_Click

D.Dir1_Change

点击查看答案

第9题

窗体上有一个名为Command1的命令按钮,并有如下程序: Private Command1_Click（) Dim a（10),x% For k=1 to 10 a（k)=Int（Rnd*90+10) x=x+a（k) Mod 2 Next k print x End Sub 程序运行后，单击命令按钮．输出结果是。

A.10个数中奇数的个数

B.10个数中偶数的个数

C.10个数中奇数的累加和

D.10个数中偶数的累加和

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

相关内容

建设施工单位在施工过程中偷工减料,造成建筑工程质量不符合规定的质量标准的法律后果是（）

风电机组高强螺栓定检维护方法，适用于等级8.8级以上并使用扭矩法安装的高强度螺栓。包括:塔筒螺栓、机组各部件连接螺栓和电缆固定与附属设施（如塔基控制柜、塔筒媚外梯子等）连接用螺栓（）

对工商局个体私营科的吊销营业执照的处罚不服,可以以谁为被告（）

检测机构应核验“见证记录”和见证试样件的标识封志不需要在委托书和检测试验报告上注明（）

不合格标识上需要填写物料信息、不合格原因、发生的时间、发现人员等信息（）

为了离座不断电，可以将安全带空系反扎（）

考试指南全部 >

福建二级建造师在哪里报名 2023年一级建造师成绩多少分及格 2024年江西一级建造师考试报名时间：6月7日开始吉林2024年二建考试备考经验分享注册安全工程师可以跨专业注册吗 23天津注册安全工程师准考证打印入口 2024注安考试报名时间中级安全工程师证报考时间安排二建过了一门第二年怎么报名 2023年一级建造师考试考多少分合格

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次