河南省计算机等级考试-编程题1—简单操作.doc

河南省计算机等级考试-编程题1—简单操作一、简单操作1.1新建工程，在窗体Form1上创建两个命令按钮Command1、Command2，一个文本框Text1，并将窗体文件命名为“VB第一题”（5分），要求：(1)修改属性，使两个按钮上的文字分别为“隐藏”和“显示”，文本框中显示“可以隐藏的控件”（5分）2)编写事件过程，运行程序后，单击“隐藏”按钮，文本框不可见，单击“显示”按钮，文本框重新可见（5分）3)编写事件过程，运行程序后，单击窗体，窗体的标题栏上显示“隐藏/显示控件”（5分）解答：（1）修改Command1、Command2的Caption属性分别为“隐藏”和“显示”， 文本框的Text属性为“可以隐藏的控件” Private Sub Command1_Click() Text1.Visible = False End SubPrivate Sub Command2_Click() Text1.Visible = TrueEnd SubPrivate Sub Form_Click() Form1.Caption = "隐藏/显示控件"End Sub 1.2新建工程，在窗体Form1上创建一个命令按钮Command1，一个标签Label1，并将窗体文件命名为“VB第一题”（5分），要求：(1)修改属性，使命令按钮上的文字为“清除”，标签上文字为“这里是一个标签”（5分）。

2)编写事件过程，运行程序后，单击“清除”按钮，清除标签上的文字（5分）3)编写事件过程，运行程序后，每次单击标签，标签向左移动若干位置（5分） Private Sub Command1_Click() Label1.Caption = ""End SubPrivate Sub Label1_Click() Label1.Left = Label1.Left - 100End Sub1.3新建工程，在窗体Form1上创建一个命令按钮Command1，一个标签Label1，并将窗体文件命名为“VB第一题”（5分），要求：(1)修改属性，使命令按钮上的文字为“窗体标题”，标签上文字为“窗体颜色”（5分）2)编写事件过程，运行程序后，单击按钮，窗体的标题栏上显示“我的窗体”（5分）3)编写事件过程，运行程序后，单击标签，窗体的背景色改为蓝色（5分） Private Sub Command1_Click() Form1.Caption = "我的窗体"End SubPrivate Sub Label1_Click() Form1.BackColor = vbBlueEnd Sub1.4新建工程，在窗体Form1上创建一个命令按钮Command1，一个标签Label1，并将窗体文件命名为“VB第一题”（5分），要求：(1)修改属性，使命令按钮上的文字为“显示”，标签上文字为“”（5分）。

2)编写事件过程，运行程序后，单击“显示”按钮，标签上显示“你单击了[显示]按钮”（5分）3)编写事件过程，运行程序后，每次单击窗体，命令按钮向上移动一个按钮位置（5分）Private Sub Command1_Click() Label1.Caption = "你单击了[显示]按钮"End SubPrivate Sub Form_Click() Command1.Top = Command1.Top - Command1.HeightEnd Sub1.5新建工程，在窗体Form1上创建一个命令按钮Command1，一个标签Label1，并将窗体文件命名为“VB第一题”（5分），要求：(1)修改属性，使命令按钮上的文字为“红色”，标签上文字为“这里是一个标签”（5分）2)编写事件过程，运行程序后，单击按钮，窗体的背景色改为红色（5分）3)编写事件过程，运行程序后，单击窗体，标签上显示“你单击了窗体”（5分） Private Sub Command1_Click() Form1.BackColor = vbRedEnd SubPrivate Sub Form_Click() Label1.Caption = "你单击了窗体"End Sub1.6新建工程，在窗体Form1上创建一个命令按钮Command1，一个标签Label1，并将窗体文件命名为“VB第一题”（5分），要求：(1)修改属性，使命令按钮上的文字为“显示”，标签上文字为“”（5分）。

2)编写事件过程，运行程序后，单击“显示”按钮，标签上显示“你单击了[显示]按钮”（5分）3)编写事件过程，运行程序后，每次单击窗体，命令按钮向右移动一个按钮位置（5分） Private Sub Command1_Click() Label1.Caption = "你单击了[显示]按钮"End SubPrivate Sub Form_Click() Command1.Left = Command1.Left+Command1.WidthEnd Sub1.7新建工程，在窗体Form1上创建两个命令按钮Command1、Command2，一个标签Label1，并将窗体文件命名为“VB第一题”（5分），要求：(1)修改属性，使两个命令按钮上的文字分别为“改变字体”和“改变内容”，标签上文字为“提高计算机应用能力”，字体为宋体（5分）2)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的文字字体改为隶书（5分）3)编写事件过程，运行程序后，单击“改变内容”按钮，标签上的文字改为“标签上的内容已经改变”（5分） Private Sub Command1_Click() Label1.FontName = "隶书"End SubPrivate Sub Command2_Click() Label1.Caption = "标签上的内容已改变"End Sub1.8新建工程，在窗体Form1上创建两个命令按钮Command1、Command2，一个标签Label1，并将窗体文件命名为“VB第一题”（5分），要求：(1)修改属性，使两个命令按钮上的文字分别为“改变颜色”和“改变大小”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字（5分）。

2)编写事件过程，运行程序后，单击“改变颜色”按钮，标签的背景色改为绿色（5分）3)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字大小改为30(磅)（5分） Private Sub Command1_Click() Label1.BackColor = vbGreenEnd SubPrivate Sub Command2_Click() Label1.FontSize = 30End Sub1.9新建工程，在窗体Form1上创建两个命令按钮Command1、Command2，一个标签Label1，并将窗体文件命名为“VB第一题”（5分），要求：(1)修改属性，使两个命令按钮上的文字分别为“改变大小”和“改变字体”，标签上文字为“Visual Basic程序设计”，字体为宋体，标签可以自动调整大小以显示所有文字（5分）2)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字大小改为28(磅)（5分）3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的文字字体改为楷体（5分）提示：楷体的字体名称为“楷体_GB2312” 注：将标签的Autosize属性设为True即可自动调整大小以显示所有文字 Private Sub Command1_Click() Label1.FontSize = 28End SubPrivate Sub Command2_Click() Label1.FontName = "楷体_GB2312"End Sub1.10新建工程，在窗体Form1上创建两个命令按钮Command1、Command2，一个标签Label1，并将窗体文件命名为“VB第一题”（5分），要求：(1)修改属性，使两个按钮上的文字分别为“隐藏”和“显示”，标签上文字为“可以隐藏的控件”（5分）。

2)编写事件过程，运行程序后，单击“隐藏”按钮，标签不可见，单击“显示”按钮，标签重新可见（5分）3)编写事件过程，运行程序后，单击窗体，窗体的标题栏上显示“隐藏/显示控件”（5分） Private Sub Command1_Click() Label1.Visible = FalseEnd SubPrivate Sub Command2_Click() Label1.Visible = TrueEnd SubPrivate Sub Form_Click() Form1.Caption = "隐藏/显示控件"End Sub。