单选题窗体上有一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程：
Private Sub Command1_Click()
CommonDialog1.DefaultExt="doc"
CommonDialog1.FileName="VB.txt"
CommonDialog1.Filter="All(*.*)|*.*|Word|*.Doc|"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowSave
End Sub
运行上述程序，如下叙述中正确的是______。
单选题对于如下程序，单击Co皿andl事件发生后，窗体上显示的内容为 ______。 Private Sub Command1_Click() Dim i As Integer,a a As Integer Do While i＜20 Do While True If i Mod 10 = 0 Then Exit Do Else i=i-1 End If Loop i=i+11 a=a+1 Loop Print a End Sub
单选题要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为( )。
单选题设菜单中有一个菜单项Open。若要为该菜单命令设置访问键，即按下Alt及字母O时，能够执行Open命令，则在菜单编辑器中设置Open命令的方式是______。 A) 把Caption属性设置为＆pen B) 把Caption属性设置为O＆pen C) 把Name属性设置为＆Open D) 把Name属性设置为O＆Open
单选题以下程序段的输出结果为（ ）
x=1
y=4
Do Until y＞4
x=x*y
y=y+1
Loop
Print x
单选题设窗体上有一个Text1文本框和一个HScroll1水平滚动条，并有下面的事件过程：
Private Sub HScroll1_Change()
Text1=HScroll1
End Sub
在程序运行时，当把滚动框移动到最左边时，文本框中显示的是100；当把滚动框移动到最右边时，文本框中显示的是1。根据这些信息，下面的判断中错误的是
单选题窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为“计算”的命令按钮Command1，并编写了以下下程序： Private Sub Command1_Click() End Sub Pablic Sub calc(x As Integer ，y As Integer) Text1．Text=x*y End Sub 运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是
单选题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim m As Integer, n As Integer, p As Integer m=3: n=5: p=0 Call Y(m, n, p) Print Str(p) End Sub Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer) k=i+j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )
单选题在窗体上画一个名称为Text1的文本框，并编写如下程序：Option Base 1Private Sub
Form_Click() Dim arr Dim Start As Integer, Finish As Integer Dim
Sum As
Integer arr=Array(12,4,8,16) Start=LBound(arr) Finish=UBound(arr) Sum=0 For
i=Start To Finish Sum=Sum+arr(i) Next i c=Sum /
Finish Text1.Text=cEnd Sub运行程序，单击窗体，则在文本框中显示的是______。
A.40
B.10
C.12
D.16
单选题在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任意复选框，则把所有选中的复选框后面的文字罗列在文本框中(见下图)。下面能实现此功能的事件过程是______。A)PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheckl(k).Value=1ThenText1.Text=Text1.Text＆Check1(k).Caption＆""'双引号中是空格EndIfNextkEndSubB)PrivateSubCheck1_Click(IndexAsInteger)Fork=0To3IfCheckl(k).Value=1ThenText1.Text=Text1.Text＆Checkl(k)，Caption＆""'双引号中是空格EndIfNextkEndSubC)PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheck1(Index).Value=1ThenText1.Text1=Text1.Text＆Check1(Index).Caption＆""'双引号中是空格EndIfNextkEndSubD)PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheck1(k).Value=1ThenText1.Text=Text1.Text＆Check1(k).Caption＆""'双引号中是空格ExitForEndIfNextkEndSub
单选题下列不属于结构化分析的常用工具的是______。
A.数据流图
B.流程图
C.数据字典
D.判定树和判定表
单选题执行语句Dim X，Y As Integer后，( )。
单选题下列程序段的执行结果为 m=1 n=1 Select Case m Case 1 Select Case n Case 0 Print" * * 0 * *" Case 1 Print" * *.1. * *" End Select Case 2 Print"* *,2 * *," End Select
单选题以下合法的VB变量名是
问答题在考生文件夹下有一个工程文件sjt5．vbp，窗口有2个名称分别为Command1和Command2、标题分别为“读数据”和“排序”的命令按钮，有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”；再画2个名称分别为Text1和Text2、初始内容都为空的文本框，并且可多行显示，有垂直滚动条，如图3—55所示。程序功能如下：1)单击“读数据”按钮，则把考生文件夹下in5．dat文件中的100个正整数读入数组A，并将它们显示在Text1文本框中。2)单击“排序”按钮，则首先将这100个数中的所有完全平方数放入数组B中，并将它们按降序排列显示在Text2文本框中。提示：一个整数若是另一个整数的平方，那么它就是完全平方数。如144＝122，所以144就是一个完全平方数。要求：去掉注释符，把?改为正确内容，并添加代码使得“排序”命令按钮的Click事件过程可以实现上述功能。提示：Sort过程可以把求出的完全平方数进行排序，可以直接调用。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“排序”，且须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
问答题(1)在考生文件夹下有一个工程文件sjt3．vbp，其功能是：①单击“读数据”按钮，则将考生文件夹下in3．dat文件中的100个正整数读入数组a中。②单击“计算”按钮，则找出这100个正整数中的所有完全平方数(一个整数若是另一个整数的平方，那么它就是完全平方数。如：36=62，所以36就是一个完全平方数)，并计算这些完全平方数的平均值，最后将计算所得平均值截尾取整后在文本框Text1中显示。在给出的窗体文件中已经有了全部控件(如图所示)，但程序不完整。要求完善程序使其实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序。在结束程序运行之前，必须进行“计算”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，其窗体上有一个计时器和两个命令按钮。计时器Timer1的初始状态为不可用；2个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为Label1，且能根据标题内容自动调整大小的标签，其标题为“VisualBasic程序设计”，标题字体为黑体小四号字，如图所示，程序功能如下：①单击标题为“演示”的命令按钮时，则该按钮的标题自动变换为“暂停”，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入。②单击标题为“暂停”的命令按钮时，则该按钮的标题自动变换为“演示”，并暂停标签的滚动。③单击“退出”按钮，则结束程序运行。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。
问答题在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。要求程序运行后，每次移动滚动框时，都执行语句Form1.Print HS1.Value，如图11-14所示(程序中不能使用任何变量)。 注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。
问答题(1)在考生文件夹中有工程文件sjt3．vbp，其中的窗体如图3—162所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中“查找最大值”(或“查找最小值”)单选按钮，再单击“查找”按钮，则找出数组中的最大值(或最小值)，并显示在标签Label2中。请去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。(2)在考生文件夹中有一个工程文件sjt4．vbp。窗体上已有控件，如图3．163所示。请在属性窗口中将List1设置为可以多项选择(允许使用Shift键或Ctrl键进行选择)列表项。要求：双击List1中的某一项时，该项目被添加到List2中，同时在List1中清除该项目。若单击“＞＞”按钮，List1中所有的项目显示在List2中(List2中已有项目不变)，List1中的内容不变。要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
问答题在名称为Form1的窗体上添加一个文本框，其名称为Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：①在文本框中，MultiLine属性设置为True。②ScrollBars属性设置为2；③文本框中显示的初始文本为“程序设计”；④文本框中显示的字体为三号规则黑体；⑤窗体的标题为“设置文本框属性”。完成设置后的窗体如图所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
问答题(1)在名称为Form1的窗体上画一个名称为Framel、标题为“目的地”的框架，在框架中添加三个复选框，名称分别为Checkl、Check2、Check3，其标题分别是“上海”、“广州”、“巴黎”，其中“上海”为选中状态，“广州”为未选状态，“巴黎”为灰色状态，如图3．117所示。请画控件并设置相应属性。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。(2)在名称为Form1的窗体上画一个名称为Picture1的图片框，其宽和高分别为1700、1900。请编写适当事件过程，使得在运行时，单击图片框，则装入考生目录下的图形文件picl．bmp，如图3．118所示。单击窗体则图片框中的图形消失。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。