单选题下列控件中,不响应Click事件的是
单选题编写如下程序:
Private sub Command1_Click()
m=1:n=0
Do While m<20
n=m+n
m=3*m+1
Loop
Print m,n
End Sub
程序运行后,单击命令按钮Command1,输出结果为______。
单选题软件设计包括软件的结构、数据接口和过程设计,其中软件的过程设计是指
____
。
单选题在窗体上画一个名称为Command1的命令按钮,并编写如下事件过程: Private Sub Command1_Click() x=1 s=0 For i=1 To 5 x=x/i s=s+x Next Print s End Sub 该事件过程的功能是计算( )。
单选题下面能作为软件需求分析工具的是
单选题编写如下程序: Private Sub Commandl—Click() Dim a(10)As String s=“123456” n=Len(s) For k=1 To n a(k)=Mid(s,k,1) Next k For i=1 To n\2 t=a(i) a(i)=a(n一i+1) a(n—i+1)=t Next i For k=1 To 11 Print a(k); Next k End Sub程序运行后,单击命令按钮Command1,输出结果为( )。
单选题在程序代码中将图片文件mypic.jpg装入图片框Pictruel的语句是( )。
单选题某人设计了如下程序用来计算并输出7!(7的阶乘) Private Sub Command1_Click() t=0 For k=7 To 2 Step-1 t=t*k Next Print t End Sub 执行程序时,发现结果是错误的,下面的修改方案中能够得到正确结果的是( ) A.把t=0改为t=1 B.把For k=7 To 2 Step-1改为For k=7 To 1 Step-1 C.把For k=7 To 2 Step-1改为For k=1 To 7 D.把Next改为Next k
单选题函数表达式Sgn(-10)的值是
单选题设在名称为MyForm的窗体上只有1个名称为C1的命令按钮,下面叙述正确的是
单选题窗体上有一个名称为Combo1的组合框。在组合框的文本输入区输入字符串并按回车后,检查该字符串是否在组合框中已存在。若不存在,则将其添加到组合框中。相关的事件过程如下:Private Sub Combo1_KeyPress(KeyAscii As Integer) Dim flag As Boolean If KeyAscii = 13 Then flag = False For i = 0 To Combo1.ListCount - 1 If Combo1.Text = Combo1.List(i) Then flag = True Exit For End If Next i If flag = False Then Combo1.AddItem Combo1.Text End If End IfEnd Sub对于上述事件过程,以下叙述中错误的是
单选题关于语句If x=1 Then y=1,下列说法正确的是( )。
单选题数据库系统的核心是( )。
单选题在利用菜单编辑器设计菜单时,为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键,可以将该菜单项的标题设置为______。
A.退出(X&)
B.退出(&X)
C.退出(X#)
D.退出(#X)
单选题在窗体上有一个名称为List1的列表框和一个名称为Command1的命令按钮,并编写有如下事件过程: Private Sub Form_Load() List1.Addltem"Item1":List1.Addltem "Item2":List1.Addltem”Item3” End Sub Private Sub Command1_Click() List1.List(List1.ListCount)="New Item" End Sub 程序执行时,单击命令按钮,其结果为( )。
单选题在窗体上有一个名称为Command1的命令按钮,并编写有如下事件过程: Private Sub Command1_Click() Move 500,500 End Sub 程序执行时,单击命令按钮,实现的功能是( )。
单选题下列关于栈的叙述中,正确的是
单选题在窗体上面1个名称为Command1的命令按钮,然后编写下列事件过程。
Option Base 1
Private Sub Command1_Click()
Dim a(5,5) As Integer
For i=1 To 5
For j=1 To 5
a(i,j)=(i+j)*5/10
Next j
Next i
s=0
For i=1 To 5
s=s+a(i, i)
Next i
print s
End Sub
程序运行后,单击命令按钮,输出结果是______。
单选题编写如下程序代码: Option Explicit Private Sub Form—Click() Dim x As Variant Dim i As Variant x=Array(50,27,69,80,45) For Each i In x If i Mod 2=0 Then Print i End If Next i End Sub以下叙述中正确的是( )。
单选题窗体的左右两端各有1条直线,名称分别为Line1、Line2;名称为Shapel的圆靠在左边的Line1直线上(见图);另有1个名称为Timer1的计时器控件,其Enabled属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停止移动。为实现上述功能,某人把计时器的Interval属性设置为1000,并编写了如下程序:PrivateSubTimer1_Timer()Fork=Line1.X1ToLine2.X1Step100IfShapel.Left+Shapel.Width<Line2.XIThenShapel.Left=Shapel.Left+100EndIfNextkEndSub运行程序时发现圆立即移动到了右边的直线处,与题目要求的移动方式不符。为得到与题目要求相符的结果,下面修改方案中正确的是______。A.把计时器的Interval属性设置为1B.把Fork=Line1.X1ToLine2.X1Step100各Nextk两行删除C.把Fork=Line1.X1ToLine2.X1Step100改为Fork=Line2.X1ToLine1.X1Step100D.把IfShapel.Left+Shapel.Width<Line2.X1Then改为IfShapel.Left<Line2.X1Then
