在窗体上画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运行程序，单击命令按钮，窗体上显示的内容为（　　）。

试卷相关题目

• 1下列程序代码实现生成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（　　）

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

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

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

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

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

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

  A.List1．List

  B.List1．Listlndex

  C.List1．Text

  D.List1．Index

  开始考试点击查看答案
• 4以下关于KeyPress 事件过程中参数KeyAscii 的叙述正确的是（　　）。

  A.KeyAscii 参数是所按键的ASCII 码

  B.KeyAscii 参数的数据类型为字符串

  C.KeyAscii 参数可以省略

  D.KeyAscii 参数是所按键上标注的字符

  开始考试点击查看答案
• 5在窗体上画一个命令按钮和一个标签，其名称分别为Co mmand1和Labell ，然后编写如下事件过程：Private Sub Co mmand1＿Click（）Counter ＝0For i ＝1To 4For j＝6To 1Step －2Counter ＝Counter ＋1Next jNext iLabel1．Caption ＝Str（Counter）End Sub程序运行后，单击命令按钮，标签中显示的内容是（　　）。

  A.11

  B.12

  C.16

  D.20

  开始考试点击查看答案
• 6最简单的交换排序方法是（　　）。

  A.快速排序

  B.选择排序

  C.堆排序

  D.冒泡排序

  开始考试点击查看答案
• 7窗体上有两个名称分别为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中显示的是（　　）。

  A.A

  B.a

  C.C

  D.c

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

  A.15

  B.16

  C.17

  D.18

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

  A.程序就是软件

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

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

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

  开始考试点击查看答案
• 10窗体上有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

  开始考试点击查看答案