问答题

在名称为Form1的窗体上添加一个名称为Shape1的形状控件，要求在属性窗口中将其形状设置为椭圆，其短轴(垂直方向)、长轴(水平方向)的长度分别为800、1600。把窗体的标题改为“Shape控件”，窗体上无最大化、最小化按钮。程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1. vbp，窗体文件名保存为sjt1. frm。

【参考答案】

[解题思路] MaxButton属性：确定标题栏是否显示最大化按钮，MinButton属性：确定标题栏是否显示最小化按钮......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)

<上一题目录下一题>

热门试题

单项选择题

设在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String * 10 TeINum As String * 20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person. txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是( )。

A) Private Sub Command1_Click()
Dim B As Books
Open "Person. txt" For Output As #1
B. Name = InputBox( "输入姓名" )
B. TelNum = InputBox( "输入电话号码" )
Write #1, B. Name, B. TelNum
Close #1
End Sub
B) Private Sub Command1_Click()
Dim B As Books
Open "Person. txt" For Input As #1
B. Name = InputBox( "输入姓名" )
B. TelNum = InputBox( "输入电话号码" )
Print #1, B. Name, B. TelNum
Close #1
End Sub
C) Private Sub Command1_Click()
Dim B As Books
Open "Person. txt" For Output As #1
B. Name = InputBox( "输入姓名" )
B. TelNum = InputBox( "输入电话号码" )
Write #1, B
Close #1
End Sub
D) Private Sub Command1_Click()
Open "Person. txt" For Input As #1
Name = InputBox( "输入姓名" )
TelNum = InputBox( "输入电话号码" )
Print #1, Name, TelNum
Close #1
End Sub

单项选择题

设有语句： Open c: Test. Dat For Output As #1 则以下叙述中错误的是( )。

A) 该语句打开C盘根目录下的一个文件Test. Dat，如果该文件不存在则出错
B) 该语句打开C盘根目录下一个名为Test. Dat的文件，如果该文件不存在则创建该文件
C) 该语句打开文件的文件号为1
D) 执行该语句后，就可以通过蹦Print语句向文件Test. Dat中写入信息

相关试题