浙江信息技术学考VB程序题训练20160826

《浙江信息技术学考VB程序题训练20160826》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、班级：姓名:1.下列可以作为VB变量名的是（）C.1818fD.age_lA.SqrB.cs#l2.卜•列屈于正确的VB表达式（计算式）的是（）A.a*[(b-c)/a+b]B.3n+lC.0<=x<=lD.gt/2/23.某算法流程图如下所示，执行该算法，输出s的结果是（）第2题第3题D.15某算法的部分流程图如图所示，执行这部分流程后，变虽a和变虽b中的值分别为（）A.6和5B.1和4（11和一1D.-3和71sno・-(Code)EE冈riserl▼

2、

3、Ti»erzlDimindexAsIntegerTPrivateSubComm

4、andl_C1ick0Randomizeindex=0Timer1.Interval=500Timerl.Enabled=TrutCommandl.Enabled=FalseEndSub4.某VisualBasic工程的相关视图如下图所示:-(sno・.vbp)曰占窗体BForml(snov.frm)从图屮信息可知，下列说法不正确的是（）•••A.窗体中有一个按钮对象,名称为Command1B.该程序中用到了Timer控件C.在窗体上点击按^i[command1,按钮就不可再次点击D.该工程的窗体文件名“snow.vbp”5.冇如下程序

5、段：DimiAsTnteger,sumAsTntegerDima(1To5)AsTntegersum=0Fori=1To5a(i)二i*iIfa(i)Mod200Thensum=sum+a(i)NextiTextl.Text=Str(sum)运行该程序段示，文木框Textl屮显示的内容是A.0B.20C.35D.556.有如下程序段：Dima(lTo9)AsInteger;mAsInteger,kAsInteger,iAsIntegera(l)=2:a(2)=8:a(3)=3:a(4)=4:a(5)=5:a(6)=6:a(7)=l:a(

6、8)=7:a(9)=9m=1:k=1Fori=2To9Ifa(i)>a(i-1)Thenk=k+1Ifk>mThenm=k・Elsek=1EndIfNextiTextl.Text=Str(m)该程序段运行后，文木框Textl+显示的内容是()A.4B.6C.8D.9二、综合题1.编写VB程序，实现游戏的部分功能如下：单击"剪刀”按钮Command1,在图像框Tmagel中显示剪刀图像,在Image2中随机显示一张图像（剪刀为“l.jpg”,石头为“2.jpg”,布为“3.jpg”）,同时在标签Label2中显示游戏结果（如：电脑赢！）。

7、运行界面:层性•FormliForalForm（名称AppearanceAutoRedrawackColororderStyleaptionlipControlsForml1-3DFalse□&H80000002-SizableformlTrue（1）要使程序窗体标题显示“石头剪刀布游戏”，可在属性窗口小将属性的属性值设査为“石头剪刀布游戏”。（2）“剪刀”按钮代码如下所示，为了实现程序功能，填入合适的代码PrivateSubCommandlClick()DimxAsIntegerRandomizcx二'①产生随机整数1或2或3Imag

8、o1.Picture=LoadPicture(App.Path+"l.jpg")Imago2.Picture=LoadPicture(App.Path++Trim(Str(x))+jpg")Ifx=1ThenLabel2.Caption="平手！"'②IfThonLabel2.Caption="电脑赢!"IfThenLabe12.Caption=〃你赢！〃EndSub（3）②所在行代码表达的程序控制结构是1.编写VB程序，实现如下功能：在文本框textl中输入口然数n,单击“产生n个随机数，并求和与最大数计算”按钮Commandl,则

9、在列表框Listl中输出n个小于200•的随机整数,并输出n个随机数的和少最大值，界面如下图所示。（1）观察运行界面，选项中没有用到的控件是(选项A.Ab.丽c.（2）设计该窗体界面时，需要将窗体forml的属性设置为“最大随机数”。（3）请完善下列程序代码:PrivateSubCommandl_Click()Dima(lTo10)AsIntegerDimsAsIntegerDimmaxAsIntegern二VaI(Text1.Text)i=lDoWhilei<=na(i)=IntfRnd*100)Listl.AddltemStr(a(

10、i))s=s+a(i)Loopmax=a(l)Fori=2TonIfa(i)>maxThenNextiList1.AddItem"和为："+Listl.Addltem"最大值为:"+Str(max)EndS