题目内容
（请给出正确答案）
窗体上有两个按钮：显示(cmdshow)按钮和测试按钮(cmdtest)，显示按钮初始状态不可见，当单击测试按钮，弹出一个消息框，包括“确定”和“取消”按钮，若单击“确定”则显示“显示”按钮，若单击“取消”则关闭窗体。试将程序补充完整。
Private sub cmdtest_click()
answer = msgbox ("显示按钮", vbOkCancel)
If answer = vbOK then
cmdshow. visible = 【 】
Else
docmd. close
End If
End sub
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“窗体上有两个按钮：显示（cmdshow)按钮和测试按钮（cmdtest)，显示按钮初始状态不可见，当单击测试按”相关的问题
Private Sub Disp_Click （）
Me.Hide
Form2. 【10】
End Sub
Private Sub Command1_Click（）
【6】
Form2. 【7】
End Sub
试补充完整。
A．Private Sub Command1_click() Foma2.Show End Sub
B．Private Sub Command1_Click() Form2.Visible End Sub
C．Private Sub Command1_Click() Load Form2 End Sub
D．Private Sub Command1_click() Form.Load EndSub
窗体上有一个命令按钮Command1，编写如下事件过程：
Private Sub Command1_Click()
x = InputBox("x=")
y = InputBox("y=")
Print x + y
End Sub
运行后，单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是()。
A、 444
B、 123321
C、 123+321
D、 出错信息
（9） 在一个窗体上有两个命令按钮，cmdMax和cmdMin。单击cmdMax时，窗体上显示"字体由小变大"，字号每次增加2；单击cmdMin时，窗体上显示"字体由大变小"，字号每次减小2。请填空。
Private Sub Form_Load（）
Form1.Caption="字体变化示范"
cmdMax.Caption="字体变大"
cmdMin.Caption="字体变小"
End Sub
Private Sub cmdMax_Click（）
【9】
Form1.Print "字体由小变大"
End Sub
Private Sub cmdMin_Click（）
【10】
Form1.Print "字体由大变小"
End Sub
在窗体上有两个命令按钮Command1和Commnd2，三个文本框Text1，Text2和Text3，有如下事件过程： Private Sub Comuand1_Click() Text3.Text= Text1.Text+Text2.Text End Sub Private Sub Command2_Click() Text3.Text= Text3.Text+Str(Val(Text1.Text)+Val (Text2.Text)) End Sub程序运行后，在Text1和Text2中分别输入123、456，然后依次单击Command1和Command2，则在Text3中显示的内容依次是______ 。
A．123456 579
B．123456 123456
C．579 579
D．579 123456
窗体上有一个名为List1的列表框，其中已经输入了若干个项目(如图所示)；
.jpg)
还有两个文本框，名称分别为Text1、Text2，一个名称为Command1的命令按钮，并有以下程序： Private Sub Command1_Click() Dim str As String,s As String,k As Integer s=Text1 str="" For k=List1.ListCount-1 To 0 Step-1 IfInStr(List1.List(k),s)＞0 Then str=str&List1.List(k)&" " End If Next k If str="" Then Text2="没有匹配项目" Else Text2=str End If End Sub 程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是______。
A．京
B．北京 南京
C．南京 北京
D．没有匹配的项目
窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是()。 Private Sub Commandl_Click() Picturel.Picture=LoadPicture("c：\picture.jpg") Picmrel.Cls Picturel.Print "picture" End Sub
A．窗体无显示，图片框显示图片和文字picture
B．窗体上出现picture文本，图片框无显示
C．窗体上出现picture文本，图片框显示图片picture.jpg
D．窗体无显示，图片框只显示picture文字
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
