VB程序设计30道编程题.docVIP

1.输入3个数，输出最大的数 Private Sub Command11_Click() Dim max% X1=Val(InputBox(input)) X2=Val(InputBox(input)) x3=Val(InputBox(input)) max=X1 If max=X2 Then max=X2 End If If max=x3 Then max=x3 End If MsgBox(3个数之中的最大数max=max) End Sub Private Sub Command12_Click() 2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 a=Val(InputBox(input)) B=Val(InputBox(input)) c=Val(InputBox(input)) s=B^2-4*a*c If a0 Then If s=0 Then MsgBox(两个相等实根) ElseIf s0 Then MsgBox(两个不相等实根) ElseIf s0 Then MsgBox(两个不相等虚根) End If Else MsgBox(无解) End If End Sub Private Sub Command13_Click() 3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示恭喜！成绩通过！，若小于60，则弹出消息框，显示抱歉！成绩没有通过！ X=Val(InputBox(input)) If X=60 Then MsgBox(恭喜！成绩通过！) Else MsgBox(抱歉！成绩没有通过！) End If End Sub Private Sub Command14_Click() 4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除） yes=Val(InputBox(year)) If yes Mod 4=0 And yes Mod 1000 Or yes Mod 400=0 Then MsgBox(yes是闰年) Else MsgBox(yes不是闰年) End If End Sub Private Sub Command15_Click() 5.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。 score=Val(InputBox(input)) Select Case score Case Is=90 MsgBox(优秀) Case Is=80 MsgBox(良好) Case Is=70 MsgBox(中) Case Is=60 MsgBox(及格) Case Else MsgBox(不及格) End Select End Sub 6.随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。 a=645 n=Len(a) For i=1 To Int(n/2) c=Mid(a,i,1) Mid(a,i,1)=Mid(a,n-i+1,1) Mid(a,n-i+1,1)=c Next i MsgBox(a) End Sub 7.输入两个整数，求它们的最大公约数 m=Val(InputBox(input m值)) n=Val(InputBox(input n值)) If nm Then t=n n=m m=t End If r=m Mod n Do While r0 m=n n=r r=m Mod n Loop MsgBox(最大公约数=n) End Sub 21.随机产生10个[30,100]内的整数，求最小值及所对应的下标。 Dim a(10)As Integer For i=0 To 9 a(i)=Int(Rnd*70+30) Next i min=a(0) Mini=0 For i=1 To 9 If a(i)=min Then min=a(i) Mini=i End If Next i MsgBox(min=min) MsgBox(mini=Mini) End Sub Private Sub Command18_Click() 22.随机生成一个整型的二维数组，范围在[10,20]之间，以下三角形式输出该数组。 Dim a(10,10)As Integer For i=0 To 9 For j=0 To 9 a(i,j)=Int(Rnd*20+10) Next j Next i For i=0 To 9 For j=0 To i Print a(i,j), Next j Print Next i End Sub Private Sub C