若要窗体中的一个控件在运行不可见,需要对该控件的（)属性进行设置。

文本控件Richtexbox1。要求程序运行以后，用户可以利用。Drivel选择不同驱动器，同时Dirl中显示当前选中的驱动器的目录，用户利用Dirl选择文件所在的文件夹，在Filel控件中将显示当前选中的文件夹下的文件，用户选中其中某个文件(假设为文本文件)，则该文件的内容显示在控件Richtexboxl中。补充相应的语句，使之完成所述的功能。 Private Sub Dirl_Change() 【 】 End Sub Private Sub Drive1_Change() 【 】 End Sub Private Sub Filel _Click() Dim fname AS String If【 】Then fname=Filel．Path & Filel．FileName Else fname=Filel．Path& "\" & Filel．FileName End If RichTextBox1．LoadFile(fname) End Sub

框控件(注意：拖动时，文本框移动的距离和方向由鼠标指针移动的距离和方向来确定)，按下鼠标右键则可以在文本框中显示出当前文本控件的位置。 Public yx As Integer Public yy As Integer Private Sub Form_ MouseMove(Button AS Integer，Shift As Integer，_ X As Single，Y As Single) If Button=1 Then Text1．Left=【 】 Text1．Top=【 】 End If End Sub Private Sub Form_ MouseDown (Button As Integer，Shift As Integer，_ X As Single，Y As Single) If【 】Then yx=Text1．Left-X yy=Text1．Top-Y End If If Button=2 Then Text1．Text=“X坐标：”+Str(Text1．Left)+“Y坐标：”+Str(Text1．Top) End If End Sub

话框可用于保存文本文件(默认)和可执行文件(．exe)，然后在文本控件中显示保存的文件名。 Private Sub Command1_Click() CommonDialog1．Filter=【 】 CommonDialog1．FilterIndex=【 】 CommonDialog1．ShowSave Info．Text=【 】 End Sub

s数据库中的其他表。()

数送给整型变量C，所用到的语句是【 】。

A.解决方案资源管理器

B.属性窗口

C.工具箱

D.IDE菜单

A.未绑定型控件可以使用工具箱中的控件来创建，绑定控件只能通过拖曳字段来生成

B.未绑定控件没有“控件来源”属性，而绑定控件具有“控件来源”属性

C.未绑定控件可以放置在窗体任意位置，而绑定控件只能放置在窗体的固定位置

D.未绑定控件和绑定控件都可用于显示、输入和更新数据库中的字段值

在窗体上设置一个命令按扭， 编写的事件过程为： Private Sub Command1_Click() Sum = 0 x =0 Do While x<>-1 x =InputBox$(“请输入一个正整数 x：”) Sum = Sum + x Loop Print x, SumEnd Sub 当程序运行时，单击该命令按扭，在输入对话框中依次输入3、5、7、9、-3和-1，则在窗体上出现的运行结果是：

A、-1 21

B、-1 20

C、-3 9

D、3 -1