vb练习题(上机)

《vb练习题(上机)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第一部分1在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)21PrivateSubCmd1_Click()Dima%(19),i%,sum!,aver!RandomizeFori=0To19a(i)=Int(Rnd*1001)sum=sum+a(i)Nextiaver=sum/20PrintaverEndSub212请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示

2、。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。PrivateSubC1_Click()DimchAsString,ch1AsString,i%ch=Text1Fori=1ToLen(ch)IfAsc(Mid(ch,i,1))>=65AndAsc(Mid(ch,i,1))<=90Thench1=ch1+LCase(Mid(ch,i,1))Elsech1=ch1+UCase(Mid(ch,i,1))EndIfNextiText1=Text1+vbCrLfText1=Text1+ch121EndSub3在窗体上添加一个命令按钮(名称为

3、MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。21PrivateSubMyCmd1_Click()Dima%(29),i%,max%RandomizeFori=0To29a(i)=Int(Rnd*1001)Nextimax=a(0)Fori=1To29Ifa(i)>maxThenmax=a(i)NextiPrintmaxEndSub214请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写

4、适当的事件过程，完成上述功能。21PrivateSubCommand1_Click()IfOption1.Value=TrueThenText1.FontName="宋体"ElseText1.FontName="隶书"EndIfIfCheck1.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfIfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSub215在名称为Form1的窗体上添加一个名称为Text1的

5、文本框；添加两个标题分别为"对齐方式"、"字体"，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为"左对齐"、"居中"、"右对齐"，名称分别为Opt1、Opt2、Opt3；在Fm2框架中添加两个单选按钮，标题分别为"宋体"、"黑体"，名称分别为Opt4、Opt5。要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。21PrivateSubOpt1_Click()IfOpt1ThenText1.Alignment=0EndSubPrivateSubOpt2_Click()IfOpt2ThenTex

6、t1.Alignment=2EndSubPrivateSubOpt3_Click()IfOpt3ThenText1.Alignment=1EndSubPrivateSubOpt4_Click()IfOpt4ThenText1.FontName="宋体"EndSubPrivateSubOpt5_Click()IfOpt5ThenText1.FontName="黑体"EndSub216请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。21Dimn%P

7、rivateSubOption1_Click()Dimi%n=Val(Text1)m=1Fori=1Tonm=m*iNextiText2=mEndSubPrivateSubOption2_Click()21Dimi%m=1Fori=1Ton+2m=m*iNextiText2=mEndSub217在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。程序运行时，在第一个文本框输入一串字符，在第二个文本