在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1), 然后编写如下事件过程: Private Sub Command1 Click() Text1.Text=InputBox("请输入数据1") TextText=InputBox("请输入数据2) End Sub 程序运行后,如果单击命令按钮,将先后显示两个输入对话框,在两个输入对话框中分别输入123和abc,则两个文本框中显示的内容分别为【 】和【 】。
查看答案
关于个人储蓄存款“查、冻、扣”,下列说法中正确的是()。
A. 对个人储蓄存款,商业银行有权拒绝任何单位或者个人查询、冻结、扣划。
B. 对个人储蓄存款,商业银行有权拒绝任何单位或者个人查询、冻结、扣划,但法律另有规定的除外。
C. 对个人储蓄存款,商业银行有权拒绝任何单位或者个人查询、冻结、扣划,但法律、行政法规另有规定的除外。
D. 对个人储蓄存款,商业银行有权拒绝任何单位或者个人查询、冻结、扣划,但法律、行政法规、规章另有规定的除外。
在窗体上画两个文本框,然后编写程序。程序运行后,如果在第一个文本框中输入A、B、 C、D或a、b、c、d,则在第二个文本框中显示EFDH。请完善下列程序。 Private Sub Form_Load() Show Text1.Text=" " TextText=" " Text1.SetFocus End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) TextText=【 】 End Sub
运行下列程序: 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,输出的结果是【 】。
车封釉后,会看到一些釉的痕迹,须告诉用户这是正常情况,()内不可擦 洗漆面,因为在这段时间内,釉层还未完全凝结,将继续渗透,冲洗将会冲掉未凝结的釉。
A. 2h
B. 4h
C. 8h