单选题在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程: Private Sub TxtA_KeyPress(key Ascii As Integer) End Sub 若焦点位于文本框中,则能够触发KeyPress事件的操作是( )。
单选题在窗体上画一个名称为Command1的命令按钮,然后编写如下代码: Option Base 1 Private Sub Command1 Click() d = 0 :c = 10 x=Array(10,12,21,32,24) For i = 1 To 5 If x(i) > c Then d = d + x(i) c = x(i) Else d = d-c End If Next i Print d End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为 A) 89 B) 99 C) 23 D) 77
单选题语句Print Sgn(-4^5)+Abs(-4^5)+Int(-4^5)的输出结果是______。 A) -120 B) -60 C) 1 D) -1
单选题下列关于顺序文件中使用Put语句、Get语句、Print语句和Write语句的说法中,错误的是____。
单选题假定有如下的Sub过程:Sub Sub1 (x As Single, y As Single) t=x x = t/y y = t Mod yEnd Sub 在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_ Click() Dim a As Single Dim b As Single a = 5 b = 4 Sub1 a, b Print a; b End Sub 程序运行后,单击命令按钮,输出结果为______。
单选题编写如下程序:
Private Sub Command1_Click()
Dim str1 As String, str2 As String
str1=InputBox("输入一个字符串"): subf str1, str2:Print str2
End Sub
Sub subf(s1 As String, s2 As String)
Dim temp As String:Static i As Imeger i=i+1
temp=Mid(s1, i, 1)
If temp<>""Then subf s1.s2
s2=s2&temp
End Sub
程序运行后,单击命令按钮Command1,且输入“abcdef”,则输出结果为
单选题在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() m=1:n=0 Call sub) ((m),n) m=m+2 n=n+m Print m; n End Sub Private Sub Subl(x, y) x=x+2 y=y+x End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是
单选题下面不属于需求分析阶段任务的是( )。 A) 确定软件系统的功能需求 B) 确定软件系统的性能需求 C) 需求规格说明书评审 D) 制定软件集成测试计划
单选题若已把一个命令按钮的Default属性设置为True,则下面可导致按钮的Click事件过程被调用的操作是( )。 A) 用鼠标右键单击此按钮 B) 按键盘上的Esc键 C) 按键盘上的回车键 D) 用鼠标右键双击此按钮
单选题以下关于控件数组的叙述中,错误的是( )。
单选题执行下列语句
strInput=InputBox("请输入字符串","字符串对话框","字符串")
将显示输入对话框。此时如果直接单击“确定”按钮,则变量strInput的内容是
单选题窗体Form1上有一个名称为Command1的命令按钮,以下对应窗体单击事件的事件过程是( )。
单选题以下可以判断是否在文本框(名称为Textl)内按下了回车键的事件过程是
单选题下面正确使用动态数组的是( ) A.Dim arr()As Integer … ReDim arr(3,5) B.Dim arr()As Integer … ReDim arr(50)As String C.Dim arr() … ReDim arr(50)As Integer D.Dim arr(50)As Integer … ReDim arr(20)
单选题设有下面的程序段:x=InputBox("请输入一个整数")ReDim a(x)For k=X To 0 Step-1 a(k)=kNext k一般,在这段程序之前应先进行数组a的定义。下面定义语句中正确的是
单选题如果将文本框的Locked属性设置为True,则以下说法正确的是
单选题算法的有穷性是指( )。
单选题在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,单击命令按钮,输出结果是
单选题随机产生10个100~200之间的数,求它们的最大值程序如下:
Private Sub Command1_Click( )
Max = 100
For i = 1 To 10
x = Int(Rnd * 101 + 100)
Print x;
If x > Max Then 【】
Next i
Print
Print "最大值="; Max
End Sub
在此程序中,其中【】处应该填写的是( )
单选题将E-R图转换到关系模式时,实体与联系都可以表示成( )。
