请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
下列程序 Private Sub Form_Click() Dim a a = Array("天天向上", "天津大学", "天上人间", "程序设计") For i = LBound(a) To UBound(a) If Left(a(i), 1) = "天" Then Print a(i); Next i End Sub 运行时输出的结果是()。
：A. 天天向上
B. 天天向上天津大学天上人间
C. 出错信息
D. 天天向上天津大学天上人间程序设计
答案
更多“下列程序 Private Sub Form_Click（) Dim a a = Array（"天天向上", "天津大学”相关的问题
第1题
下列程序运行后，在窗体上打印的结果是【 】。 Private Sub test(a， b，c) a = a + 1： b = b + 2：C = C + 3 End Sub Private Sub Command1 Click() x = 1：v = 2：z = 3 Call test(x，y + 3， (z)) Print "Main:"；x；y；z End Sub
第2题
执行下列程序后立即窗口中的输出结果是______。
Private Sub a2()
Dim i As Integer,j As Integer
For i=1 To 5
For j=1 To i
If i Mod 2=0 Then
Debug.Print"*";
E1se
Debug.Print"#";
End If
Next j
Debug.Print
Next i
End Sub
第3题
第4题
有下列程序，运行后变量x1、y1和z1的结果分别是【 】、【 】和【 】。 Private Sub fun1(s，m，n) s = m + 1 m = n + 2 n = s + 3 End Sub Private Sub form. Click() Dim x1， y1 x1 = 1 ：y1 = 1 ：z1 = 1 Call fun1(x1，y1 + 1，(z1)) Debug．Print x1； y1； z1 End Sub
第5题
第6题
下列程序的功能是求336的个位和十位数的值，填空补充程序。 Private Sub Command1 Click() n=1 For i=1 To 6 n=n*33 n=n Mod 100 Next i m=【 】 n=【 】 Print"十位数是”；n；”个位数是”；m End Sub
第7题
运行下列程序： Dim t As Integer Private Sub Form_Click() t = 2 x=Val(InputBox("输入一个整数5")) Print funl(x); t End Sub Private Function fun1(y) If y＞0 Then fun1 = 1： t=10 Else If y=0 Then fun1 = 0： t=20 Else fun1 = -1： t=30 End If End Function 从键盘为变量x输入数据5，输出的结果是【 】。
第8题
第9题
以下程序的功能是：求x的y次方。根据题意，请完善下列程序。 Private Function funl(x As Double, y As Integer)As Double Dim i As Integer Dim z As Double z=【 】 For i=1 To y z=z*x Next i 【 】 End Function Private Sub Command1_Click() Dim m As Double Dim n As Integer Dim t As Double m=InputBox("输入x数:") n=InputBox("输入次方数:") t=funl(m, n) Print Str(m)+"^"+Str(n)+"=";【 】 End Sub
第10题
以下程序用宋输出20个在开区间(10，87)中的随机整数R，每行输出4个整数。请完善下列程序。 Private Sub Command1_Click() For I = 1 To 10 R =【 】 Print R； If I Mod 4=0 Then Print Next I End Sub
第11题
