查看试题

设a=5,b=4,c=3,d=2，下列表达式的值是　3>2*b Or a=c And b<>c Or c>d( )

A) 1 B) True C) False D) 2

查看试题

查看试题

在窗体上画一个名称为Text1的文本框，并编写如下程序：
Private Sub Form_Load()
Show
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "程序设计"
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print "Visual Basic";
End Sub
程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是( )
A）Visual Basic B）程序设计
C）A程序设计 D）Visual Basic程序设计

查看试题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For n = 1 To 20
If n Mod 3 <> 0 Then m = m + n \ 3
Next n
Print n
End Sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是( )
A）15 B）18 C）21 D）24

查看试题

在窗体上画两个滚动条，名称分别为Hscroll1 、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4~ Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3 显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是( )

A）Private Sub Command1_Click()
Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption))
End Sub
B）Private Sub Command1_Click()
Label3.Caption = HScroll1.Value * HScroll2.Value
End Sub
C）Private Sub Command1_Click()
Label3.Caption = HScroll1 * HScroll2
End Sub
D）Private Sub Command1_Click()
Label3.Caption = HScroll1. Text * HScroll2.Text
End Sub

查看试题

查看试题

查看试题

设有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 20:y = 2:f = x * y
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Static x As Integer
x = 10 :y=5:y = f(x):Print x; y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )
A）10 5 B）20 5 C）20 40 D）10 40

查看试题

查看试题