窗体上有名称为Command1的命令按钮和名称为Text1的文本框( ...

单项选择题

从键盘上输入一个浮点数asingle，利用字符串函数对该数进行处理后，如果输出的内容不是“非浮点数”，则对程序输出的内容分析正确的是( )。 asingle＝InputBox("请输入一个浮点数：") str1$＝Str$(asingle)：p＝InStr(str1$，"．") Ifp＞0 Then Print Mid$(str1$，p) Else Print"非浮点数" End If

A．输出asingle的字符串形式
B．输出数据asingle的整数部分
C．输出数据asingle的小数点及小数点后面的数字
D．只去掉数据中的小数点，保留所有数字输出

单项选择题

表达式Abs(－5)＋Len("ABCDE")的值是( )。

A．5ABCDE
B．－5ABCDE
C．10
D．0

单项选择题

当一个工程含有多个窗体时，其中启动窗体是( )。

A．启动Visual Basic时建立的窗体
B．第一个添加的窗体
C．最后一个添加的窗体
D．在“工程属性”对话框中指定的窗体

单项选择题

有下列程序，运行后的结果为( )。 X＝2．4：Y＝3：Z＝5 Print"A("；X＋Y*Z；")"

A．A(17)
B．A(17．4)
C．A(18)
D．A(2．4＋3*5)

单项选择题

下面不能在信息框中输出“Visual Basic”的是( )。

A．x＝MsgBox("Visual Basi")
B．MsgBox("Visual Basic")
C．MsgBOX"Visual Basic"
D．Call MsgBox"Visual Basic"

单项选择题

如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是( )。

A．它的Y1、Y2属性的值相等
B．它的X1、X2属性的值相等
C．它的X1、Y1属性的值分别与X2、Y2属性的值相等
D．它的X1、X2属性的值分别与Y1、Y2属性的值相等

单项选择题

( )控件可以使图形根据控件大小而改变大小。

A．图片框
B．标签
C．图像框
D．框架

单项选择题

要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为( )。

A．0
B．1
C．2
D．其他

单项选择题

以下( )操作不能触发滚动条Change事件。

A．拖动滚动块
B．单击两端箭头
C．单击滚动块
D．单击箭头与滚动块之间的滚动条

单项选择题

语句Print Format(Int(12345．6789*100＋0．5)／100，"0000，0．00")的输出结果是( )。

A．12，3456．8
B．12，34．5
C．12，3．45
D．12，345．68

单项选择题

下列程序执行后，变量X的值为( )。 Dim a，b，c，d As Single Dim xAs Single a＝10：b＝30：c＝400 Ifb＞aThen d＝a：a＝b：b＝d EndIf If b＞C Then x＝b Elselfa＞C Then x＝C Else x＝a End If

A．10
B．30
C．400
D．430

单项选择题

假定有如下的Sub过程： Sub S(x As Single，y As Single) t＝x：x＝t／y y＝t Mod Y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single，Dim b As Single a＝5：b＝4：S a，b Print a，b End Sub 程序运行后，单击命令按钮，输出结果为( )。

A．5 4
B．1 1
C．1．25 4
D．1．25 1

单项选择题

窗体上有名称为Command1的命令按钮和名称为Text1的文本框( )。 Private Sub Command1_Click() Text1．Text＝"程序设计"：Text1．SetFocus End Sub Private Sub Text1 GotFocus0 Text1．Text＝"等级考试" End Sub 运行以上程序，单击命令按钮后( )。

A．文本框中显示的是“程序设计”，且焦点在文本框中
B．文本框中显示的是“等级考试”，且焦点在文本框中
C．文本框中显示的是“程序设计”，且焦点在命令按钮上
D．文本框中显示的是“等级考试”，且焦点在命令按钮上

单项选择题

下列程序代码段中，在单击命令按钮调用SelMid函数时，其运行结果为( )。 Private Function SelMid(aSlr AS String)As String Dim temp As String，sLen As Integer temp＝""：sLen＝Len(aStr) i＝1 Do While i＜＝sLcn／2 temp＝temp＋Mid(aStr,i,1)＋Mid(aStr,sLen－i＋1，1) i＝i＋1 Loop SeMid＝temp End Function Private Sub Command1_Click() Dim SirAs String Str＝"abcdef"：Print SelMid(Str) End Sub

A．abcdef
B．afbecd
C．fedcba
D．defabc

单项选择题

设有一个有10个元素的数组，下列程序将该数组的第1个元素与第10个元素交换，第2个元素与第9个元素交换……，第5个元素与第6个元素交换，在横线处应填写( )。 Private Sub Command1_Click() Dim a(1 To 10)As Integer Dim i As Intege,Dim P As Integer Dim t As Intege,Dim j As Integer For i＝1 To 10 a(i)＝i Nexti Forj＝1 To 5 t＝a(j) Nextj For i＝1 To 10 Print a(i) Next i End Sub

A．a(j)＝a(11－j) a(11－j)＝t
B．a(11－j)＝a(j) a(j)＝t
C．a(j)＝a(11－j) a(j)＝t
D．a(11－j)＝t a(j)＝a(11－j)

单项选择题

下面正确使用动态数组的是( )。

A．Dim arr1() As Integer ReDim arr2(3，5)
B．Dim arr1() As Integer ReDimarrl(50)As String
C．Dim arr10 …
D．Dim arr1(50)As Integer ReDim arr1(20)

单项选择题

已知数组Dim a(1 To 10)As Integer，则下面正确调用GetValue函数的是( )。 Private Function GetValue(a() As Integer) As Integer For i＝1 T0 10 GetValue＝GetValue＋a(i) Nexti End Function

A．S＝GetValue(a(1 T0 10))
B．S＝GetValue(a)
C．S＝GetValue(a(10))
D．S＝GetValue a

单项选择题

单击一次命令按钮，下列程序代码的执行结果为( )。 Private Sub Command1_Click() Dim a As Intege，b As Intege，c As Integer a＝2：b＝3：c＝4 PrintP2(c，b，a) End Sub Private Function P1(x AS Integer，yAs Integer, z As Integer) P1＝2x＋y＋3z End Function Private Function P2(x As Integer，y As Integer， z As Integer) P2＝P1(z，x，y)＋x End Function

A．21
B．19
C．17
D．34

单项选择题

在窗体中有一个名为Command1的命令按钮，并编写有以下代码。程序执行时，单击命令按钮，输出的结果为( )。 Public Sub Procl(n As Intege，ByVal m As Integer) n＝n Mod 10：m＝m／10 End Sub Private Sub Command1_Click() Dim x As Imteger，y As Integer x＝12：y＝34 Call Procl(x，y) Print x；y End Sub

A．2 3
B．2 34
C．12 3
D．12 34

单项选择题

设有如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single，Y As Single) If Button＝2 Then PopupMenu popMenu End If End Sub 则以下描述中错误的是( )。

A．该过程的功能是弹出一个菜单
B．popMenu是在菜单编辑器中定义的弹出式菜单的名称
C．参数X、Y指明鼠标的当前位置
D．Button＝2表示按下的是鼠标左键

单项选择题

以下叙述中正确的是( )。

A．任何时候都可以使用标准工具栏的“菜单编辑器”。按钮抒开菜单编辑器
B．只有当代码窗口为当前活动窗口时，才能打开菜单编辑器
C．只有当窗体设计窗口为当前活动窗体时，才能打开菜单编辑器
D．任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器

单项选择题

窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮，要求程序运行时，单击命令按钮(如图所示)，就可以把文本框中的内容写至收件Out．txt中，每次写入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是( )。

A．Private Sub Command1_Click() Open"Out.txt"ForInput AS#1 Print#1，1*oxt1．Text Close#1 End Sub
B．Private Sub C0mmand1_Click() Open"Out.txt"For Output As #1 Print#1．Text1．Text Close#1 End Sub
C．Private Sub Command1_Click() Open"Out.txt"For Append As#1 Print#1．Text1．Text Close#1 End Sub
D．Private Sub Command1_Click() Open"Out.txt"For Random As#1 Print #1，Text1．Text Close#1 End Sub

单项选择题

假设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是( )。

A．命令按钮的所有Caption属性都是Command1
B．在代码中访问任意一个命令按钮只需使用名称Command1
C．命令按钮的大小都相同
D．命令按钮共享相同的事件过程

单项选择题

下面关于多重窗体的叙述中，正确的是( )。

A．作为启动对象的Main子过程只能放在窗体模块内
B．如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体
C．没有启动窗体，程序不能执行
D．以上都不对

单项选择题

设在工程中有一个标准模块，并定义了如下类型： Type Stutype ino As Integer stmame As String20 strsex As String2 smark As Single End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在C盘根目录下的随机文件Student．dat中写入一条记录。下列能够完成该操作的是( )。

A．Sub Command1_Click() Dim student As Studtype Dim record_no As Integer record_no＝1 With student .ino＝12：.stmame＝"smith"： .strsex＝＝男＝：.smark＝89 End With Open"c：＼Student．dat"For Input As#1 Len ＝Len(Student) Put#1，record_no，Student Close#1 End Sub
B．Sub Command1_Click() Dim Student As Stutype Dim Record_no As Integer Record_no＝1 With Student .ino＝12：.strname＝"smith" .strsex＝"男"：.smark＝89 End With Open"c：＼student．dat"For RandomAs As#1 Len＝Len(Student) put#1，Record_no，Student Close#1 End Sub
C．Private Sub Command1_Click() DimStudent As Stutype Dim Record no As Integer Record_no＝1 With Student .ino＝12：.stmame＝"smith" .strsex＝"男"：.smark＝89 End With Open"c：＼student．dat"For Random As 1 Len＝Len(Student) Write#1，Record_no，Student Close#1 End Sub
D．Sub Command1_Click() Dim Student As Stutype Dim Record_no As Integer Record_no＝1 With Student .ino＝12：.stmame＝"smith" .strsex＝"男"：.smark＝89 End With Open"c：＼student.dat"For Output As#1 Len＝Len(Student) Put#1，Record_no，Student Close#1 End Sub

单项选择题

为计算1＋2＋2 ² ＋2 ³ ＋2 ⁴ ＋…＋2 ¹⁰ 的值，并把结果显示在文本框Text1中，若编写如下事件过程： Private Sub Command1_Click() Dim ao／0，b％，i％ s＝1：a＝2 For i＝2 To 10 a＝a*2：b＝b+a Next i Text1．Text＝b End Sub 执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是( )。

A．把b＝1改为b＝0
B．把For k＝2 To 10改为For i＝1 To 10
C．交换语句b＝b＋a和a＝a*2的顺序
D．同时进行B、C两种修改

窗体上有名称为Command1的命令按钮和名称为Text1的文本框( )。 Private Sub Command1_Click() Text1．Text＝"程序设计"：Text1．SetFocus End Sub Private Sub Text1 GotFocus0 Text1．Text＝"等级考试" End Sub 运行以上程序，单击命令按钮后( )。

你可能感兴趣的试题

数据结构主要研究的是数据的逻辑结构、数据的运算和( )。

一棵二叉树的前序遍历结果是ABCEDF，中序遍历结果是CBAEDF，则其后序遍历的结果是( )。

在数据处理中，其处理的最小单位是( )。

在数据库系统的内部结构体系中，索引属于( )。

以下( )不属于对象的基本特征。

开发软件所需高成本和产品的低质量之间有着尖锐的矛盾，这种现象称做( )。

关系模型允许定义3类数据约束，下列不属于数据约束的是( )。

关系表中的每一行记录称为一个( )。

数据库系统的核心是( )。

在数据库管理技术的发展中，数据独立性最高的是( )。

设a＝2，b＝3，c＝4，d＝5，下列表达式的值是( )。 3＞2*b Or a＝c And b＜＞c Or b＜＞a＋c

下列可以激活属性窗口的操作是( )。

VB的数值型数据分为( )两种。

设有变量声明为“Dim aDateAs Date”，则能为变量aDate正确赋值的表达方式是( )。

表达式Abs(－5)＋Len("ABCDE")的值是( )。

当一个工程含有多个窗体时，其中启动窗体是( )。

有下列程序，运行后的结果为( )。 X＝2．4：Y＝3：Z＝5 Print"A("；X＋Y*Z；")"

下面不能在信息框中输出“Visual Basic”的是( )。

如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是( )。

( )控件可以使图形根据控件大小而改变大小。

要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为( )。

以下( )操作不能触发滚动条Change事件。

语句Print Format(Int(12345．6789*100＋0．5)／100，"0000，0．00")的输出结果是( )。

下列程序执行后，变量X的值为( )。 Dim a，b，c，d As Single Dim xAs Single a＝10：b＝30：c＝400 Ifb＞aThen d＝a：a＝b：b＝d EndIf If b＞C Then x＝b Elselfa＞C Then x＝C Else x＝a End If

窗体上有名称为Command1的命令按钮和名称为Text1的文本框( )。 Private Sub Command1_Click() Text1．Text＝"程序设计"：Text1．SetFocus End Sub Private Sub Text1 GotFocus0 Text1．Text＝"等级考试" End Sub 运行以上程序，单击命令按钮后( )。

下面正确使用动态数组的是( )。

已知数组Dim a(1 To 10)As Integer，则下面正确调用GetValue函数的是( )。 Private Function GetValue(a() As Integer) As Integer For i＝1 T0 10 GetValue＝GetValue＋a(i) Nexti End Function

设有如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single，Y As Single) If Button＝2 Then PopupMenu popMenu End If End Sub 则以下描述中错误的是( )。

以下叙述中正确的是( )。

假设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是( )。

下面关于多重窗体的叙述中，正确的是( )。