vb操作题汇编新.docVIP

编程题 1、编写程序，使能打印下面所示的图案。 * ** *** ** * Private Sub Form Click() Dim i As Integer 定义i为整型变量 Dim j As Integer 定义j为整型变量 For i = -3 To 3 Print Tab(Abs(i)+5) For j=1 To (4-Abs(i))-1 Print *; Next j Print 换行 Next i End Sub 2、编写程序，使能打印下面所示的图案。 * *** ***** *** * 程序： Private Sub Form Click() Dim i As Integer 定义i为整型变量 Dim j As Integer 定义j为整型变量 For i = -3 To 3 Print Tab(Abs(i)+5); For j=1 To 2*(3-Abs(i))-1 Print *; Next j Print 换行 Next i End Sub 3、编写程序，使能打印下面所示的图案。 @ @@ @@@ @@@@ @@@@@ @@@@@@ 程序： Private Sub Form_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 4、完善显示按钮的click程序，将代码段中“变量1“、“变量2.“变量3、处换成正确的变量名，使当单击该按钮时，Labell. Label2分别显示30、10。 Private Sub Command_Click( ) x = 10 y = 30 If x y Then t = x x = y y = t End If Label1.Caption = x Label2.Caption = y End Sub 5、完善判断按钮的click程序，使当从Textl中输入一个数时，当该数大于或等于60时在Lebell中显示及格，该数小于60时在Labell中显示不及格。 Private Sub Command1_Click( ) Dim a As Single a = Val(Text1.Text) If a=60 Then Label1.Caption = “及格” End If If a 60 Then Label1.Caption = “不及格” End If End Sub 6、编写程序，求函数y的值(当x=0时,y=3x+1;当x0时，y=4x+1)。 程序： Private Sub Form Click() Dim x As Single 定义x为单精度型变量 Dim y As Single 定义y为单精度型变量 x = Val(InputBox(请输入变量x)) If x =0 Then y = 3 * x + 1 Else y = 4 * x + 1 End If Print y=;y End Sub 7、编写程序，求y=6x-5的值。(x的值在程序中调用InputBox函数，在弹出的标准输入对话框中输入) 程序： Private Sub Form_Click() Dim x As Single Dim y As Single x = Val(InputBox(“请输入变量x”)) y = 6*x – 5 Print “y=”; End Sub 8、一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多吃了一个。这样到第十天时只有一个桃子可以吃了，编程计算猴子最初共有多少个桃子。 程序： Private Sub Form_Click() Dim i As Integer Dim s As Integer s = 1 For i =1 To 9 s = (s + 1)*2 Next Print “s=”;s End Sub 9、完善按钮“计算7!”的Click事件程序，当单击命令按钮时Text1显示