填空题
过梁配筋图集-温度试纸
2023年2月18日发(作者：黔无驴)一、填空题。
1.假定当前日期为2002年7月12日，星期六，则执行语句Printday(now)后，输出结果
是12（提示：不能出现符号#）。
2.语句a%=3.14156:Printa%的输出结果是3。
3.以下循环的执行次数是__11___。
K=0
DoWhilek<=10
k=k+1
Loop
(1).11
(5.8)的值是__5_____。
5.下列程序段的执行后输出的结果为___11__。
I=4:A=5
Do
I=I+1:A=A+2
LoopUntilI>=7
Print"A=";A
6.表达式3/6*5的值是_2.5______。
7.下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。
Ifa d=a:a=b:b=d EndIf Ifa d=a:a=c:c=d EndIf If_____Then d=b:b=c:c=d EndIf Printa,b,c (1).b 8.在Selectcase结构中应至少包含一个____CASE__子句。 9.窗体的属性可在属性窗口中设置，也可在程序中用___赋值___语句动态设置。 10.有如下Sub过程: Subind(aAsInteger) StaticxAsInteger x=x+a Printx; EndSub 以下是调用它的事件过程，程序运行后，单击命令按钮Command1，输出结果为__2____。 PrivateSubCommand1_Click() Ind(2) EndSub 11.逻辑常量值为TRUE或_____FALSE 12. 货币类型的数据小数点的位置是固定的，精确到小数点后___4__位。 13.表达式（2+8*3）/2的值是____13__。 (1).13 14.以下程序用来判断一个整数X是否为偶数，并将其中的偶数在窗体上显示，请补充完该 程序。 IfXMOD___2=___0_ThenPrintX (1).(2).0 15.当对窗体中的对象进行___双击__操作时，VisualBasic就会显示该对象的代码窗口。 (1).双击 16.下列程序的执行结果是55____。 T=O:m=1:Sum=0 Do t=t+m:Sum=Sum+t:m=m+2 LoopWhilem<=9 PrintSum (1).55 17.一组具有相同名称，不同下标的下标变量称为___数组___。 (1).数组 18.给定年份，下列程序用来判断该年是否闰年，请补充完该程序。 提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。 PrivateSubCommand6_Click() DimyAsInteger y=InputBox("请输入年号") If(yMod4=0______yMod1000)or(yMod400=0)Then Print"是闰年" ElsePrint"是普通年份" EndIf EndSub (1).AND 19.设a=2,b=3,c=4,d=5下列a>bandcdorc=a表达式的值是__FALSE___。 (1).FALSE 20.表达式："1"&"2"="12"的值是__TURE_____。 (1).TRUE 21.为了能自动放大或缩小图象框中的图形以与图象框的大小相适应,必须把该图象框的 Stretch属性设置为___TURE___。 (1).TRUE 22.根据变量的定义位置和所使用的变量定义语句的不同，VB中的变量可以分为3类，即_ 局部变量____、模块变量和全局变量。 (1).局部变量- 23.表达式3>4and7=5的值是__FALSE____。 (1).FALSE 24.以下的程序用来输出100到2000间不能被3整除的数字，请补充完该程序。 PrivateSubCommmand1_Click() DimxAsInteger x=100 DoUntilx>_2000____ IfxMod30Then Printx EndIf x=x+1 Loop EndSub (1).2000 25.下列程序段的执行时，共循环___12_次。 Fora=0To1 Forb=1To2 Forc=1To3 I=I+1 Nextc Nextb nexta (1).12 26.以下程序计算2到50间所有偶数的和，请补充完该程序 Submult() DimSumAsInteger Sum=0 DimIasinteger For___to50 IfIMOD2=___Then___ NextI Printsum EndSub (1).I=2(2).0(3).SUM=SUM+I 27.A=7,B=3,C=4,则表达式AMOD3+B^3/C5的值为_2___。 (1).2 28.下列循环语句，要求和数达到10既停止累加，退出循环，请补充完程序。 Forj=1to10 s=s+j Ifs>=10thenExit_FOR___。 Nextj (1).FOR 29.下列程序段的运行结果是： SubForm1_Click() DimnasInteger I=21:n=3 DoWhileI>n I=I-n Loop PrintI EndSub 打印结果__3___。 (1).3 Basic中的常量分为两种，一种是直接常量，一种是_符号___常量。 (1).符号 Basic提供了列表框控件，当列表框中的项目较多、超过了列表框的长度时， 系统会自动在列表框边上加一个__滚动条____。 (1).滚动条 32.一个程序最多可以有___255_____窗体。 (1).255 33.将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为______TURE_。 (1).TRUE 34.要选择多个不相邻的控件，按住__CTRL_____或SHIFT键不放，再单击要选择的控件。 (1).CTRL 35.表达式："1"+"2"="3"的值是_FALSE______。 (1).FALSE 36._CAPTION_____属性用来设置窗体的标题。它确定和改变显示在窗体的标题栏中的文本。 (1).CAPTION 37.假定有一个文本框，其名称为Textl，为了使该文本框具有焦点，应执行的语句是 US 38.执行下面的程序段后，s的值为_7___。 S=5 ForI=2.6To4.9Step2 s=s+1 NextI (1).7- 39.表达式“12345”“12345”&“ABC”的值是___TURE__。 (1).TRUE 40.下列程序用来计算1+2+3„„+10的值，请补充完程序。 Dimt,kassingle K=0 DOWhilek<10 K=k+1:___T=T+K___ loop printt (1).T=T+K 41.下列程序段的执行后输出的结果为____27___。 K=1 ForI=1To3 A=I^I^K NextI PrintA (1).27 42.下列程序是用来计算1＋2＋3„„＋10的程序段，请补充完该程序。 DimI,s,kAsInteger s=0:k=0 For____To-1 k=k+1:s=s+k NextI Prints (1).I=-10 43.执行inputbox函数后，会产生一个对话框，对话框上通常有两个按纽，它们是__确定___ 按纽和取消按钮。 (1).确定 44.下列程序的执行结果是_120____。 M1=1:m2=1 DoWhilem26 m1=m1*m2:m2=m2+1 Loop Printm1 (1).120 45.下列程序的执行结果是__10___。 PrivateFunctionP(NAsInteger) ForI=1ToN SUM=SUM+1 NextI P=SUM EndFunction PrivateSubCommand1_Click() S=P(1)+P(2)+P(3)+P(4) PrintS; EndSub (1).10 46.货币型数据的类型标识符为___@___。 (1).@ 47.以下程序用来输出1到100所有奇数的和，请补充完该程序。 PrivateSubCommand3_Click() DimsAsLong DimxAsInteger s=0 Forx=1to100step____ s=s+x Nextx Prints EndSub (1).2 48.假设有一复选框控件，名为Check1，在程序中，我们用“=1”语句设置Value 属性的值，则该程序执行后，复选框处于_选中___状态。 (1).选中 49.激活属性窗口的快捷键是____F4__。 (1).F4 50.下列程序的执行结果是____1___。 A=75 Ifa>60Then I=1 ElseIfa>70Then I=2 ElseIfa>80Then I=3 ElseIfa>90Then I=4 EndIf PrintI (1).1 51.下列程序段的运行后t的值为__0____。 Dimt,kassingle k=5:t=1 doWhilek>=-1 t=t*k:K=K-1 loop (1).0- 52.执行语句“a=6=5”后，变量a的值为FALSE______。 (1).FALSE- 53.下面程序段的输出结果是___s=42__。 P=0:s=0 Do p=p+2 s=s+p LoopWhilep<11 Print"s="&s (1).s=42- 54.下面程序段的输出结果是____1.5__。 ForX=1.5To5Step5 PrintX; NextX (1).1.5- 55.执行下面的程序段后，s的值为___9___。 S=5 ForI=2.6To4.9Step0.6 s=s+1 NextI (1).9- 56.表达式Fix(-32.68)+Int(-23.02)的值为___—56___。 (1).-56- 57.在窗体上画一个命令按钮，然后编写如下事件过程： PrivateSubCommand1_Click() a=InputBox("请输入一个整数") b=InputBox("请输入一个整数") Printa+b EndSub 程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为_321456___。 (1).321456- 58.执行下面的程序段后，b的值为__300___。 A=300:b=20 a=a+b:b=a-b:a=a-b (1).300- Basic的对象是____窗体____和_控件______的总称。 (1).窗体(2).控件- 60.图片框的默认属性为_PICTURE______（提示：该题只填写英文，如Name事件，只写Name 即可）。 (1).PICTURE- 61.滚动条响应的重要事件有___CHANGE____和_____SCROLL__（提示：该题只填写英文， 如Click事件，只写Click即可）。 (1).CHANGE(2).SCROLL- 62.下列程序段执行后x的值是____50__。 X=100:y=50 ifx>ythenx=x-yelsex=x+y (1).50- 63.表达式32/2^3-3*2^2+4^2的值是____8___。 (1).8- 64.下列程序用来将变量X，Y的值互换，请补充完程序（提示：该题答案中不要出现空格）。 T=Y:_Y=X_____:X=T (1).Y=X- 65.有如下程序，该程序的运行结果是__TURE____。 A=20:b=10 printa>b (1).TRUE- 66.表达式15+3*3/9*55mod10的值是____16__。 (1).16- 67.有如下程序，该程序的运行后输出的结果是AAABBB______。 PrivatesubCommand1_Click() I="AAAAAA" S=Mid(I,4,3)&"BBB" PrintS EndSub (1).AAABBB- 68.有一数组定义语句：dimM(-2to1)asstring，该语句定义的数组M中包含__4__ 个元素。 (1).4- 69.设有数组声明语句：Optionbase1dimA(3,-2to1)，则数组A中有____12_个 元素。 (1).12- 70.有数组定义语句：dimI(99,99)asInteger，则数组I中共包含有__10000____个元素。 (1).10000- 71.下面程序段执行后的结果是___5__。 X=10 ForI=6.3to4.9Step-0.3 x=x-1 Next Printx (1).5 72.表达式：52*3的值是__0____。 (1).0 73.表达式：Mid("SHANGHAI",6,3)的值是_HAI_____。 (1).HAI 74.表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是___0__。 (1).0 程序设计中三种基本结构分是：_顺序______结构、选择结构和____循环___结构。 (1).顺序(2).循环 76.__字符____是构成文件的最基本的单位。 (1).字符 77.顺序文件与随机文件相比较，占用内存资源较小的文件是__随机____文件。 (1).随机 78.随机文件是以_记录______为单位读写，二进制文件以____字节___为单位读写。 (1).记录(2).字节 79.随机函数Rnd(X)，当X=___0__时返回最近一次调用Rnd函数生成的随机数。 (1).0 80.语句x=inputbox("请输入数据"),输入12345,则x的值为______类型的数据（提示：例如 整型，Int；字符型，String）。 (1).STRING 81.x,y中至少有一个变量小于变量z的VB表达式为x (1).OR 82.以下程序段的输出结果是____。 Num=0 Whilenum<=2 num=num+1 Wend Printnum (1).3 83.如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为______。 (1).- 84.在VisualBasic中按文件的访问方式不同,可以将文件分为顺序文件、随机文件和 ______。 (1).二进制文件 85.如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以 同时选中______个选项按钮（提示：该题答案只填写数字，如：1，2，3，4）。 (1).2 86.以下语句的执行结果是____。 I=Format(5459.4,"##,##0.00") PrintI (1).5,459.40 87.在VB中，关系运算符号一共有____种。（提示：该题答案只填写数字，如：1，2，3，4）。 (1).6 88.过程的作用域分为________、________。 (1).模块(2).全局 89.在windows环境下，菜单分为_______菜单和_______菜单 (1).下拉(2).快捷 中算术表达式5+2^2的值为 (1).9 中表达式Int(5.8)的值为______。 (1).5 92.启动VB6.0时，VB6.0默认的工程类型是_______工程。 (1).标准EXE 93.在窗体上添加一个命令按钮，然后编写如下事件过程 PrivateSubCommand1_Click() DimaAsInteger DimbAsInteger a=5 b=6 Printa*b EndSub 程序运行后，单击命令按钮，输出的结果为。 (1).30 94.逻辑运算时，参与运算的两个量都是True，结果才会是True的逻辑运算是_____运算（提 示：该题答案不能出现汉字）。 (1).AND 工程文件的扩展名是______ (1).vbp 96.有如下程序段，该程序段的执行结果是____。 ForI=1To3 Forj=1To3 n=n+1 Nextj m=m+n NextI Printm (1).18 赋值语句中的“=”称为 (1).赋值号 98.设有以下的循环： x=1 Do x=x+2:Printx LoopUntil____。 程序运行后，要求执行3次循环体，请补全以上程序。 (1).x>=6- 中算术表达式2310的值为 (1).2 100.对于Commandbutton控件，Picture属性用于给按钮加一个图形，只有当_______属性 的属性值设置为1时，该属性才有效。 (1).STYLE 101.在VB中根据不同的情况做出不同的选择，执行不同的操作，这种程序设计结构称为 结构 (1).选择 102.若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中 设_______属性。 (1).PASSWORDCHAR 103.设置计时器事件之间的间隔要通过计时器的_____属性 (1).INTERVAL 104.下列程序段的执行结果是_____。 K=0 Forj=1to2 ForI=1to3 k=I+1 NextI ForI=1To7 k=k+1 NextI Nextj Printk (1).11 eSubCommand1_Click() x=0 DoUntilx=-1 a=InputBox("请输入第一个数字a的值") a=Val(A) b=InputBox("请输入第二个数字b的值") b=Val(b) x=InputBox("请输入第三个数字x的值") x=Val(x) a=a+b+x Loop Printa EndSub 输入5,4,8,5,8,-1，在窗体上显示 (1).12 106.程序运行时，单击水平滚动条右边的箭头，滚动条的Value属性值增加一个_______量。 (1).SMALLCHANGE 107.如果希望使用变量x来存放数据687543．123456，应将该变量x声明为_____类型的变 量。 (1).double 108.有如下程序段，该程序段执行完毕后，共循环了_____次。 ForI=1to2 ForJ=1toI Fork=1toJ Print"a" NextK NextJ NextI (1).4 109.表达式2^3＞3And5＜10的值是 (1).false 110.在窗体上添加一个命令按钮，名为Command1,事件过程如下： PrivateSubCommand1_Click() a=InputBox("请输入a的值") a=Val(a) b=InputBox("请输入b的值") b=Val(b) a=a+b Printa EndSub 程序运行后，单击命令按钮，依次在输入对话框中输入1,1后，输出的结果是______。 (1).2 111.表达式5*2+3/42^2的值是_____ (1).10 112.如果命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frml， 请对以下事件过程填空。 PrivateSubCmdopen __________ EndSub (1). 113.要改变窗体的标题，应当在属性窗口中改变的属性是 (1).CAPTION 114.______属性为列表框中的每个列表项设置一个对应的数值，它是一个整数数组，数组大 小与列表项的个数一致。 (1).LIST 115.在窗体上画一个命令按钮(其Name属性为CommAnd1)，然后编写如下代码： PrivateSubCommAnd1_Click() DimM(10)AsInteger Fork=1To10 M(k)=12-k Nextk x=6 PrintM(2+M(x)) EndSub 程序运行后，单击命令按钮，输出结果是______。 (1).4 116.当程序开始运行，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的属 性窗口中，把此文本框的____属性设置为空。 (1).TEXT 117.将数据从内存写入随机文件，写入语句的格式是______[#]文件号，[记录号]，自定义变 量名。 (1).PUT 118.编写如下代码： PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle, YAsSingle) IfButton=1AndShift=2Then Print"MultipleChoice" EndIf EndSub 程序运行后，要在窗体上输出“MultipleChoice”，则应在按下____的同时单击鼠标左键。 (1).CTRL 119.在VB中执行程序语句时，需要对其中的某些语句重复执行多次，程序设计中应使用 (1).循环 120.若要使标签控件显示时，不覆盖其背景内容，应设置标签的______属性。 (1).BACKSTYLE 121.计时器的Interval属性值不得大于______。 (1).65535 122.将通用对话框的类型设置为“字体”对话框可以使用______方法。 (1).ShowFont 123.菜单项可以响应的事件过程为______。 (1).Click 124.在设计菜单时，可在VisualBasic主窗口的菜单栏中选择______，单击后从它的下拉 菜单中选择“菜单编辑器”菜单项。 (1).工具 125.检测未打开的文件总的字节数，可以用______函数。 (1).FileLen 126.选择了一个新的目录路径后，为了及时更新文件列表框的显示，可选用目录列表框的 ______事件来驱动。 (1).Change 127.文件的当前读写位置是否到达文件末尾，应用______函数。 (1).EOF 128.读文件的______语句从文件的当前位置起至换行符前的所有字符读入到字符串变量。 (1).LineInput 129.表达式2*4^3+4*6/3+3^2的值是__________。 (1).145 130.表达式16/2-2^3*7Mod9的值是________。 (1).6 131.表达式817Mod2^2的值是________。 (1).3 132.语句PrintNot10>15And8<5+2的输出结果为__________。 (1).FALSE 133.如果字符“Y”是某个命令按钮的访问键，在设计时，设置命令按钮的Caption属性时 要在其中字符“Y”前输入()；运行时，可以通过按()键执行单击 操作。 (1).&(2).+ 134.运行时，若需要命令按钮为灰色，即不被击活，在设计时可以通过()属性来 实现。 (1).Enabled 135.文本框中输入的字符数需加以限定时，用的是文本框的()属性。 (1).MaxLength 136.把焦点移到文本框Text1中的语句为()。 (1).us 137.()属性决定文本框是否可以接受多行文本。 (1).MultiLine 138.要让控件隐藏起来，处于不可见状态，可修改其(Visible)属性。 (1). 139.要使输入文本框的字符靠右对齐，可修改文本框的().Alignment)属性。 (1 140.要使标签框的大小随Caption属性做自动调整，应修改其()属性。 (1).AutoSize 141.对象的标题文字的颜色是由()属性决定的。 (1).ForeColor 142.运行时单击复选框，将使复选框的Value值取()。 (1).0或1 143.运行时单击单选钮，将使单选钮的Value值取(True)。 144.要使复选框或单选钮的标题文字靠左，应设置Alignment属性为(1)。 145.(AddItem)方法用来向列表框中加入列表项。 146.当列表框的MultiSelect属性值为(1)时，单击列表项或按空格键可以实现复选。 147.语句()将清空列表框List1中所有列表项。 148.拖动滚动条的滚动滑块时仅发生(Scroll)事件。 149.滚动条的滚动滑块的位置由(Value)属性决定的。 150.执行语句“=+100”时，发生(Change)事件。 151.定时器的Interval属性值为0时，表示(定时器不起作用)。 152.定时器控件只能接收(Timer)事件。 153.对命令按钮的Picture属性装入.bmp图形文件后，选项按钮并没有显示所需要的图形， 原因是没有对(Style)属性设置为1。 154.在文本框中通过(SelStart)属性能获得当前插入点所在的位置。 155.要对文本框中已有的内容进行编辑，按下键盘上的按键就是不起作用，原因是设置的 (Locked)属性为True。 156.在窗体上已建立多个控件如Text1、Label1、Command1等，若要使程序一运行焦点定 位在Command1控件上，应把Command1控件的TabIndex属性设置为0。 157.窗体被装入工作区时自动触发的事件是(lOAD)。 158.若x＞y，则交换变量x、y值的行If语句写作Ifx>yThent=y:y=x:x=t Case结构中测试表达式的值在一定范围内，在其表达式列表中可以用IS、To 表示。 160.用InputBox函数为数组B所有元素B(0)、B(1)、„、B(9)依次赋值的语句写作Fori=0to 9:B(i)=InputBox("B("&i&")="):Nexti 161.声明动态数组a的语句Dima()语句。 162.语句“DimcAsString”定义的变量c，可用于存放控件的Caption的值。 163.用Dimc(2to5)AsInteger语句定义的数组占用8个字节的内存空间。 Basic的过程有三种，它们是子过程、函数过程、属性过程 165.改变鼠标光标形状的属性是.MousePoint)。 166.控件数组的名字由.Name)属性指定。 167.由Array函数建立的数组必须是Variant类型。