VB练习题上机含答案Word下载.docx
《VB练习题上机含答案Word下载.docx》由会员分享,可在线阅读,更多相关《VB练习题上机含答案Word下载.docx(36页珍藏版)》请在冰豆网上搜索。
![VB练习题上机含答案Word下载.docx](https://file1.bdocx.com/fileroot1/2022-10/13/6164203b-9b07-4d50-953b-f778ae191434/6164203b-9b07-4d50-953b-f778ae1914341.gif)
在程序运行时,单击"
转换"
按钮,可以把Text1中的小写字母转
换为大写,把大写字母转换为小写,其他字符不变。
PrivateSubC1_Click()
DimchAsString,ch1AsString,i%ch=Text1
Fori=1ToLen(ch)
IfAsc(Mid(ch,i,1))>
=65AndAsc(Mid(ch,i,1))<
=90Thench1=ch1+LCase(Mid(ch,i,1))
Else
chi=chi+UCase(Mid(ch,i,1))
EndIf
Textl=Textl+vbCrLf
Textl=Text1+ch1
3在窗体上添加一个命令按钮(名称为MyCmd1,标题为"
输出最大值”)。
程序运行后,单击
命令按钮完成以下工作:
1随机产生30个0〜1000的整数,将其放入一个一维数组中
2求出其中的最大值,并显示在窗体上。
PrivateSubMyCmd1_Click()
Dima%(29),i%,max%
Fori=0To29
max=a(0)
Fori=1To29
Ifa(i)>
maxThenmax=a(i)
Printmax
4请设计如下图所示窗体界面。
程序运行时,在选中一个或两个复选框和一个单选按钮时,
单击命令按钮,则对文本框中的文本内容做相应的设置。
请编写适当的事件过程,完成上述
功能。
PrivateSubCommand1_Click()
IfOptionl.Value=TrueThen
Textl.FontName="
宋体”
Text1.FontName="
隶书”
IfCheck1.Value=1Then
Text1.FontUnderline=True
Text1.FontUnderline=False
IfCheck2.Value=1Then
Text1.FontItalic=True
Text1.FontItalic=False
5在名称为Form1的窗体上添加一个名称为Text1的文本框;
添加两个标题分别为”对齐方式
、”字体"
,名称分别为Fm1、Fm2的框架;
在Fm1框架中添加三个单选按钮,标题分别为左对齐”、”居中”、"
右对齐”,名称分别为Opt1、Opt2、Opt3;
在Fm2框架中添加两个单选按钮,标题分别为”宋体"
、”黑体”,名称分别为Opt4、Opt5。
要求:
编写五个单选按钮的Click事件过程,使程序运行时,单击这些单选按钮,可以
对文本框中的内容实现相应的操作(如图所示)。
PrivateSubOpt1_Click()
IfOpt1ThenTextl.Alignment=0
PrivateSubOpt2_Click()
IfOpt2ThenText1.Alignment=2
PrivateSubOpt3_Click()
IfOpt3ThenText1.Alignment=1
PrivateSubOpt4_Click()
IfOpt4ThenText1.FontName="
宋体"
PrivateSubOpt5_Click()
IfOpt5ThenText1.FontName="
黑体"
6请设计如下图所示窗体界面。
运行程序时,先向左侧文本框中输入一个不超过10的正整数,
然后选择"
N的阶乘"
或"
(N+2)的阶乘"
单选钮,即可进行计算,计算结果在右侧文本框中显示。
请编写程序完成上述功能。
Dimn%
PrivateSubForm_Load()
PrivateSubOption1_Click()
Dimi%
n=Val(Text1)
m=1
Fori=1Ton
m=m*i
Text2=m
PrivateSubOption2_Click()
Fori=1Ton+2
7在窗体上添加两个文本框和三个标签,设置它们的属性,达到下图效果。
程序运行时,在
第一个文本框输入一串字符,在第二个文本框中输入一个字符,然后单击”统计"
命令按钮,
统计第二个文本框中字符(大小写被认为是不同的字母)在第一个文本框中出现的次数,统计
结果在标签Label3中显示。
Dimi%,n%
Fori=1ToLen(Text1)
IfMid(Text1,i,1)=Text2Thenn=n+1Nexti
Label3=n
PrivateSubLabel3_Click()
PrivateSubText1_Change()
9请设计如下图所示界面(文本框名称为:
Txt1,按钮名称为:
Cmdl)。
程序运行时在文本框中输入字符串,点击命令按钮,判断文本框中的字符串是否是回文,将判断结果显示在窗体
上。
所谓回文是指字符串正序和逆序的结果相同,如“aBCCBa是回文,“aBCcBa'
不是回
文。
DimchAsString
Fori=Len(Txt1)To1Step-1ch=ch+Mid(Txt1,i,1)
IfTxt1=chThen
是回文"
不是回文"
PrintTxt1+"
10编程实现求Sum
1
11
—
(n为小于等于
20的整数)。
1!
2!
3!
n!
程序运行界面如下图所示。
程序运行时,在文本框中输入
n的值,点击“计算”
命令按钮,
将计算结果显示在标签上。
Dimi%,mAsLong,sumAsDoublen=Val(Text1)
sum=sum+1/m
Label2="
sum="
&
sum
第二部分
1已知在同一个笼子里有总数M只鸡和兔,鸡和兔的总脚数为N只,编程求出鸡和兔各有多少只。
程序运行后,在两个文本框中分别输入M和N的值,单击计算”命令按钮,在
两个标签框中分别输出鸡和兔的数量。
程序运行界面如下图。
提示:
NA2XM的偶数。
m=Val(Text1)
n=Val(Text2)
IfnMod2<
>
0Then
MsgBox("
脚数必须为偶数"
)
Text2="
Text2.SetFocus
y=n/2-m
Ify<
脚数必须>
=只数的2倍,请重新输入"
x=m-y
Label3=x
Label4=y
2若一个3位正整数中各位数字的立方和等于该数字本身,则该数称之为水仙花数”。
例如
153是水仙花数,因为153=1*1*1+5*5*5+3*3*3。
编程求出100〜999之间所有的水仙花数”。
程序运行后,单击查找”按钮,在窗体上显示找到的水仙花数”。
程序运行界面如下图。
Print"
水仙花数:
”;
Fori=100To999
X1=iMod10'
分离出个位数
X2=(iMod100)\10'
分离出十位数
x3=i\100'
分离出百位数
Ifi=X1A3+X2A3+x3A3ThenPrinti;
3编写程序,要求程序运行后,单击“开始”按钮,随机产生20个学生的成绩(0〜100的整
数),并在左边图片框中输出(一行5个成绩),并在右边图片框中输出平均分和及格的人数,程序运行界面如下图。
Dima(1To20)AsInteger,i%,n%
Picture1.Cls
Picture2.Cls
Fori=1To20
a(i)=Int(Rnd*101)
Picturel.Printa(i);
IfiMod5=0ThenPicturel.Print
=60Thenn=n+1
Sum=Sum+a(i)
Picture2.Print"
平均分:
;
Sum/20
Picture2.Print;
及格人数:
n
PrivateSubPicture2_Click()
4编写程序实现:
程序运行时,单击窗体则显示如下图所示的图案。
「;
*FqexI
叵|
扌****:
♦:
車
PrivateSubForm_Click()
Fori=1To5
PrintTab(10-i);
String(2*i-1