在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：O--高校试题库-www.gxtiku.com

您现在的位置：在线题库 >> 计算机类 >> Visual basic 语言程序设计

相关试题查看更多

ID：9102-10781

设有如下通用过程：
Public Sub Fun(a(), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click()
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是( )
A）10 B）15 C）25 D）24

查看解析

ID：9102-10784

在窗体上画一个名称为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

查看解析

ID：9102-10755

表达式16/4-2^5*8/4 mod 5\2的值是

查看解析

ID：9102-10780

设有如下通用过程：
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

查看解析

ID：9102-10783

在窗体上画两个滚动条，名称分别为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

查看解析

相关资料推荐

相关试题查看更多

链接申请