单选题用来设置文字字体是否斜体的属性是( )。 A) FontUnderline B) FontBold C) FontSlope D) FontItalic
单选题在数据库管理技术发展的三个阶段中,没有专门的软件对数据进行管理的是( )。
单选题下面的数组声明语句中( )是正确的。
单选题在窗体上画一个命令按钮和一个标签,其名称分别为Commandl和Label1,然后编写如下事件过程:
Private Sub Commandl Click() Counter=0 For i=1
To 4 Forj=6 To 1 Step-2
Counter=Counter+1 Next j Next i
Label1.Caption= Str(Counter) End Sub
程序运行后,单击命令按钮,标签中显示的内容是______。
A.11
B.12
C.16
D.20
单选题编写如下程序:
Private Sub Command1_Click()
Dim m As Integer, n As Integer
m=2:n=1
Select Case m
Case 1
Select Case n
Case 1
Print "AAA"
Case 2
Print "BBB"
Case 2
Print "CCC"
End Select
End Sub
程序运行后,单击命令按钮Command1,输出结果为
单选题软件设计中衡量模块独立性的度量标准是______。 A) 抽象和信息隐蔽 B) 局部化和封装化 C) 内聚性和耦合性 D) 激活机制和控制方法
单选题VB集成开发环境有三种工作状态,不属于三种工作状态之一的是________。
单选题在窗体上画一个名为Command1的命令按钮,然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step—1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序,其输出结果是( )。
单选题下列控件中,不响应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,下列说法正确的是( )。