在Form1上画1个命令按钮(C1),标题为`“等级考试”;再画1个文本框

基础题(1)【操作步骤】

步骤1：打开VB开发环境，新建一个窗体。

步骤2：在窗体中添加一个命令按钮，在属性窗口中设置其名称为C1，设置其Caption属性为"等级考试"。

步骤3：再在窗体中添加一个文本框，在属性窗口中设置其名称为T1。

步骤4：打开代码窗口，编写代码如下：

Private Sub T1_Change()

C1.Visible = False

T1.Text = C1.Caption

End Sub

步骤5：运行程序，然后将文件保存至考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。

基础题(2)【操作步骤】

步骤1：打开VB开发环境，新建一个窗体，并在属性窗口中将窗体的Caption属性设置为"菜单演示"。

步骤2：在窗体中添加一个标签Lable1，设置其Caption属性为空，设置其BorderStyle属性为1。

步骤3：在窗体中右击鼠标，打开"菜单编辑器"建立一个菜单，菜单项的属性设置如表2.370所示。

表3.270

步骤4：打开代码窗口，编写代码如下：

Private Sub Clock_Click()

Label1.Caption = Time()

End Sub

Private Sub Title_Click()

Label1.Caption = Form1.Caption

End Sub

步骤5：运行程序，然后将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。

简答题(1)【操作步骤】

步骤1：打开本题工程文件。

步骤2：将窗体Form1的Caption属性设置为"二分法查找"。

步骤3：打开代码编辑窗口，去掉程序中的注释,将问号改为正确的内容。

参考答案

Do

m = (low + high) \ 2

Select Case a(m)

Case Is = x

flag = 1

Exit Do

Case Is > x

high = m

Case Else

low = m

End Select

Loop Until low = high

If flag = 1 Then

Text2.Text = "查找成功，该数的位置为" + Str(m) + "！"

Else

Text2.Text = "查找失败，该数不存在！"

End If

步骤4：调试并运行程序，关闭程序后按题目要求存盘。

简答题(2)【操作步骤】

步骤1：打开本题工程文件。

步骤2：打开代码编辑窗口，去掉程序中的注释,将问号改为正确的内容。

参考答案

Dim Flag As Boolean

Private Sub Form_Load()

DrawWidth = 2

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then

Flag = True

End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Flag Then

Me.Circle (X, Y), 300

End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then

Flag = False

End If

End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。 综合题步骤1：打开本题工程文件。

步骤2：打开代码编辑窗口，去掉程序中的注释,将问号改为正确的内容。

参考答案 Private Function f(m As Integer) As Long

s = 1

For i = 1 To m

s = s * m

Next

f = s

End Function

步骤3：在代码编辑窗口中的指定位置编写如下代码。

Private Sub Command1_Click()

'=======考生编写程序开始================

Dim i As Integer

Dim j As Integer

Dim total As Long

i = Text1.Text

For j = 1 To i

total = total + f(j)

Next

Text2.Text = total

'=========考生编写程序结束===============

Open App.Path & "\out5.dat" For Output As #1

Print #1, Text1, Text2

Close #1

End Sub

步骤4：按照题目要求调试和运行程序，然后按照题目要求存盘并关闭程序。

本文来源：https://www.bwwdw.com/article/6jx4.html