假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2 组成。Model1代码如下：Public X As IntegerPublic Y As IntegerSub S1（　　）x=1S2End SubSub S2（　　）y=10Form1．ShowEnd SubModel2的代码如下：Sub Main（　　）S1End Sub其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是（　　）。

试卷相关题目

• 1软件生命周期是指（　　）。

  A.软件产品从提出、实现、使用维护到停止使用退役的过程

  B.软件从需求分析、设计、实现到测试完成的过程

  C.软件的开发过程

  D.软件的运行维护过程

  开始考试点击查看答案
• 2以下关予多窗体的叙述中，正确的是（　　）。

  A.任何时刻，只有一个当前窗体

  B.向一个工程添加多个窗体，存盘后生成一个窗体文件

  C.打开一个窗体时，其他窗体自动关闭

  D.只有第一个建立的窗体才是启动窗体

  开始考试点击查看答案
• 3假定有下列程序段For i=1 TO 3For j=5 TO 1 Step-1Print i*jNext jNext i则语句Print i*j的执行次数是（　）。

  A.15

  B.16

  C.17

  D.18

  开始考试点击查看答案
• 4在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：Private Sub Command1 Click（　　）Dim aa=Array(1，2，3，4)i=3：j=1Do While>=0s=s+a i)*ji=i-1j=j*1cLoopPrint SEnd Sub运行上面的程序，单击命令按钮，则输出结果是（　　）。

  A.4321

  B.123

  C.234

  D.1234

  开始考试点击查看答案
• 5下列关于文件的叙述中，错误的是（　　）。

  A.使用Append方式打开文件时，文件指针被定位于文件尾

  B.当以Input打开文件时，如果文件不存在，则自动建立一个新文件

  C.顺序文件的各个记录的长度可以不同

  D.随机文件打开后，既可以进行读操作，也可以进行写操作

  开始考试点击查看答案
• 6在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写下列代码：Dim SaveAll As StringPrivate Sub Form Load（　）ShowText1．Text=""Text1．SetFocusEnd SubPrivate Sub Command1 Click（　）Text1．Text=LCase(SaveAll)+SaveAllEnd SubPrivate Sub Form KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后，直接用键盘输入VB，再单击命令按钮，则文本框中显示的内容为（　）。

  A.vbVB

  B.不显示任何信息

  C.VB

  D.出错

  开始考试点击查看答案
• 7在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Coinmand1 Click（　　）Dim a$，b$，c$，k％a="ABCD"b="123456"c=""k=1Do While k<=Len(a)Or k<=Len(b)If k<=Len(a)Thenc=c＆Mid(a，k，1)End IfIf k<=Len(b)Thenc=c＆Mid(a，k，1)End Ifk=k+1LoopPrint cEnd Sub运行程序，单击命令按钮，输出结果是（　　）。

  A.123456ABCD

  B.ABCD123456

  C.D6C584A321

  D.A1B2C3D456

  开始考试点击查看答案
• 8在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：Private Sub Command1Click（　）C=1234c1=Trim(Str(c))For i=1 To 4PrintNextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示下列内容：1121231234则在横线处应填入的内容为（　）。

  A.Right(c1，i)

  B.Left(c1，i)

  C.Mid(c1，i，1)

  D.Mid(c1，i，i)

  开始考试点击查看答案
• 9请阅读程序．0ption Base 1Private Sub Fo,m Click（　　）Dim Arr(4，4)As IntegerFor i=1 To 4For j=1 To 4Arr(i，j)=(i=1)*2+jNext jNext iFor i=3 To 4For j=3 To 4Print Arr(j，i)；Next jPrintNext iEnd Sub程序运行后，单。旨窗体，则输出结果是（　　）。

  A.5 76 8

  B.6 87 9

  C.7 98 10

  D.8 108 11

  开始考试点击查看答案
• 10在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程Option Base 1Private Sub，Command1 Click（　　）Dim a(5，5)ks IntegerFor i=1 To jFor j=1 To 5a(i，j)=(i+j)*5＼10Next jNext iS=0For i=1 To js=s+a(i，i)Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是（　　）。

  A.15

  B.13

  C.11

  D.9

  开始考试点击查看答案