VB操作题部分

1

Next i

Print str3

End Sub

VB——4

打开“考生文件夹\8”文件夹中的文件“工程

1.vbp”，进行以下操作后并保存！

填空完成程序，当点击“画图”按钮时，程序能打印出下面所示的图案：

@

@@

@@@

@@@@

@@@@@

@@@@@@

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

For i = 1 To 6

Print Tab(10);

For j = 1 To i

Print “@”;

Next j

Print

Next i

End Sub

VB——5

打开“考生文件夹\7”文件夹中的文件

“hn-01.vbp”，进行以下操作后并保存！

填空完成程序，使程序实现如下功能：

已知三角形的两边分别为15、18，它们的夹角为41度，圆周率取3.14，单击“计算”按钮，在文本框Text1中显示出三角形的面积，操作完成后保存并关闭应用程序。

Private Sub Command1_Click()

a = 15

b = 18s = 0.5 * a * b * sin(41 * 3.14 / 180)

text1.text = s

End Sub

VB——6

打开“考生文件夹\14”文件夹中的文件“工程

1.vbp”，进行以下操作后并保存！

填空完成程序，使程序实现如下功能：制作一个成绩等级程序，要求在文本框Text1中输入成绩，点击“等级”按钮时，显示相应的等级。具体等级划分为：90分以上为“优”，80到89分为“好”，70到79分为“良”，60到69分为“及格”，60分以下为“不及格”。Private Sub Command1_Click()

Dim x As Integer, grade As String

x = text1.text

Select Case x

Case 90 To 100

grade = "优"

Case 80 To 89

grade = "好"

Case 70 To 79

grade = "良"

Case 60 To 69

grade = "及格"

Case Is < 60

grade = “不及格”

Case Else

MsgBox "请重新输入"

End Select

Print "该学生成绩为:" + grade

End Sub

VB——7

打开“考生文件夹\12”文件夹中的文件“工程

1.vbp”，进行以下操作后并保存！

填空完善程序，使程序实现如下功能：在窗体上有Text1、Text2两个文本框，在文本框Text1中输入1到20之间的整数(包括1和20)，然后单击命令按钮

Command1则在Text2中显示50。Private Sub Command1_Click()

n = Text1.text

Select Case n

Case 1 to 20

x = 50 Case 2, 4, 6 x = 20

Case Is < -10 x = 30

Case 15

x = 40

End Select

Text2.Text = x End Sub

VB——9

打开“考生文件夹\11”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！

填空完成程序，使程序实现如下功能：

程序运行后，在文本框Text1中输入“abcd”，单击命令按钮，在标签Label1中显示出“bcd”。

Private Sub Command1_Click()

strtext = InputBox("请输入")

Text1.Text = strtext

End Sub

Private Sub Text1_Change()

Label1.Caption = Right(Trim(Text1.text),3) End Sub

VB——10

打开“考生文件夹\21”文件夹中的文件“工程

1.vbp”，进行以下操作后并保存！

填空完成程序，使程序实现如下功能：输入车程公里数，单击按钮“应收车费”后，在Label1输出车程，在Label2中输出车费。收费标准：车程在3公里以内（包括3公里）的统一收费12元；超过3公里但不超过10公里的（包括10公里），则超过3公里的部分每公里收费2元；如果车程超过10公里，则超过10公里的部分每公里收费3元。

Private Sub Command1_Click()

x = Val(Text1.Text)

If x > 0 And x <= 3 Then y=12

If x > 3 And x < 10 Then y = 12 + (x - 3) * 2

If x > 10 Then y = 26+(x-10)* 3 If x <= 0 Then y = 0

Label1.Caption = x & "公里"

Label2.Caption = y & "元"

End Sub

VB——8

打开“考生文件夹\10”文件夹中的文件“工程

1.vbp”，进行以下操作后并保存！

填空完成程序，使程序实现如下功能：填空完成程序，使程序实现如下功能：

程序运行后，单击“初始值”命令按钮对数组a的各元素赋值；单击“求和”命令按钮，求出数组a的各元素之和，并在Text1中显示出来，最后的结果如下图所示。

Dim a(4, 3) As Integer

Dim i, j As Integer

Private Sub Command1_Click()

For i = 1 To 4

For j = 1 To 3

a(i,j)= i + j

Next j

Next i

End Sub

Private Sub Command2_Click()

For j = 1 To 4

For i = 1 To 3

s = s + a(j,i)

Next i

Next j

Text1.Text = Text1.text

End Sub