VB题库—程序填空.doc
- 【下载声明】
1. 本站全部试题类文档,若标题没写含答案,则无答案;标题注明含答案的文档,主观题也可能无答案。请谨慎下单,一旦售出,不予退换。
2. 本站全部PPT文档均不含视频和音频,PPT中出现的音频或视频标识(或文字)仅表示流程,实际无音频或视频文件。请谨慎下单,一旦售出,不予退换。
3. 本页资料《VB题库—程序填空.doc》由用户(刘殿科)主动上传,其收益全归该用户。163文库仅提供信息存储空间,仅对该用户上传内容的表现方式做保护处理,对上传内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知163文库(点击联系客服),我们立即给予删除!
4. 请根据预览情况,自愿下载本文。本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
5. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007及以上版本和PDF阅读器,压缩文件请下载最新的WinRAR软件解压。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 题库 程序 填空
- 资源描述:
-
1、程序填空第1题程序填空(1分)(题号:59)-【程序填空】- 功能:输入一个数,若大于0,则显示+;若小于0, 则显示 -;若等于0,则显示零。-Private Sub Command1_Click( )x = Val(Text1.Text)Select Case x*SPACE* Case is 0 Label1.Caption = + Case Is 0 2). Label1.Caption = - 3). Case 0 或 Case Else 或 Case Is = 0第2题程序填空(1分)(题号:60)-【程序填空】-功能:输入任何一个英文字母x, 若x的值为a,c,d-f ,则显示x
2、的大写字母; 若x的值为m,o,p-z,则显示x的小写字母; 若x的值为其它的值,则显示xa(如输入的X的值是g,则显示ga)。-Private Sub Command1_Click()x = Text1.Text*SPACE* 【?】*SPACE* Case 【?】 Label1.Caption = UCase(x) Case m, o, p To z Label1.Caption = LCase(x) Case Else*SPACE* 【?】 End SelectEnd Sub答案: 1). Select Case x 2). a, c, d To f 3). Label1.Caption
3、 = Trim(x) + a 或 Label1.Caption = x + a第3题程序填空(1分)(题号:36)-【程序填空】-功能:以下程序的功能如(图1)。-Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox(请输入a的值)b = InputBox(请输入b的值)c = InputBox(请输入c的值)d = b * b - 4 * a * cp = -b / (2 * a)If d = 0 Then*SPACE* If 【?】 Then r = Sqr(d) / (2 * a) x1 =
4、 p + r x2 = p - r Else x1 = p x2 = p*SPACE* 【?】 Print x1=; x1, x2=; x2*SPACE*【?】 q = Sqr(-d) / (2 * a) Print x1=; p; +; q; i, x2=; p; -; q; iEnd IfEnd Sub答案: 1). d 0 或 0 = 90 Then Label1.Caption = 优秀*SPACE*ElseIf 【?】Then Label1.Caption = 良好ElseIf x = 60 Then*SPACE* 【?】*SPACE*【?】 Label1.Caption = 不及格
5、End IfEnd Sub答案: 1). x = 75 或 75 = 90 n1 = n1 + 1 Case Is = 80 n2 = n2 + 1 Case Is = 70 n3 = n3 + 1 Case Is = 60 n4 = n4 + 1 Case Else n5 = n5 + 1*SPACE* 【?】score = Val(InputBox(msg, msgtitle)WendPrint n1, n2, n3, n4, n5,totalEnd Sub答案: 1). score =0 And score = 100 或 0=score And score = 100 或 0=scor
6、e 或 score =0 And 100=score 2). score 3). End Select第9题程序填空(1分)(题号:56)-【程序填空】-功能:输入数字1-7,显示其对应是星期几(例:输入 1,显示星期日, 如果输入其它内容,一律显示输入错误)-Private Sub Command1_Click()dim x as integerdim y as stringx=val(text1.text)*SPACE* 【?】 case 1 y=今天是星期日 case 2 y=星期一 case 3 y=星期二 case 4 y= 星期三 case 5 y=星期四 case 6*SPACE
7、* 【?】 case 7 y= 星期六*SPACE* 【?】 y = 输入错误 end selectText2.Text = yEnd Sub答案: 1). select case x 2). y=星期五 3). Case Else第10题程序填空(1分)(题号:41)-【程序填空】-下面过程max()用于求3个数中最大值,利用这个过程求5个数中最大值。-Private Sub Form_Click()Print 5个数34、124、68、73、352的最大值是:max1 = max(34, 124, 68)*SPACE*max1 =【?】Print max1End SubPublic Fun
8、ction max(ByVal a%, ByVal b%, ByVal c%)*SPACE*If 【?】 Then m = aElse m = bEnd If*SPACE*If 【?】 Then max = mElse max = cEnd IfEnd Function答案: 1). max(max1, 73, 352) 2). ab 或 b c 或 c a(j + 1) Then x = a(j): a(j) = a(j + 1): a(j + 1) = x*SPACE* 【?】 End If Next j*SPACE* If work Then 【?】Next iFor i = 1 To
9、n Print a(i);Next iEnd Sub答案: 1). Step -1 2). work = False 或 work=0 或 not work = true 3). Exit For第12题程序填空(1分)(题号:37)-【程序填空】-功能:以下程序用于判断一个正整数(3)是否为素数。-Private Sub Form_Click()n = InputBox(请输入一个正整数(3))k = Int(Sqr(n)i = 2swit = 0*SPACE*Do While i = k And 【?】*SPACE*If 【?】 Then swit = 1Else*SPACE* 【?】En
展开阅读全文