程序填空   
有情提示”” ，都得在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 Is>10                           
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 b>max Then max=b
*********SPACE************
If c>max 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=”12345678”Then
*********SPACE************
Text1.MaxLength = 8
*********SPACE************
Text1.PasswordChar=”*”
1 窗体上建立了两个文本框 Text1（输入字符串）及Text2（转换结果），一个命令按钮Command1(“清除”)。录入Text1内容时将，将录入内
容大写字母转为小写，小写转为大写
Private Sub Command1_Click()
Text1.Text=””
Text2.Text=””
*********SPACE************
S= chr (KeyAscii)
Select Case s
*********SPACE************
Case “A”To “Z”
s= LCase(s)
*********SPACE************
s = UCase(s)
Case Else
s = “*”
2 打印出100~999之间的所有水仙花数，如果一个数的百位，十位，个位数的立方和等于这个数本身则这个数位水仙花数。
Private Sub Command1_Click()
Dim i As Integer ,a As Integer, b As Integer, c As Integer
*********SPACE************
For i =100 To 999
*********SPACE************
a = Int(i/100)
b = Int((i-100*a)/10)
*********SPACE************
c = i -100*a – b*10
3 窗体中有两个List列表，及4个按钮。程序功能，单击“产生随机数”按钮，随机产生20个随机数填入List1中“保存”按钮作用是将数组内容写到文件中，“读出”按钮作用是将文件内容读到数组中，“结束”按钮作用是结束程序。
Dim d(1 To 20)As Integer
Private Sub Command1_Click()    “产生随机数”
*********SPACE************
d(i)=Int(1+99*Rnd)
List1.AddItem d(i)
*********SPACE************
Write #1 , d(i)
*********SPACE************
Do While Not EOF(1)
4 求一元二次方程ax2+bx+c=0的根，其中a不等于0
Private Sub Form_Click()
Dim a% b% c% ,d!
Dim x1 x2
textbox控件边框设置Dim  p,q,r
a=InputBox(“请输入a的值”)
b=InputBox(“请输入b的值”)
c=InputBox(“请输入c的值”)
d=b*b-4a*c
p=-b/(2*a)
*********SPACE************
If d>0 Then
R=Sqr(d)/(2*a)
*********SPACE************
End if
Print “x1=”;x1, “x2=”;x2
*********SPACE************
Else
q= Sqr(-d)/(2*a)
5 以下程序段用于实现：输入两个正整数m和n，求其最大公约数和最小公倍数.
Private Sub Form_Click()
Dim a%,b%,num1%,num2%,temp
num1=InputBox(“请输入一个正整数”)
num2=InputBox(“请输入一个正整数”)
*********SPACE************
If num2>num1  Then
Temp=num1:num1=num2:num2=temp
*********SPACE************
Do Until Temp=0
Loop
6 建立下拉式菜单，通过菜单来控制文本框中文字的大小和颜
*********SPACE************
Text1.ForeColor=vbBlue
End Sub
*********SPACE************
End
End Sub
*********SPACE************
Text1.ForeColor=vbGreen
7 建立下拉式菜单，通过菜单来控制文本框中文字的字型，字体大小和字体的颜。其中文件和颜为下拉式菜单，文字的属性用弹出式菜单设置。
*********SPACE************
End
End Sub
*********SPACE************
If Button=2  Then
*********SPACE************
Me.PopupMenu  MnuFont,4Or2
End If
End Sub
8 设计一个调程序
*********SPACE************
Text1.ForeColor =RGB(HsbRed.Value,HsbGreen.Value,HsbBlue.Value)
*********SPACE************
Text1.BackColor=RGB(HsbRed.Value,HsbGreen.Value,HsbBlue.Value)
*********SPACE************
LblRed.Caption=”
绿分量值:”& HsbGreen.Value
End Sub
9 编写一个摄氏温度与华氏温度转换的程序。公式为：C=5/9X（F-32），其中c为摄氏温度，f为华氏温度。
*********SPACE************
f=Val（Text1.Text）
c=5/9*(f-32)
*********SPACE************
Text2=Str(c)
End Sub
*********SPACE************
f=9/5*c+32
Text1.Text=Str(f)
1 修改文本框控件的背景，字体颜和字型。注意：将文本框的MultiLine属性设为TrueScrollBars属性设为2。
*********SPACE************
Text1.BackColor= vbYellow
*********SPACE************
If Check1.Value=1 Then
*********SPACE************
Text1.FontBold=True
2 随机产生一个汽车牌号，它由6个字符组成，其中首字符为大写字母，后面是5个数字。“通过字母判断汽车种类，字母B表示出租车，G表示郊区车，O表示警车，A,C,E,F,H,J,K表示普通车，其它字母组成的车牌号不存在。”（提示：首字符的表示方法a=Chr（Int（Rnd*26+65））。）
*********SPACE************
Select Case a
*********SPACE************
Case “G”
*********SPACE************
Case Else
3 计算1-2+3-4+5-6……的值，由文本框输入项数。提示：将表达式看成求n项累加和，各项正负相同。c表示吗，每项的绝对值，f等于1表示本项为正，-1表示为负，f*c表示本项。循环一次c递增1，f
取相反数。当c为1时s等于前一项的和，c为2时s为前两项的和，……，c为n时s为前n项的和，c为n+1时退出循环。
*********SPACE************
Do While c<=n
*********SPACE************
s =s+f*c
*********SPACE************
f = -f
4 求斐波那契（Fibonaccii）序列的第20个数。
*********SPACE************
f2=1
*********SPACE************
For i=3 To 20
*********SPACE************
f2=f
5 近似公式π/4=（1-1/3+1/5-1/7+1/9-…± 1/n），求π的近似值，直到最后一项的绝对值小于10-4为止。
*********SPACE************
Do Until  Abs(s)<0.00001
*********SPACE************
n=  n+2
*********SPACE************
Label1.Caption=”π==”& 4*pi
6 输出菱形图案，其中n表示菱形上半部分行数，例如n=5时，如图
*
***
*****
*******
*********
*******
*****
***
*
*********SPACE************
For  j=1 To 2*i-1
*********SPACE************
For i=n-1 To 1  Step -1
*********SPACE************
Print”*”
7 试编写程序，利用随机函数产生25个10到99之间的随机整数存放在5X5矩阵中，在窗体上按5行 5列的矩阵形式显示出来，然后交换矩阵第二列和第四列的数据，并在窗体上输出交换后的矩阵。
*********SPACE************
Mat(i,j)=Int(89*Rnd+10)
*********SPACE************
For i=1 To 5
*********SPACE************
Mat(i,2)=Mat(i,4)
8 利用单选按钮数组，
完成文本框的字体设置，字号改变文本框的字号大小。
*********SPACE************
Text1.FontName=”仿宋_GB2312”
*********SPACE************
If Op2(i).Value
*********SPACE************
Text1.Fontsize =Int(Op2(i).Caption)
9 随机生成25个2为正整数，分别赋给一个5X5的数组，出每一行中最大元素。
*********SPACE************
a（i,j）=Int(10+ Rnd *90)
*********SPACE************
Print”第”+“行中的最大元素为：”；Mmax(a,i)
*********SPACE************
If a(i,j)>Mmax Then Mmax=a(i,j)
1 下面事件过程产生10个两位的正的随机整数，并利用冒泡法升序排序，请完善它。
*********SPACE************
For n =1 To 10-M
*********SPACE************
If a(n)> a(n+1) Then
*********SPACE************
next n
2 下列程序代码是实现单击命令按钮Command1时，读入n个数，用比较交换法对这n个数，按从大到小的顺序排序，并输出排序结果。
*********SPACE************
For i =1 To n
*********SPACE************
For j = i+1 To n
*********SPACE************
A(i)=a(j)
3 以下程序代码实现单击命令按钮Command1时生成20个（0,100）之间的随机整数，存于数组中，打印数组中大于50的数，并求出这些数的和。
*********SPACE************
Dim arr(20) As Integer
*********SPACE************
If Arr(I)>50 Then
*********SPACE************
Sum= sum + arr(I)
4 单击窗体，分别输入3个数 a b c ，在窗体上输出3个数的中间数。
*********SPACE************
t=a : a=b : b=t
*********SPACE************
m=a
*********SPACE************
Elself b>c Then
5 单击命令按钮，如果在文本框Text1中输入的数值数据满足除以2余1，除以3余2，除以4余3，则输出yes，否则输出no。再将焦点转移到文本框Text1中并选中所有文本。*********SPACE************
x= Val(Text1.Text)
*********SPACE************
If x Mod 2=1And x Mod 3=2 And x Mod 4=3 Then
*********SPACE************
Text1.SelLength= Len(Text1.Text)
*********SPACE************
6 以下程序在文本框Text1中输入任意字符串，并按相反的次序显示在文本框Text2中。
*********SPACE************
M=Len(Text1.Text)
*********SPACE************
D=D& c
*********SPACE************
Text2.Text=D
7 以下程序的功能是用Array函数建立一个含有8个元素的数组，然后查并输出该数组中的最小值。
*********SPACE************
Min= arr(1)
*********SPACE************
For i = 2 To 8
*********SPACE************
If arr1(i)<Min Then min =arr1(i)
8 Option1(2) Option1(3)，标题分别是“+”“-”“*”“/”。要求：程序运行后在Text1 Text2中输入两个数，按“计算”按钮，结果在Text3中显示出来。
*********SPACE************
y=Val(Text2.Text)
*********SPACE************
Select Case Index1
*********SPACE************
Text3.Text= x/y
9 窗体如图，单击“开始”按钮触发时间控件，每隔3秒，窗体背景颜随
机改变。单击“结束”按钮，程序结束运行。
*********SPACE************
Form1.BackColor =Int(Rnd*256)
*********SPACE************
Timer1.Interval=3000
*********SPACE************
Timer1.Enabled = False
1 下列代码的功能是：在窗体Form1加载时将数据1 2 3 4 5添加单列表框List1中，将列表框List1中选中的数据移到列表框List2中。
*********SPACE************
List1.AddItem
*********SPACE************
If List1.Selected(i)=True
*********SPACE************
List1.RemoveItem
2以下程序段利用随机函数生成15个[10.100)之间的整数，然后用选择法将其从小到大排序。
*********SPACE************
For j= i+1 To n
*********SPACE************
If a(j)<a(t) Then t=j
*********SPACE************
If t<>i Then
3 以下程序代码将任意一组数存入数组，从键盘接收一数据，将其插入数组中，插入的位置也从键盘接收。
*********SPACE************
ReDimA(N)
*********SPACE************
Do While P>N Or P<1
*********SPACE************
For I=N To P+1 Step -1
4 以下程序的功能是产生100个[1,1000]的随机整数，放入数组a（100）中，然后输出其中的最大值，请填空。
*********SPACE************
Max=a(1)
*********SPACE************
If a(i)>Max Then
*********SPACE************
End If
5 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1 Caption属性为“Sum”的标签，一个名称为Command1 标题为“计算”的命令按钮。程序运行后，将把1~100之间的能
被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果。
*********SPACE************
List1.Additem I
*********SPACE************
For i=0 To List1.Listcount-1
*********SPACE************
Sum=Sum+ List1.List(i)
6 以下程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。
*********SPACE************
Do While I<= k And Flag=0
*********SPACE************
If N Mod i=0 Then Flag=1 Else i=i+1
*********SPACE************
If  Flag= 0 Then
7 以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时再文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分）。
*********SPACE************
min= Text1(0)
*********SPACE************
For k= 1 To 6
*********SPACE************
Text2= (sum-max-min)/5
8 求表达式1+（1*2）+（1*2*3）+.....+（1*2*3*...*n）的值。
*********SPACE************
j=1
*********SPACE************
For i = 1 To n
*********SPACE************
j = j*i

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。