大学生电脑主页【www. dxsdiannao.com】- 最适合大学生的网址导航！精彩生活从这里开始
End Sub
（20）某人设计了如下程序用来计算并输出7!（7的阶乘） Private Sub Command1_Click()
t=0
For k=7 To 2 Step -1
t=t*k Next Print t End Sub
执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是 A）把t=0改为t=1
B）把For k = 7 To 2 Step -1改为For k =7 To 1 Step -1 C）把For k = 7 To 2 Stip-1改为Fork=1 To 7 D）把Next改为Nexi k
（21）若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是 A）把所有单选按钮的Index属性改为相同值 B）把所有单选按钮的Index 属性改为连续的不同值 C）把所有单选按钮的Caption属性值改为相同
D）把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值。 （22）窗体上有文本框Text1和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在
大学生电脑主页【www. dxsdiannao.com】- 最适合大学生的网址导航！精彩生活从这里开始
大学生电脑主页【www. dxsdiannao.com】- 最适合大学生的网址导航！精彩生活从这里开始
Text1文本框中。下面可实现此功能的事件过程是： 标题 文件 新建 保存 名称 file new save A）Private Sub save_Click() B）Private Sub save_Click()
Text1.Text=file.save.Caption Text1.Text=save.Caption End Sub End Sub
C）Private Sub file_Click() D）Private Sub file_Click()
Text1.Text=file.save.Caption Text1.Text=save.Caption End Sub End Sub
（23）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab
的属性设置为Enabled=True, Interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时间。 Private Sub Timer1_Timer()
Label1.Caption=Time$ End Sub
在程序执行时发现未能实现上述目的，那么，他应做的修改是 A）通过属性窗口把计时器的Interval属性设置为2000 B）通过属性窗口把计时器的Enabled属生设置为False
C)把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Tims$ D)把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time
大学生电脑主页【www. dxsdiannao.com】- 最适合大学生的网址导航！精彩生活从这里开始
大学生电脑主页【www. dxsdiannao.com】- 最适合大学生的网址导航！精彩生活从这里开始
（24）形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是
（25）下面关于文件的叙述中错误的是 A）随机文件中各条记录的长度是相同的]
B）打开随机文件时采用的文件存取方式应该是Random C）向随机文件中写数据应使用语句Print#文件号
D）打开随机文件与打开顺序文件一样，都使用Open语句
（26）设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是 A）Picture1.Picture=”Flie1.jpg
B）Picture1.Picture=LoadPicture(“File1.jpg”) C) LoadPicture(“File1.jpg”) D）Call LoadPicture(“File1.jpg”)
（27）下面程序执行时，在窗体上显示的是 Private Sub Command1_Click()
Dim a(10) For k = 1 To 10
a(k) = 11 – k Next k
Print a(a(3)\\a(7) Mod a(5))
大学生电脑主页【www. dxsdiannao.com】- 最适合大学生的网址导航！精彩生活从这里开始
大学生电脑主页【www. dxsdiannao.com】- 最适合大学生的网址导航！精彩生活从这里开始
End Sub
A）3 B）5 C）7
（28）为达到把a、b中的值交换后输出的目的，某人编程如下： Private Sub Command1_Click()
a% = 10:b% = 20 Call swap(a,b) Print a,b End Sub
Private Sub swap(ByVal a As Integer,ByVal b As Integer)
c= a:a=b:b=c End Sub
在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是
A）调用swap过程的语句错误，应改为Call swap a,b B）输出语句错误，应改为：Print ”a”,”b”
C）过程的形式参数有错，应改为：swap(ByRef a As Integer,ByRef b As Integer) D）swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a （29）有如下函数：
Function fun(a As Integer,n As Integer) As Integer
Dim m As Integer While a >=n
a=a-n
大学生电脑主页【www. dxsdiannao.com】- 最适合大学生的网址导航！精彩生活从这里开始
大学生电脑主页【www. dxsdiannao.com】- 最适合大学生的网址导航！精彩生活从这里开始
m= m+1 Wend fun=m End Function 该函数的返回值是
A）a乘以n的乘积 B）a加n的和
C）a减n的差 D）a除以n的商（不含小数部分） （30）下面程序的输出结果是 Private Sub Command1_Click()
ch$=”ABCDEF” proc ch Print ch End Sub
Private Sub proc(ch As String)
S=””
For k=Len(ch) To 1 Step-1
s=s&Mid(ch,k,1) Next k ch=s End Sub
A）ABCDEF B）FEDCBA C）A D）F
（31）某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：
大学生电脑主页【www. dxsdiannao.com】- 最适合大学生的网址导航！精彩生活从这里开始