题目内容（请给出正确答案）

[主观题]

假定有如下的窗体事件过程: Private Sub Form_Click（) a$="MicrosoftVisual Basic" b$=Right（a$

假定有如下的窗体事件过程:

Private Sub Form_Click()

a$="MicrosoftVisual Basic"

b$=Right(a$,5)

c$=Mid(a$,1,9)

MsgBox a$,34,b$,c$,5

End Sub

程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是

A．Microsoft Visual

B．Microsoft

C．Basic

D．5

提问人：网友zhangying 发布时间：2022-01-07

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“假定有如下的窗体事件过程: Private Sub Form…”相关的问题

第1题

在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句，单击该窗体，其中（）一定可以将Hello显示在当前窗体上。

A. Form2.Print"Hello"

B. ME.Print"Hello"

C. Form1.Print"Hello"

D. Debug.Print"Hello"

点击查看答案

第2题

在窗体Form1上有一个列表框ListBox1，编写如下两个事件过程： Private Sub Form1_Load(…) Handles MyBase.Load ListBox1.Items.Add("ItemA") ListBox1.Items.Add("ItemB") ListBox1.Items.Add("ItemC") ListBox1.Items.Add("ItemD") ListBox1.Items.Add("ItemE") End Sub Private Sub Form1_Click(…) Handles Me.Click ListBox1.Items.RemoveAt(1) ListBox1.Items.RemoveAt(3) ListBox1.Items.RemoveAt(2) End Sub 运行程序，然后单击窗体，则列表框ListBox1中显示的项目为______。

A、ItemA和ItemB

B、ItemB和ItemD

C、ItemD和ItemE

D、ItemA和ItemC

点击查看答案

第3题

下列关于事件方法说明错误的是()。

A．事件的方法不能响应某个事件

B．事件的方法的实现步骤可以修改

C．事件的方法是预先规定好的

D．用户可以直接调用VisualBasic所规定的方法

点击查看答案

第4题

若要使用户不能修改文本框TextBoxl中显示的内容，应设置()属性。

A．Locked

B．MultiLine

C．PassWordChar

D．ScrollBar

点击查看答案

第5题

表达式3^2*2+3MODl0\4的值是()。

A．18

B．1

C．19

D．0

点击查看答案

第6题

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：

Private Sub Commandl_Click()

Dimi As Integer,j As Integer

Dima(10,10)As Integer

Fori=1 To 3

Forj=1 To 3

a(i，j)=(i-1)*3+j

Printa(i，j)；

Nextj

Nexti

End Sub

点击查看答案

第7题

下列符号常量的声明中，()是不合法的。

A．Consta As Single=1.1

B．Consta As Integer="12"

C．Consta As Double=Sin(1)

D．Consta="OK"

点击查看答案

第8题

在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程： Private Sub Commandl_Click() S=0 Fori=1 To 15 x=2*i-1 If x Mod3=0 Thens=S+1 Nexti Labe11.Caption=S End Sub 程序运行后，单击命令按钮，则标签中显示的内容是()。

A．1

B．5

C．27

D．45

点击查看答案

第9题

要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课程成绩(百分制)组成，下列程序段正确的是()。

A．Typepestudl no As Integer name As String score(1 To 3)As Single End Type

B．Typestudl no As Integer no As Integer name As String*10 score()As Single End Type

C．Typestudl no As Integer name As String*10 score(1 To 3)As Single End Type

D．Typestudl no As Integer name As String score(1 To 3)As Single End Type

点击查看答案