VB练习题-第七章选择题.doc_第1页
VB练习题-第七章选择题.doc_第2页
VB练习题-第七章选择题.doc_第3页
VB练习题-第七章选择题.doc_第4页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

（1）设窗体上有一个名为Text1 的文体框和一个名为Command1 的命令按钮，并有以下事件过程： Private Sub Command 1_Click() x=Val(Text1.Text) Select Case x Case Is =20 Print “输入错误” Case Is0 Print 20-x Case Is 10 Print 20 Case Is 10 Then Exit ForNext iText1.Text = Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是 A）2 B）3 C）4 D）5(4)假定有一下程序段Fori=1To3Forj=5To1Step-1Printi*jNextjNexti则语句Print i*j 的执行次数是A)15 B)16 C)17 D)185)在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Command1），然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为A)1和0 B)2和72 C)3和50 D)4和1686)设有以下程序PrivateSubForm_Click()x=50Fori=1To4y=InputBox(请输入一个整数)y=Val(y)IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNextiPrintaEndSub程序运行后，单击窗体，在输入对话框中依次输入15,24,35,46,输出结果为A)100 B)50 C)120 D)70（7）请阅读程序：Private Sub Form_ Click（）m=1For i=4 To 1 Step-1Print Str（m）；m=m1For j=1 To iPrint “*”；Next jPrintNext iEnd Sub程序运行后，单击窗体，则输出结果是
人人文库> 全部分类> 教育资料 > 课设设计

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论