下面程序: Private Sub Command1_Click() m$="ABC" n$="abc" k$=Lcase$(m$) j$=Ucase$(n$) Print Asc(k$) End Sub 运行后输出结果为()
- A96
- B97
- C65
- D64
下面程序: Private Sub Command1_Click() m$="ABC" n$="abc" k$=Lcase$(m$) j$=Ucase$(n$) Print Asc(k$) End Sub 运行后输出结果为()
1、阅读下列程序: Private Sub Commad1_Click() Di
阅读下列程序: Private Sub Commad1_Click() Dim i As Integer,k As Integer k=2 For i=1 To 3 Print H(k) Next i End Sub Function H(j As Integer...
2、设有如下程序: Option Base 0 Private Sub For
设有如下程序:Option Base 0Private Sub Form_Click()Dim aDim i As Integera = Array(1,2,3,4,5,6,7,8,9)For i = 0 To 3Print a(5 – i);Next End S...
3、单击命令按钮时,下列程序代码的运行结果为 Private Sub Comma
单击命令按钮时,下列程序代码的运行结果为 Private Sub Command1_Click() Print MyFunc(20, 18) End Sub Public Function MyFunc(m As Integer, n As Integer)...
4、某人设计了如下程序用于计算并输出7!(7的阶乘): Private Sub
某人设计了如下程序用于计算并输出7!(7的阶乘): Private Sub Command1_Click t = 0 For k = 7 To 2 Step -1 t = t * k Next Print t End Sub 执行程...
5、设有如下程序: Private Sub Form_Click() A=1 F
设有如下程序: Private Sub Form_Click() A=1 For i=1 To 3 Select Case i Case 1,3 A=A+1 Case 2,4 A=A+2 End Select Next i Print A End Sub 程序运行后,单击窗体,则在窗体上显示的内容是A6B5C4D3
6、有如下VB程序段: Private Sub Command1_Click(
有如下VB程序段:Private Sub Command1_Click()Dim a As Longa=Val(Text1.Text)Print aEnd Sub其中"Private Sub Command1_Click()"的作用是()。A定义一个数据...