题目内容
（请给出正确答案）
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise29.vbp，窗体文件名为execise29.frm。
.jpg)
如搜索结果不匹配，请 联系老师 获取答案
更多“在Form1的窗体上绘制一个文本框，名为Text1；绘制一个…”相关的问题
第3题
别输入12和4，编写如下事件过程：
Private Sub Command1_Click()
A=InputBox("被除数")
B=InputBox("除数")
Print A；"÷"；B；"="；A / B
End Sub
则窗体中显示的内容是______。
第4题
忆知数组A(4，4)，各个元素在运行程序时被赋值并打印，形成四除非方阵。请在【 】和【 】处填处所需的内容，使产生一个转置矩阵(即行列互换)，仍放在数组A中，并打印出来。例如：
1 2 3 4
1 2 3 4
1 2 3 4
l 2 3 4
1 1 1 1
2 2 2 2
3 3 3 3
4 4 4 4
Private Sub Command1_Click()
Dim a(4，4)
For k=1 To 4
For j=1 To 4
a(k，j)=j
Print a(k，j)；
Next
Next
For k=2 To 4
For j=1 To【 】
t=a(j，k)
a(j，k)=【 】
a(k,j)=t
Next
Next
For k=1 To 4
Print a(k，1)；a(k，2)；a(k，3)；a(k，4)
Next
End Sub
第5题
执行下面的程序段，x的值为【 】。
Private Sub Command1_Click()
For i=1 To 9
a=a+i
Next
x=Val(i)
MsgBox x
End Sub
第6题
下面程序运行后，窗体中显示【 】。
Private Sub Command1_Click) ( )
aS ="*" :b$ ="$"
For k = 1 To 3
x$ =Strings (Len(a$) +k,b$ )
Print x $;
Next
End Sub
第8题
在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Cliek()
Dim arr()As Integer
Re Dim arr(3)
For i=0 To 3
arr(i)=i
Next i
x=InputBox("请输入一个数字：")
IfVal(x)＞4 Then
Rc Dim arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【 】。
第9题
请根据以下各题的要求设计Visual Basic应用程序(包括界面和代码)。
1．在窗体(名称为Form1)上画两个命令按钮，其名称分别为C1和C2，标题分别为“命令按钮1”和“命令按钮2”，编写适当的事件过程。程序运行后，“命令按钮2”隐藏，此时如果单击“命令按钮1”，则“命令按钮2”出现，“命令按钮1”隐藏；而如果单击“命令按钮2”，则“命令按钮1”出现，“命令按钮2”隐藏。程序的运行情况如图1—1所示。注意；存盘时，工程文件名为sjt1.vbp．窗体文件名为sjt1.frm。
2．在Form1的窗体上画一个命令按钮，其名称为C1，标题为“显示”；再画一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则在文本框中显示“等级考试”。程序运行情况如图1—2所示。
.jpg)
为了保护您的账号安全，请在“上学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
上学吧
微信搜一搜
上学吧
