窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp 的事件过程如下：Private Sub Text1＿KeyUp（KeyCode As Integer ，shiftAs Integer）Di m CAs stri ngText2．Text ＝Chr（Asc（c）＋2）End Sub当向文本框Text1中输入小写字母a 时，文本框Text2中显示的是（　　）。

试卷相关题目

• 1最简单的交换排序方法是（　　）。

  A.快速排序

  B.选择排序

  C.堆排序

  D.冒泡排序

  开始考试点击查看答案
• 2在窗体上画1个命令按钮，并编写如下事件过程：Private Sub Command1_Click()Dim a(3,3)For m=1 To 3For n=1 To 3If n=m or n=4-m Thena(m,n)=m+nElsea(m,n)=0End IfPrint a(m,n);Next nPrintNext mEnd Sub运行程序，单击命令按钮，窗体上显示的内容为（　　）。

  A.200040006

  B.204040406

  C.230340006

  D.200045056

  开始考试点击查看答案
• 3下列程序代码实现生成20个0~100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段（　　），完成程序。Private Sub Co mmand1Click（　　）Di marr（1To 20）For i ＝1To 20arr（i）＝_________Textl ．Text ＝Textl ．Text ＆arr（i ）＆Chr（13）＆Chr（10）Next iSum＝0For Each XIf X＞50ThenPrint Tab（20）；XSum＝Sum＋XEnd IfNext XPrint Tab（20）；＂Sum＝＂；SumEnd Sub

  A.Int（Rnd＊99＋1）In arr

  B.Int（Rnd）In arr

  C.Int（Rnd＊99＋1）In arr（　　）

  D.Int（Rnd）In arr（　　）

  开始考试点击查看答案
• 4以下关于文件及相关操作的叙述中错误的是（　　）。

  A.以Append 方式打开的文件可以进行读写操作

  B.文件记录的各个字段的数据类型可以不同

  C.随机文件各记录的长度是相同的

  D.随机文件可以通过记录号直接访问文件中的指定记录

  开始考试点击查看答案
• 5设窗体上有一个列表框控件List1，含有若干列表项。下列能表示当前被选中的列表项内容的是（　　）。

  A.List1．List

  B.List1．Listlndex

  C.List1．Text

  D.List1．Index

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

  A.15

  B.16

  C.17

  D.18

  开始考试点击查看答案
• 7下列描述中正确的是（　　）。

  A.程序就是软件

  B.软件开发不受计算机系统的限制

  C.软件既是逻辑实体，又是物理实体

  D.软件是程序、数据与相关文档的集合

  开始考试点击查看答案
• 8窗体上有1个名称为Text1的文本框和1个名称为Co mmand1．的命令按钮。要求程序运行时，单击命令按钮，就可把文本框中的内容写到文件out ．txt 中，每次写入的内容附加到文件原有内容之后。下列能够正确实现以上功能的程序是（　　）。

  A.Private Sub Co mmand1＿Click（）Open ＂out ．txt＂For Input As ＃1Print ＃1，Text1．TextClose ＃1End Sub

  B.Private Sub Co mmand1＿Click（）Open ＂out ．txt＂For Output As ＃1Print ＃1，Text1．TextClose ＃1End Sub

  C.Private Sub Co mmand1＿Click（）Open ＂out ．txt＂For Append As ＃1Print ＃1，Text1．TextClose ＃1End Sub

  D.Private Sub Co mmand1＿Click（）Open ＂out ．txt＂For Rando m As ＃1Print ＃1，Text1．TextClose ＃1End Sub

  开始考试点击查看答案
• 9设已经在"菜单编辑器"中设计了窗体的快捷菜单，其顶级菜单为Bs ，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是（　　）。

  A.Private Sub Form＿MouseDown（Button As Integer ，Shift As Integer ，X As Si ngle ，Y As Si ngle） If Button ＝2Then Popup Menu Bs ，2End Sub

  B.Private Sub Form＿MouseDown（Button As Integer ，ShiftAs Integer ，X As Single ，Y As Single） Popup Menu BsEnd Sub

  C.Private Sub Form＿MouseDown（Button As Integer ，ShiftAs Integer ，X As Single ，Y As Single） Popup Menu Bs ，0End Sub

  D.Private Sub Form＿MouseDown（Button As Integer ，ShiftAs Integer ，X As Single ，Y As Single） If （Button ＝vbLeftButton）Or （Button ＝vbRightButton）Then Popup Menu BsEnd Sub

  开始考试点击查看答案
• 10为了使命令按钮（名称为Co mmand1）右移200，应使用的语句是（　　）。

  A.Co mmand1．Move －200

  B.Co mmand1．Move 200

  C.Co mmand1．Left ＝Co mmand1．Left ＋200

  D.Co mmand1．Left ＝Co mmand1．Left －200

  开始考试点击查看答案