[程序填空.docVIP

程序填空 有情提示”” ,都得在VB程序内自己从打最好自己手打别复制 1以下程序段用于输出杨辉三角 Private Sub Form_Click() Const n=10 Dim arr(n,n) As Integer For I=1 To n *******SPACE******* arr(i,1)=1 arr(i-1,j-1)+arr(i-1,j) Print arr(i,j) 2 下面的事件过程判断文本框Text1 中输入的数所在区间,并在文本框 Text2 中输出判断结果 Private Sub Command1_Click() Dim int1 As Integer *******SPACE******* int1=Val(Text1.Text) *******SPACE******* Case 1 to 10 Case Is10 3 以下程序的功能是:生成20个200到300之间的随机整数,输出其中能被5整除的数并求出它们的和 Private Sub Command1_Click() Dim s As Integer *********SPACE************ s=0 *********SPACE************ X=Int(Rnd*100+200) *********SPACE************ If X Mod 5=0 Then 4 下面的程序用于求三个数中最大数 Priate Sub Command1_Click() Dim a,b,c min As Integer a=Val(InputBox”请输入第一个数:”) b=Val(InputBox”请输入第二个数:”) c=Val(InputBox”请输入第三个数:”) *********SPACE************ max=a *********SPACE************ If bmax Then max=b *********SPACE************ If cmax Then max=c 5 在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),然后编写如下几个事件过程:要求:每一秒钟Label1更新显示一次系统时间 Private Sub Form_Load() Timer1.Enabled=False *********SPACE************ Timer1.Interval=1000 *********SPACE************ Timer1.Enabled=True *********SPACE************ Label1.Caption= Now 6 在窗体上建立两个文本框Text1(输入数)及Text2(显示结果),一个命令按钮Command1(“判断”).单击按钮时判断Text1中输入的数值是否是4的倍数. Private Sub Command1_Click() Dim x As Integer *********SPACE************ If IsNumeric(Text1.Text)= Fasle Then *********SPACE************ x=Clnt( Text1.Text) *********SPACE************ If x Mod 4 =0 Then 7 窗体上建立了一个文本框Text1,用于显示结果.单击按钮弹出输入对话框录入0-6之间的数值,判断输入值为星期几 Private Sub Command1_Click() Dim x As Integer *********SPACE************ x=Val(InputBox”请输入星期几(0~6)”) *********SPACE************ Select Case x *********SPACE************ Case Else 8 窗体上建立了一个文本框Text1(“输入口令”)和一个命令按钮Command1(“检查”).判断密码是否正确,并显示相应提示,在加载窗体时设置密码框最大长度为8,密码显示字符为”*” Private Sub Command1_Click() x=Text1.Text *********SPACE************ If x=Then *********SPACE************ Text1.MaxLength = 8 *********SPACE************ Text1.PasswordChar=”*” 1