vb练习题(上机)含答案

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

1、第一部分1在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)PrivateSubCmd1_Click()Dima%(19),i%,sum!,aver!RandomizeFori=0To19a(i)=Int(Rnd*1001)sum=sum+a(i)Nextiaver=sum/20PrintaverEndSub2请在名称为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))Else30ch1=ch1+UCase(Mid(ch,i,1))EndIfNextiText1=Text1+vbCrLf

3、Text1=Text1+ch1EndSub3在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。PrivateSubMyCmd1_Click()Dima%(29),i%,max%RandomizeFori=0To29a(i)=Int(Rnd*1001)Nextimax=a(0)Fori=1To29Ifa(i)>maxThenmax=a(i)NextiPrintmaxEndSub4请设计如下图所示窗体界面

4、。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。30PrivateSubCommand1_Click()IfOption1.Value=TrueThenText1.FontName="宋体"ElseText1.FontName="隶书"EndIfIfCheck1.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfIfCheck2.Value=1ThenText1.FontI

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

6、示)。30PrivateSubOpt1_Click()IfOpt1ThenText1.Alignment=0EndSubPrivateSubOpt2_Click()IfOpt2ThenText1.Alignment=2EndSubPrivateSubOpt3_Click()IfOpt3ThenText1.Alignment=1EndSubPrivateSubOpt4_Click()IfOpt4ThenText1.FontName="宋体"EndSubPrivateSubOpt5_Click()IfOpt5ThenText1.FontName="黑体"

7、EndSub6请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。Dimn%30PrivateSubForm_Load()EndSubPrivateSubOption1_Click()Dimi%n=Val(Text1)m=1Fori=1Tonm=m*iNextiText2=mEndSubPrivateSubOption2_Click()Dimi%m=1Fori=1Ton+2m=m*iNextiText2=m

8、EndSub7在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。程序运行时，在第一个文本框输入