题目内容
（请给出正确答案）
[主观题]
（21）在窗体上有一个文本框控件，名称为TextTime,一个计时器控件，名称为Timer1.要求每一秒在文本框
中显示一次当前的时间。
Private Sub TextTime________ TextTime.Text=Time End Sub 在横线上应填入的内容是 A.Enabled B.Visible C.Timer() D.Interval
提问人：网友yangchen4408
发布时间：2022-01-06
题目内容
（请给出正确答案）
如搜索结果不匹配，请 您可能会需要：
安装简答题APP，拍照搜题省时又省心！
更多“（21）在窗体上有一个文本框控件，名称为TextTime,一…”相关的问题
第3题
下列过程的功能是：在对多个文本框进行输入时，对第1个文本框(text1)输入完毕后用回车键使焦点跳到第2个文本框(text2)，而不是Tab键来切换。请完成该程序。
Private Sub Textl_(eyDown(Keycode As Integer，Shift As Integer)
If [14] Then
Text [15]
End If
End Sub
第4题
下列程序段的执行结果为【 】。
Dim A (10,10)
For i = 2 To 4
For j =4 To 5
A(i,j) =i*j
Next
Next
Print A (2,5) +A(3,4) +A(4,5)
第5题
下面运行程序后，单击命令按钮，输出的结果是【 】。
Private Sub Command1_Click()
Dim a%(1 To 4)，b%(3 To 6)，i%，s1，s2
For i=1 To 4
a(i)=i
Next
For i=3 To 6
b(i)=i
Next
s1.= Fun(a)
s2 =Fun(b)
Print "s1 ="; s1; "s2 ="; s2
End Sub
Function Fun(a() As Integer)
Dim t, i%
t=1
For i = LBound(A)To UBound(a)
t=t * a(i)
Next
Fun=t
End Function
第6题
下列程序段的输出结果为______。
Dimy As Integer
Private Sub Commandl_CUck()
DimX As Integer
x=2
TeKt1.Text=SecondFunc(FirStFunC(X)，y)
Text2.Text=FirstFunc(X)
End Sub
PrivateFunctionFirstFunc(XASInteger)As Integer
x=x+y:y=x+y
Firs
第7题
在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：
PriVate Sub Commandl_CUck()
Dimalt(1 To 100)As Integer
Fori=1 To 100
arr(i)=Int(Rnd*1000)
Nexti
Max=arr(1)
Min=arr(1)
Fori=1 To 100
If [12] Then
Max=arr(i)
第9题
以下是一个判断一元二次方程ax2+bx+c=0根的方程的程序，请补充该程序。提示：
&8226;当a＜＞0时有两个根．设delta=b2-4ac，当delta＞0时，有两个不同的实根．当delta=0时，有两个相同的实根。当delta＜0时，有两个不同的虚根。
&8226;当a=0，b＜＞0时，有一个根。
&8226;当a=0、b=0时，方程无意义。
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim sb As Single
Dim xb As Single
Dim re As Single
a = InputBox (“请输入a的值”)
c = InputBox(“请输入c的值”)
if【 】then
delta = b ^2- 4 * a * c
re = -b/(2 * a)
if【 】then
sb = Sqr (delta)/(2 * a)
Print “方程有两个实根”
Elseif delta = 0 then
Print “方程有两个相等实根”
Else
xb = Sqr(- delta)/(2 * a)
Print “方程有两个虚要”
End if
Else
if【 】then
ygz = - b / c
Print “方程仅有一个根”
Else
print “方程无意义”
End if
End if
End Sub
