![](https://lstatic.shangxueba.com/jiandati/pc/images/pc_jdt_tittleico.png)
当VB执行下面语句后,A的值为()Private Sub Command1_Click()Dim a As Integera=10If a>0Then a=a+1If a>1Then a=0Print aEnd Sub
A.0
B.1
C.2
D.3
![](https://lstatic.shangxueba.com/jiandati/pc/images/jdt_q_ckda.png)
![](https://lstatic.shangxueba.com/jiandati/pc/images/jdt_panel_vip.png)
![](https://lstatic.shangxueba.com/jiandati/pc/images/jdt_q_wyda.png)
- · 有3位网友选择 B,占比37.5%
- · 有2位网友选择 A,占比25%
- · 有2位网友选择 D,占比25%
- · 有1位网友选择 C,占比12.5%
A.0
B.1
C.2
D.3
当执行以下过程时,在窗体上将显示()。
Private Sub Command1_Click()
Print "VB";
Print "Hello! ";
Print "VB"
End Sub
A、 VBHello!VB
B、 VB
Hello!VB
C、 VB
D、 VB
Hello! VB Hello!
VB
执行如下程序段后,intsum的值为【 】。 Private Sub Command1_Click() sum=0 For i=1 To 18 Step 2 For j=2 To 6 If(i Mod j)<>0 Then sum=sum+j Next Next Print sum End Sub
执行下面的程序段,x的值为 。private Sub Command1_Click()For i=1 To 5 a=a+iNext iX=Val(i)msgBox xEnd SubA.5 B.6 C.7 D.8
执行下面的程序段,x的值为【 】。 Private Sub Command1_Click() For i=1 To 9 a=a + i Next i x=Val(i) MsgBox x End Sub
在窗体上画一个命令按钮,然后编写如下代码: Private Sub Command1_Click() 0pen "d:\vb\test.txt "For Input As #1 Print LOF(1) Close #1 End Sub 假设文件d:\vb\test.txt的内容为I am a student.,那么程序运行后,单击命令按钮,其输出结果为______.
A.13
B.14
C.15
D.16
程序执行结果S的值是【 】。 Private Sub Command1_Click() i=0 Do i=i+1 s=i+s Loop Until i>=4 Print s End Sub
以下程序段中Do...Loop 循环执行的次数为【 】。程序执行完毕后,n的值为【 】。
Private Sub Command1_Click()
n =5
Do
If n Mod 2= 0 Then
n =n \2
Else
n =n* 3 + 1
End If
Loop Until n=1
End Sub
窗体上有一个按钮和一个列表框,执行下列程序后的输出结果为【 】。
Private Sub Command1_Click()
List1.Addltem"China"
List1.Addltem"USA"
List1.Addltem"Japan",1
Print List1.List(2)
End Sub
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!