在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim str As String，n As Integerstr=UCase(Chr(KeyAscii))n=Len(str)。Text1．Text=String(n，str)End Sub程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为（　　）。

试卷相关题目

• 1用来设置文字字体是否斜体的属性是（　　）。

  A.FontUnderline

  B.FontBold

  C.FontSlope

  D.FontItalic

  开始考试点击查看答案
• 2若看到程序中确以下事件过程，则可以肯定的是，当程序运行时（　　）。Private Sub Click—MouseDown(Button As Integer，Shift As Integer，X As Single，YAs Single)Print"VB Program"End Sub

  A.用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程

  B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程

  C.用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程

  D.用鼠标左键或右键单击名称为“Click”的命令按钮时，执行此过程

  开始考试点击查看答案
• 3在窗体上画一个命令按钮(名称为Command1)，并编写下列代码：Function Fun1(ByVa1 a As Integer，b As Integer)As IntegerDim t As Integert=a-bb=t+aFun1=t+bEnd FunctionPrivate Sub Command1Click（　）Dim X As Integerx=10Print Fun1(Vun1(X，(Fun1(x，x-1)))，x-1)End Sub程序运行后，单击命令按钮，输出结果是（　）。

  A.10

  B.0C.11D.21

  开始考试点击查看答案
• 4使用驱动器列表框Drive1、目录列表框Dir1、文件列表框File1时，需要设置控件的同步，以下能够正确设置两个控件同步的命令是（　　）。

  A.Dir1．Path=Drive1．Path

  B.File1．Path=Dri1．Path

  C.File1．Path=Drive1．Path

  D.Drive1．Drive=Dri1．Path

  开始考试点击查看答案
• 5设在工程文件中有一个标准模块，其中定义了下列记录类型：Type BooksName As String*10TelNum As String*20End，Type在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1 Click 时，在顺序文件Person．txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是（　）。

  A.Private Sub Command1 Click（　）Dim B AS BooksOpen"Person txt"For Output As#1Name=InputBox(”输入姓名”)relNum=lnputBox(”输入电话号码”)Wlite#1 B Name，B TelNumCh,se#1End Sub

  B.Private Sub Command1 Click（　）Dim B AS BooksOpen"Person txt"For Input As#1>Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Print#1，B．Name，B．TelNamClose#1End Sub

  C.Private Sub Command1 Click（　）Dim BAS BooksOpen"Person txt"For Output As#1Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Write#1，BClose#1End Sub

  D.Private Sub Commandl Click（　）Open"Person txt"For Input As#1Name=lnputBox("输入姓名")TelNum=lnputBox("输入电话号码")Prim#1 Name TelNumClose#1End Sub

  开始考试点击查看答案
• 6设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是（　　）。

  A.Form1 MouseDown

  B.Win MouseDown

  C.Form MouseDown

  D.MouseDown_Form1

  开始考试点击查看答案
• 7对于循环队列，下列叙述中正确的是（　　）。

  A.队头指针是固定不变的

  B.队头指针一定大于队尾指针

  C.队头指针一定小于队尾指针

  D.队头指针可以大于队尾指针，也可以小于队尾指针

  开始考试点击查看答案
• 8下列叙述中错误的是（　）。

  A.软件测试的目的是发现错误并改正错误

  B.对被调试的程序进行“错误定位”是程序调试的必要步骤

  C.程序调试通常也称为Debug

  D.软件测试应严格执行测试计划，排除测试的随意性

  开始考试点击查看答案
• 9在窗体上画一个命令按钮，名称为Command1，然后编写下列代码：Option Base 0Private Sub Command1 Click（　）Dim A1(4)As Integer，A2(4)As IntegerFor k=0 To 2A1(k+1)=InputBox(”请输入一个整数”)A2(3-k)=A1(k+1)Next kPrint A2(k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（　）。

  A.0

  B.1

  C.2

  D.3

  开始考试点击查看答案
• 10下列各控件不包含滚动条的控件是（　　）。

  A.Lis tBox

  B.ComboBox

  C.TextBox

  D.Label

  开始考试点击查看答案