单选题以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是{{U}} {{/U}}。
A.KeyAscii参数是所按键的ASCII码
B.KeyAscii参数的数据类型为字符串
C.KeyAscii参数可以省略
D.KeyAscii参数是所按键上标注的字符
单选题表达式2*3^2+4*2/2+3^2的值是
单选题给出下面程序: Private Sub Command1_Click() Dim x,y,z X=False For Each y In 2 If y.Text="Hello" Then x=True Exit For End If Next y End Sub 下面描述正确的是
单选题下列程序运行时输出的结果是______。 Option Base 1 Private Sub Form_Click() Dim x(10) As Integer,y(5) As Integer For i=1 to 10 x(i)=10-1+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End Sub A) 3 7 11 45 19 B) 19 15 11 7 3 C) 13 5 79 D) 不确定的值
单选题以下叙述中正确的是
单选题已知a=6,b=15,c=23,则语句Print Sgn(a+b Mod 6-c\A)&a+b的输出结果为
单选题假定窗体上有一个文本框,名为Txt1,为了使文本框的内容能够操作,并且具有水平和垂直滚动条,正确的属性设置为 ( )
单选题若要使用户不能修改文本框TextBoxl中显示的内容,应设置( )属性。
单选题结构化程序设计的3种基本结构是{{U}} {{/U}}。
A. 过程、子程序和分程序
B. 顺序、选择和重复
C. 递归、堆栈和队列
D. 调用、返回和转移
单选题“年龄在14~25之间”这种约束是属于数据库当中的______。
单选题窗体上有1个名称为CD1的通用对话框,1个名称为Commandl的命令按钮。命令按钮的单击事件过程如下: Private Sub Commandl_Click() CD1.FileName="" CD1.Filter="AllFiles|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt" CD1.FilterIndex=2 CD1.Action=1 End Sub 关于以上代码,错误的叙述是( )。
单选题下列关于栈的叙述正确的是( )。
单选题假定有如下情况语句:Select Case X能表示|X|>5的Case子句是
单选题要存放如下矩阵的数据,在不浪费存储空间的基础上,能实现声明的语句是 1 2 3 2 4 6 3 6 9
单选题要使得文件列表框File1中只显示文件扩展名为.jpg的图片文件,则下列正确的语句是
单选题设有如下程序代码: Private Sub Commandl_Click() Dim Sname As String,SNo As String,Score As Single Open”D:\Score.txt"_______As#1 SNo=InputBox(”输入学号:”) Sname=InputBox(”输入姓名:”) Score=Val(InputBox(”输入成绩:”)) Print#1,SNo,Sname,Score Close#1 End Sub 以上程序的功能是,向文件D:\Score.txt中写入一名同学的学号、姓名和成绩,当文件不存在时,则新建 该文件;当文件存在时,则覆盖原文件的内容。在横线处应填入的内容是( )。
单选题有如下程序:
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(3,4)
For j=3 To 4
arr(3,j)=j+9
Next j
Print arr(3,2); arr(3,4)
End Sub
程序运行后,单击窗体,输出结果为
单选题有如下程序 Private Sub Command1_Click() a = 100 Do s=s+a a=a+1 Loop While a>120 Print a End Sub 程序运行后,单击命令按钮,其输出的结果为
单选题下列关于滚动条的叙述中,错误的是
单选题某人编写如下函数来判断a是否为素数,若是,则函数返回True;否则返回False。 Function prime(a As Integer)As Boolean Dim k As Integer,isprime As Boolean If a<2 Then isprime=False Else isprime=True k=2 Do While k<a/2 And isprime If a Modk=0 Then isprime=False Else k=k+1 End If Loop End If prime=isprime End Function 在测试时发现有1个非素数也被判断为素数,这个错判的数是( )。
