单项选择题

在窗体上画一个命令按钮(名称为Command1),并编写如下代码:
Function Fun1(ByVal a As Integer, b As Integer) As Integer
Dim t As Integer
t=a-b:b=t+a:Fun1=t+b
End Function
Private Sub Command1_Click()
Dim x As Integer
x=10
Print Fun1(Fun1(x, (Funl(x,x-1))),x-1)
End Sub
程序运行后,单击命令按钮,输出结果是

A.10
B.0
C.11
D.21
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序: Private Sub func(L As Label) L.Caption= 1234 End Sub Private Sub Form_Load() Label1.Caption= ABCDE Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2 Caption) Call func(Label1) Label2.Caption=a End Sub 程序运行后,单击命令按钮,则在两个标签中显示的内容分别为
A.ABCD和10
B.1234和100
C.ABCD和100
D.1234和10
单项选择题
在窗体上画两个单选按钮(名称分别为Option1、Option2,标题分别为“宋体”和“黑体”)、一个复选框(名称为Check1,标题为“粗体”)和一个文本框(名称为Text1,Text属性为“改变文字字体”),窗体外观如图1所示。程序运行后,要求“宋体”单选按钮和“粗体”复选框被选中,则以下能够实现上述操作的语句序列是
相关试题
  • 本程序实现文本加密。先给定序列:a1,a2...
  • 窗体如图2所示,其中汽车是名称为Image1...
  • 在当前目录下有一个名为myfile.txt的文本...
  • 软件测试可分为白盒测试和黑盒测试。基本路...
  • 在E-R图中,图形包括矩形框、菱形框、椭圆...