题库
题库
| 单选题 | 设 a=5,b=6,c=7,d=8 ，执行下列语句后， X 的值为 （ ） 。 X=IIf((a>b)And(c>d),10,20) |
查看答案 |
| 单选题 | 从工程管理角度，软件设计一般分为两步完成，它们是 （ ） 。 | 查看答案 |
| 单选题 | 在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序： Dim S1 As String, S2 As String Private Sub Form_Load() Text1. Text=”” Text2. Text=”” End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) S2=s2 & Chr(KeyCode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1= “” S2= “” End Sub 程序运行后，在 Text1 中输入“ abc ”，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为 （ ） 。 |
查看答案 |
| 单选题 | 没有如下的用户定义类型： Type Student number As String name As String age AS Integer End Type 则以下正确引用该类型成员的代码是 （ ） 。 |
查看答案 |
| 单选题 | 以下叙述中正确的是 （ ） 。 | 查看答案 |
| 单选题 | 以下叙述中正确的是 （ ） 。 | 查看答案 |
| 单选题 | 设有语句： Open "d: ＼ Text.txt" For OutputAs#1 ，以下叙述中错误的是（） | 查看答案 |
| 单选题 | 在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) …… End Sub 假定焦点已经位一地文本框中，则能够触发 KeyPress 事件的操作是 |
查看答案 |
| 单选题 | 下列叙述中正确的是 （ ） 。 | 查看答案 |
| 单选题 | 下列选项中不属于软件生命周期开发阶段任务的是 （ ） 。 | 查看答案 |
| 单选题 | 设有如下通用过程： Public Function Fun(xStr As String) Dim tStr As String, srtL As Integer tStr+”” strL=Len(xStr) i=1 Do While i<=strL/2 tStr=tStr &Mid(xStr,i ,1)& Mid (xStr ,strL-i+1,1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为 Textl 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程： Private Sub Command 1_ Click() Dim S1 As String S1=”abcdef” Text1.Text=UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，则 Text1 中显示的是 （ ） 。 |
查看答案 |
| 单选题 | 在窗体上画一个通用对话框，其名称为 CommonDialog1 ，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() CommonDialog1. Filter=”All Files(*.*)|*.*Text Files”&_ “(*.txt)|*.txt| Executable Files(*.exe)|*.exe” CommonDialog1. Filterindex=3 CommonDialog1. Show Open MsgBox CommonDialog1. FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 （ ） 。 |
查看答案 |
| 单选题 | 以下叙述中错误的是（） | 查看答案 |
| 单选题 | 在窗体上画一个命令按钮和两个标签，真名和分别为 Commandl 、 Labell 和 Labe12 ，然后编写如下事件过程： Private Sub Commandl_Chick. a=0 For i=1 To 10 a=a+1 b=0 Forj=1 To 10 a=a+1 b=b+2 Nextj Next i Labell. Caption=Str(a) Labe12.Caption=Str(b) End Sub 程序运行后，单击命令按钮，在标签 Labell 和 Labe12 中显示的内容分别为 （ ） 。 |
查看答案 |
| 单选题 | 在窗体上画一个文本框（其名称为 Textl)和一个标签（其名称为 Labell)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，以下可以实现上述操作的事件过程是 （ ） 。 | 查看答案 |
| 单选题 | 有以下程序： Sub subp(b()As Integer) For i=1To4 b(i)=2-i Nexti End Sub Private Sub Command1_Click() Dim a (1 To 4)As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subpa() For i=1 To4 Print a (i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为 （ ） 。 |
查看答案 |
| 单选题 | 在窗体上画一个名称为 Listl 的列表框，一个名称为 Labell 的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是 （ ） 。 | 查看答案 |
| 单选题 | 在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Commandl_Click() Dim i As Integer, n As Integer For i=0 To 50 i = i+3 n = n+1 If i>10Then Exit For Next Textl.Text=Str(n) End Sub 程序运行后，单击命命令按钮，在文本框中显示的值是 （ ） 。 |
查看答案 |
| 单选题 | 设有如下三个关系表： 下列操作中正确的是 （ ） 。 |
查看答案 |
| 单选题 | 有以下程序： Option Base 1 Dim arr() As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr (i,j)=i*2+j Next j Next i ReDim Preserve arr(1,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2);arr(3,4) End Sub 程序运行后，单击窗体，输出结果为 （ ） 。 |
查看答案 |