VB填空2分析Word文档下载推荐.docx
- 文档编号:5103367
- 上传时间:2023-05-04
- 格式:DOCX
- 页数:47
- 大小:54.11KB
VB填空2分析Word文档下载推荐.docx
《VB填空2分析Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《VB填空2分析Word文档下载推荐.docx(47页珍藏版)》请在冰点文库上搜索。
DimflagAsBoolean
n=InputBox("
N="
):
Fori=1Ton
a(i)=Int(90*Rnd+10)
Printa(i);
Nexti:
x=InputBox("
X="
x
flag=False
Ifa(i)=xThen
flag=True
ExitFor
IfNotflagThen
n=n+1
a(n)=x
Else
找到"
4、*设计一文本框属性设置程序,如图{<
4-1.jpg>
}
*在“系统登录”窗体中,输入正确的用户名和以“@”显示的密码。
若两者输入都正确则显示图片框,并且在图片框中显示“youarewelcome!
!
”;
否则,若密码错误,则清空text2并且光标回到text2中;
其他情况,则清空Text1和Text2。
'
4-1.jpg
PrivateSubForm_Load()
Text1="
"
Text2="
Text2.PasswordChar="
@"
Picture1.visible=False
Picture1.AutoRedraw=True
IfText1="
mary"
AndText2="
moon"
Picture1.Visible=True
Picture1.Print"
Youarewelcome!
!
ElseIfText1="
MsgBox"
密码错,请重新输入!
Text2.setfocus
请重新输入!
(【下载文件“4-1.jpg”】;
)下载方法:
在链接上右击打开弹出菜单,选择“目标另存为”。
5、*参照图{<
13-1.jpg>
},完善下列程序。
*调整窗体宽度:
*点击“窗体变胖”命令按钮,窗体会变成原来二倍宽度,调整命令按钮的位置将其放在窗体的中间,若变胖后宽度超出屏幕宽度则不做变宽操作,在窗体中显示“太胖了,炸啦!
”,同时该命令按钮变灰不可使用。
13-1.jpg
IfForm1.Width*2<
Screen.WidthThen
Form1.Width=Form1.Width*2
Command1.Left=(Form1.Width-Command1.Width)/2
太胖了,炸啦!
Command1.Enabled=False
(【下载文件“13-1.jpg”】;
6、*编写一个显示随机数的程序,如图{<
x_18.jpg>
}所示。
*运行过程:
*1.启动程序时,设置文本框前景为白色,背景为绿色。
*2.点击训练开始按钮之后,每隔一秒产生一个5位数的随机整数显示到上面的标签中。
x_18.jpg
Timer1.Interval=1000
Label1.Forecolor=vbWhite
Label1.BackColor=vbGreen
PrivateSubTimer1_Timer()
Label1=Int(Rnd*90000+10000)
(【下载文件“x_18.jpg”】;
1、*产生50个60~100的随机数,统计其中被6整除余2的个数,并输出总个数。
PrivateSubcommand1_click()
Dimx%,nAsInteger
DimcounterAsInteger
Forn=1To50
x=int(Rnd*41+60)
IfxMod6=2Then
Printx;
counter=counter+1
Nextn
Printcounter
7、*使用双循环实现正三角形输出
*
$$$
*****
$$$$$$$
*********
PrintTab(25-i);
Forj=1To2*i-1
IfiMod2=1ThenPrint"
ElsePrint"
$"
8、*参照图{<
10-1.jpg>
*单击命令按钮“显示(Command1)”在图片框控件中完整显示图片,若单击“隐藏(Command2)”按钮则将图片和“隐藏”按钮都隐藏起来。
10-1.jpg
Command1.Visible=True
Command2.Visible=False
Picture1=("
E:
\pic1.jpg"
Picture1.AutoSize=True
Command2.Visible=flase
PrivateSubCommand2_Click()
Command2.Visible=false
(【下载文件“10-1.jpg”】;
9、*下面是一个校验准考证的程序,如图{<
x_1.jpg>
*点击校验按钮,首先判断准考证位数是否为3位,
*如果不是,使用Msgbox提示“输入必须为3位数”,清空文本框,重新输入。
*如果输入是3位数,如果个位数等于1,使用Msgbox显示“恭喜你,校验通过”,否则使用Msgbox显示“很遗憾,准考证号错误”。
x_1.jpg
PrivateSubCommand1_Click()
IfLen(Text1)<
>
3Then
输入必须为3位数"
Text1.setfocus
If(Text1Mod10)=1Then
恭喜你,校验通过"
Else:
很遗憾,准考证号错误"
endif
(【下载文件“x_1.jpg”】;
在链接上右击打开弹出菜单,选择“目标另存为
10、*利用数组求裴波那契数列1,1,2,3,5,...,并将其累加起来,直至其和首次大于200时为止。
PrivateSubCommand启动_Click()
Dima(20)AsInteger,iAsInteger,sAsInteger
a
(1)=1:
a
(2)=1
Printa
(1);
a
(2);
i=2:
s=2
Do
i=i+1
a(i)=a(i-1)+a(i-2)
s=s+a(i)
LoopUntils>
200
Print:
S="
s
11、*编写一个显示图片的程序,如图{<
x_28.jpg>
*1.单击图片1按钮(Command1),Image1中显示图片信息,
*2.单击隐藏按钮(Command2),图片隐藏,按钮文本变为“显示”;
单击显示按钮(Command2),图片显示,按钮文本变为隐藏。
*3.单击清除按钮(Command3)清除Image1中的图片
x_28.jpg
Image1.Picture=("
F:
\p1.jpg"
)
IfCommand2.Caption="
隐藏"
Then
Image1.Visible=False
Command2.Caption="
显示"
Image1.Visible=True
PrivateSubCommand3_Click()
Image1.Picture=LoadPicture("
(【下载文件“x_28.jpg”】;
12、*求SUM=1×
2×
3+4×
5×
6+7×
8×
9+…28×
29×
30的值。
sum=0
i=2
DoWhilei<
=29
Sum=Sum+(i-1)*i*(i+1)
i=i+3
Loop
总和为:
Sum
13、*使用双循环实现三角形输出
**
***
****
PrintTab(25);
Forj=1Toi
14、*将一维数组a中的数值反序放置。
Dima(10)AsInteger,iAsInteger,tAsInteger
Fori=1To10
a(i)=Int(90*Rnd)+10
t=a(i)
a(i)=a(11-i)
a(11-i)=t
Fori=1To10
15、*设计字号、字体变化程序,如图{<
3-1.jpg>
*单击窗体中命令按钮“字号变大”,标签1中显示文字变大,并且命令按钮变成“字体变化”;
当单击命令按钮“字体变化”,标签1中显示文字字体变成斜体的“楷体GB_2312”,同时命令按钮上文字变成“ok了”。
3-1.jpg
Label1="
大象无形大音希声"
Command1.Caption="
字号变大"
IfCommand1.Caption="
Label1.FontSize=Label1.FontSize*1.2
字体变化"
Label1.FontName="
楷体"
Label1.FontItalic=ture
ok了"
(【下载文件“3-1.jpg”】;
16、*参照图{<
9-1.jpg>
*在文本框Text1中输入小写字符,将其转换大写字符显示在图片框Picture1中。
9-1.jpg
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii>
=Asc("
a"
)andKeyAscii<
z"
)Then
Picture1.printChr(KeyAscii_32);
Picture1.printChr(KeyAscii);
(【下载文件“9-1.jpg”】;
17、*参照图{<
12-1.jpg>
*在窗体的文本框中输入数字,当光标离开文本框的时候判断该数字是否能被3整除,若可以则全选输入的数字并且出现消息框“恭喜”,否则清空文本框并使光标重新回到该文本框中。
12-1.jpg
PrivateSub_LostFocus()
IfVal(Text1)Mod3=0Then
Text1.SetFocus
Text1.selstart=0
Text1.sellength=Len(Text1)
Msgbox"
恭喜!
Else
EndIf
(【下载文件“12-1.jpg”】;
18、*输出Fibonacci数列1,1,2,3,5,8,…的前20项。
Dims%,a%,b%,c%
a=1
b=1
Printa
Printb
Fori=3To20
c=a+b
Printc
a=b
b=c
(6分)
19、*参照图{<
5-2.jpg>
*在窗体的标签1中每隔1秒刷新显示当前系统时间,并且动态改变其前景色和字体大小。
5-2.jpg
Timer1.Interval=1000
DimzAsInteger
Label1=Time()
z=Int(Rnd*5+1)
lablel1.BackColor=Choose(z,vbRed,vbYellow,vbGreen,vbBlue,vbWhite)
Label1.Fontsize=Int(Rnd*21+10)
(【下载文件“5-2.jpg”】;
20、*设计一前景背景色互换程序,如图{<
1-1.jpg>
*单击命令按钮“换”,互换窗体中标签的前景色和背景色。
1-1.jpg
Label1=“大象无形大音希声”
DimtAsVariant
DimiAsInteger
i=MsgBox("
确定换吗?
vbOkCancel)
Ifi=1Then
t=Label1.Forecolor
Label1.ForeColor=Label1.BackColor
Label1.Backcolor=t
(【下载文件“1-1.jpg”】;
21、*求1-2+3-4+5-6+...+99-100的值。
s=0
Fori=1To100
s=s+(-1)^(i-1)*i
Prints
22、*使用双循环实现倒三角形输出
*******
Forj=1To11-2*i
23、*利用随机函数产生20个10~99之间的随机整数存入一维数组A,然后分四行用标准打印格式打印输出,每行五个数。
Dima(20)AsInteger,iAsInteger
Fori=1To20
a(i)=Int(Rnd*90+10)
IfiMod5=0Then
Printa(i)
Printa(i),
24、*编写一个文本框复制的程序,如图{<
x_29.jpg>
有一点问题。
不知道出在哪里。
*1.程序启动时,设置上面文本框的最大长度为10,文本框2不允许用户输入。
*2.在上面文本框(Text1)填入文本,选中其中部分文本
*3.单击清除按钮(Command1),清除两个文本框内容。
*4.单击复制按钮(Command2),将上面文本框(Text1)选中文本复制到下面文本框(Text2)
x_29.jpg
Text1.MaxLength=10
Text2.=True
Text2.Text=Text1.seltext
选中文字的长度为:
Text1.selLength
选中文字的开始为:
Text1.selstart
(【下载文件“x_29.jpg”】;
25、*设计一转换字体程序,如图{<
2-2.jpg>
*单击命令按钮“换字体”,互换标签和文本框中文字的字体。
2-2.jpg
年年岁岁花相似"
岁岁年年人不同"
1)
t=Label1.Fontname
Label1.FontName=Text1.FontName
Text1.FontName=t
(【下载文件“2-2.jpg”】;
26、*参照图{<
6-3.jpg>
*动画显示--验证时无变化。
求解答。
*“娃哈哈”的标签1在窗体1中跳动,同时文字的背景色也发生随机变化。
6-3.jpg
娃哈哈"
Timer1.Interval=1000
PrivateSubTimer1_()
Label1.Backcolor=Choose(z,vbRed,vbYellow,vbGreen,vbBlue,vbWhite)
Label1.moveLabel1.Left+Int(Rnd*1000-500),Label1.Top+Int(Rnd*1000-500)
(【下载文件“6-3.jpg”】;
第26套:
27、*编写一个倒计时程序,如图{<
x_27.jpg>
*当用户点击开始按钮,从文本框中读取初始秒数显示到上面的标签中,
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 填空 分析
![提示](https://static.bingdoc.com/images/bang_tan.gif)