假定在窗体是有两个命令按钮Command1和Command2及一个文本框Text1。有如下事件过程代码:
Private Sub command1_click()
Text1.Text = 中国
End Sub
Private Sub command2_click()
Text1.Text = China
End Sub
若首先单击command1,再单击Command2,则在文本框中显示 ( )。
【单选题】
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:
Private Sub Command1_Click()
??? a = InputBox(Enter an integer)
??? b = InputBox(Enter an integer)
??? Text1.Text = b + a
End Sub
程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是______。
【单选题】
在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1),然后编写如下事件过程:
???? Private Sub Command1_Click()
???? ? x=Val(Text1.Text)
???? ? Select Case x
???????? Case 1,3
????????????? y=x*x
???????? Case Is>=10,Is<=-10
????????????? y=x
???????? Case -10 To 10
????????????? y=-x
?End Select
?????? End Sub
程序运行后,在文本框中输入3,然后单击命令按扭,则以下叙述中正确的是______。
【单选题】
窗体上画一个名为Command1的命令按钮,然后编写以下程序:
Private Sub Command1_Click()
Dim m(10) As Integer
For k = 1 To 10
m(k) = 12 - k
Next k
x = 8
Print m(2 + m(x))
End Sub
运行程序,单击命令按钮,在窗体上显示的是 。
【单选题】
设有如下程序:
Option Base 0
Private Sub Form_Click()
??? Dim a
??? Dim i As Integer
??? a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
??? For i = 0 To 3
??????? Print a(5 - i);
??? Next
End Sub
程序运行后,单击窗体,则在窗体上显示的是?
【简答题】
已知函数 。下面是实现计算该函数的程序,请填空完成以下程序。
Private Sub Command1_Click()
Dim k As Integer, i As Integer, s As Long
n = 5 : k = 1
For i = 1 To n
s = s +[填空]
Next i
Print s
End Sub
Function pow(a As Integer, b As Integer) As Long
Dim i As Integer, t As Long
t = 1
For i = 1 To a
[填空]
Next i
pow = t
End Function