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