史上最全2级vb答案(2)

2019-04-08 19:43

1) 将语句 'Dim ? 改为

Dim Mat(M, N) As Integer 2) 将语句

'Open App.Path & \ ? As #1 改为

Open App.Path & \3) 将语句 '? 改为

Input #1, Mat%(i, j) 4) 将语句 '? 改为

Mat%(3, j) = t 第十六套

一（1）画一个文本框控件，通过其属性窗口将名称设为Text1。通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“操作”，名称处输入Op，在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“显示”、“退出”，名称处分别输入Dis和Exit。单击“操作”菜单中的“显示”命令（即运行Click事件过程），在该Click事件过程中加入语句：

Private Sub Dis_Click()

Text1.Text = \等级考试\End Sub

单击“操作”菜单中的“退出”命令（即运行Click事件过程），在该Click事件过程中加入语句：

Private Sub Exit_Click() End End Sub

一（2）画一个列表框控件，通过其属性窗口将名称设为L1，向列表框中添加项目（List属性），添加的项目分别为“AAAA”、“BBBB”、“CCCC”、“DDDD”，每个项目为一行。单击列表框某一项（即运行Click事件过程），在该Click事件过程中加入语句： Private Sub L1_Click()

L1.RemoveItem L1.ListIndex End Sub 二（1）需在该窗体上画二个框架控件，通过其属性窗口将名称分别设为F1、F2，标题（Caption属性）分别设为“交通工具”和“到达目标”。在F1框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op1、Op2，标题（Caption属性）分别设为“飞机”和“火车”。在F2框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op3、Op4，标题（Caption属性）分别设为“广州”和“昆明”。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“确定”。

单击“确定”按钮（即运行Click事件过程），在该Click事件过程中加入语句： Private Sub C1_Click() If Op1 And Op3 Then

Text1.Text = \坐飞机去广州\ ElseIf Op1 And Op4 Then

Text1.Text = \坐飞机去昆明\ ElseIf Op2 And Op3 Then

Text1.Text = \坐火车去广州\ ElseIf Op2 And Op4 Then

Text1.Text = \坐火车去昆明\ End If End Sub

二（2）需在该窗体上画三个文本框控件，通过其属性窗口将名称分别设为Text1、Text2、Text3，文本框内容（Text属性）分别设为“等级考试”、“计算机”和空白。画二个单选按钮控件，通过其属性窗口将名称分别设为Op1、Op2，标题（Caption属性）分别为“交换”和“连接”。

单击“交换”单选按钮（即运行Click事件过程），在该Click事件过程中加入语句： Private Sub Op1_Click() a$ = Text1.Text

Text1.Text = Text2.Text Text2.Text = a$ Op1.Visible = False End Sub

单击“连接”单选按钮（即运行Click事件过程），在该Click事件过程中加入语句： Private Sub Op2_Click()

Text3.Text = Text1.Text & Text2.Text End Sub

三画三个命令按钮，通过其属性窗口将名称分别设为C1、C2和C3，标题（Caption属性）分别设为“读入数据”、“计算”和“存盘”。

“读入数据”命令按钮（需编写的Click事件过程），具体语句如下： Private Sub C1_Click() ReadData1 ReadData2 End Sub

“计算”命令按钮（需编写的Click事件过程），具体语句如下： Private Sub C2_Click()

Dim Arr3(20) As Integer Sum = 0 For i = 1 To 20 Arr3(i) = Arr1(i) + Arr2(i)

Sum = Sum + Arr3(i) Next i

Print \ End Sub

“存盘”命令按钮（需编写的Click事件过程）： Private Sub C3_Click()

WriteData \ End Sub

在通用部分，定义求和全局变量 Dim Sum As Integer

第十五套

一（1）画二个文本框控件，通过其属性窗口将名称分别设为T1、T2，Text属性均设为空。为实现T1中输入字符立即显示在T2中的功能（即运行T1_Change事件过程），在该Change事件过程中加入语句： Private Sub T1_Change() T2.Text = T1.Text End Sub

一（2）画一个文本框控件，通过其属性窗口将名称设为Text1。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“移动”。单击“移动”按钮（即运行Click事件过程），在该Click事件过程中加入语句： Private Sub C1_Click() Text1.Left = 0 End Sub

二（1）在“添加”按钮的Private Sub Command1_Click()事件过程中 1) 将语句

'L1.AddItem ? 改为

L1.AddItem Text1

在列表框的Private Sub L1_Click()事件过程中 1) 将语句

'L1.RemoveItem ? 改为

L1.RemoveItem L1.ListIndex

二（2）画一个文本框控件，通过属性窗口将名称设为Text1。画一个文本框控件，通过属性窗口将名称设为C1，标题（Caption属性）设为“确定”。画三个单选按钮控件，通过属性窗口将名称分别设为 Op1、Op2、Op3，标题（Caption属性）分别设为“飞机”、“火车”、“汽车”。

单击“确定”按钮（即运行Click事件过程），在该Click事件过程中加入语句： Private Sub C1_Click() If Op1.Value Then

Text1.Text = \需要1小时\ ElseIf Op2.Value Then

Text1.Text = \需要10小时\ ElseIf Op3.Value Then

Text1.Text = \需要15小时\ End If End Sub

三需在\计算\命令按钮的Click事件过程中加入语句： Private Sub Command2_Click() '考生应完成的程序

Dim s As Long, n As Integer For i = 1 To 100

If isnarc(a(i)) Then s = s + a(i) n = n + 1 End If Next i

Text1.Text = Fix(s / n) End Sub

编写一个通用函数： Function isnarc(p As Integer) x = Fix(p / 100)

y = Fix((p - x * 100) / 10) z = p - x * 100 - y * 10

If p = x ^ 3 + y ^ 3 + z ^ 3 Then isnarc = True Else

isnarc = False End If End Function