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

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

搜题

题目

[单选题]

在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签，然后编写如下程序代码： Option Base 0 Private Sub Command1_Click（) Dim a（5) As Integer, n As Integer For i = 0 To 5 a（i) = i n = n + a（i) Next i Label1 = n End Sub 运行程序，单击命令按钮，在标签中显示的内容是________。

A.5

B.10

C.15

D.20

答案

B、10

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

第1题

在窗体上画一个名称为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.出错

点击查看答案

第2题

在窗体上画一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click（) Dim S As Integer S = 0 For i = 1 To 15 x = 2 * i - 1 If x Mod 3 = 0 Then S = S + 1 End If Next i Label1.Caption = S End Sub 运行程序，单击窗体，标签中显示的是________。

A.1

B.5

C.27

D.45

点击查看答案

第3题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写以下程序代码： Private Sub sub1（ByRef d（), ByRef m1 As Integer) Dim i As Integer m1 = d（LBound（d)) For i = LBound（d) + 1 To UBound（d) If m1 < d（i) Then m1 = d（i) Next i End Sub Private Sub Command1_Click（) Dim n1 As Integer n1=-1 Dim data（) data = Array（10, 20, -20, 50, 15, -5) Call sub1（data（), n1) Text1.Text = n1 End Sub 程序运行过程中，当单击命令按钮Command1时，则在文本框Text1中显示的结果为________。

A.0

B.-1

C.-5

D.50

点击查看答案

第4题

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

A.温州

B.吉林

C.哈尔滨

D.北京

点击查看答案

第5题

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click（) a = 75 If a>60 Then k = 1 ElseIf a>70 Then k = 2 ElseIf a>80 Then k = 3 ElseIf a>90 Then k = 4 End If MsgBox k End Sub 窗体打开运行后，单击命令按钮，则消息框的输出的结果是（）。

A.1

B.2

C.3

D.4

点击查看答案

第6题

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

A.Drive1_Change

B.Drive1_Click

C.Dir1_Click

D.Dir1_Change

点击查看答案

第7题

A.Drive1_Change

B.Drive1_Click

C.Dir1_Click

D.Dir1_Change

点击查看答案

第8题

在窗体上画一个名为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

点击查看答案

第9题

窗体上有一个名称为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中的记录

点击查看答案

第10题

在窗体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'中没有指明记录号，因此系统总是把记录写到文件的头部

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

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