首页 › 答案 › 标签 › VisualBasic程序设计

VisualBasic程序设计

25编写如下事件过程:PrivateSubForm_Click（）score=Int(Rnd10)+80SelectCasescoreCaseIs<60a$=FCase60To69a$=DCase70To79a$=CCase80To89a$=BCaseElsea$=AEndSelectPrinta$EndSub程序运行后,单击窗体,则窗体上显示的内容是（）。

26循环结构ForI%=-1to–17Step–2共执行（）次。

27下列程序段的执行结果为（）。a=0:b=1Doa=a+bb=b+1LoopWhilea<10Printa;b

28有如下程序,运行后输出的结果是（）。j=0:n=0DoWhilen<3j=(j+1)*(j+2)n=n+1LoopPrintj;n

29下列的程序段执行后,x的值为（）。x=0Fori=1To10Forj=iTo10x=x+1NextjNexti

30以下关于静态数组的描述正确的是（）。

31执行下面程序段后，输出的结果为（）。Dimm(5)AsIntegers=0Fori=0To5m(i)=5NextiForj=0To5s=s+m(j)NextjPrints

32下面程序：PrivateSubForm_Click（）Dima(100)AsIntegerFori=1To10j=iia(j)=jNextiPrinta(25)EndSub运行后，单击窗体，则输出的结果是（）。

33有如下语句：OptionBase1PrivateSubCommand1_Click（）DimA(2,-1To1)AsInteger……EndSub以上语句所定义的数组A为（）维数组，共有（）个元素，第一维下标从（）到（），第二维下标从（）到（）。

34有如下程序：Constn=-5Constm=6Dima(nTom)AsIntegerFori=LBound(a,1)ToUBound(a,1)a(i)=iNextiPrinta(LBound(a,1));a(UBound(a,1))运行后输出的结果为（）。

35下面关于控件数组与一般控件的叙述中正确的是（）。

36如果要对已经声明的数组重新定义大小，并保留原有数据，可以使用语句（）。

37下列程序的输出结果为（）。PrivateSubCommand1_Click（）DimaReDima(6)Forj=1To5a(j)=jjNextjPrinta(a(2)a(3)-a(4)2)+a(5)EndSub

38执行下面程序段后，输出的结果为（）。Dima(10,10)AsIntegerFori=2To4Forj=4To5a(i,j)=i*jNextjNextiPrinta(2,5)+a(3,4)+a(4,5)

39要分配存放如下方阵的数据，正确的且最节约存储空间的数组声明语句是（）。112233445566778899

40假定有如下的Sub过程：Subfun(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click（）DimaAsSingleDimbAsSinglea=6b=4funa,bPrinta,bEndSub程序运行后，单击命令按钮，输出结果为（）。

41假定有以下函数过程：FunctionFun(sAsString)AsStringDims1AsStringFori=1ToLen(s)s1=UCase(Mid(s,i,1))+s1NextiFun=s1EndFunction在窗体上添加一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click（）DimStr1AsStringDimStr2AsStringStr1=InputBox(请输入一个字符串)Str2=Fun(Str1)PrintStr2EndSub程序运行后，单击命

42有如下函数过程：Functionsecproc(xAsInteger,yAsInteger,zAsInteger)secproc=3y+z+2xEndFunctionPrivateSubCommand1_Click（）DimaAsInteger,bAsInteger,cAsIntegera=2:b=3:c=4Printsecproc(c,b,a)EndSub该程序的运行结果是（）。

43有如下函数过程：FunctionCys(ByValxAsInteger,ByValyAsInteger)AsIntegerDimquotientsDoWhiley<>0quotients=x/yx=yy=quotientsLoopCys=xEndFunction以下是调用该函数的事件过程，该程序的运行结果是（）。PrivateSubCommand1_Click（）DimaAsIntegerDimbAsIntegera=10b=2x=Cys(a,b)PrintxEndSub

44以下是一个能返回数组a中最大数的函数过程代码：Functionmaxval(a（）AsInteger)AsIntegerDimmax%max=1Fori=2To10Ifa(i)>a(max)Thenmax=iNextimaxval=maxEndFunctionPrivateSubCommand1_Click（）Dimx(1To10)AsIntegerFori=1To10x(i)=Int(Rnd（）100)Printx(i);NextiPrintPrintmaxval(x（）)EndSub程序运行时，

45在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：FunctionFun1(ByValaAsInteger,bAsInteger)AsIntegerDimtAsIntegert=a-bb=t+aFun1=t+bEndFunctionPrivateSubCommand1_Click（）DimxAsIntegerx=10PrintFun1(Fun1(x,(Fun1(x,x-1))),x-1)EndSub程序运行后，单击命令按钮，输出结果是（）。

46下面程序的运行结果为（）。Dima%,b%,c%Subp1(x%,y%)DimcAsIntegerx=2x:y=y+2:c=x+yEndSubSubp2(x%,ByValy%)DimcAsIntegerx=2*x:y=y+2:c=x+yEndSubPrivateSubCommand1_Click（）a=2:b=4:c=6Callp1(a,b)Callp2(a,b)Printa;b;cEndSub

47下面程序：Functiona(x)StaticbAsIntegerb=b+x^2PrintbEndFunctionPrivateSubCommand1_Click（）Dimc%c=a(2)EndSub单击两次命令按钮，第二次显示的结果是（）。

48若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应将该过程放在（）中。

49若要求显示一个指定窗体,所用的方法是（）。

50确定一个窗体或控件大小的属性是（）。

51当一个工程含有多个窗体时,其中的启动窗体是（）。

52每建立一个窗体,工程管理器窗口中就会增加一个（）。

53当运行程序时,系统自动执行启动窗体的（）事件过程。

54若要改变窗体中显示文本的颜色,应该使用的属性是（）。

55在设计阶段,当双击窗体上的某个控件时,所打开的窗口是（）。

56如果要改变窗体的标题,需要设置窗体对象的哪一属性（）。

57Cls方法可清除窗体或图片框中的信息是（）。

58窗体的Enable属性的属性值是（）类型的数据。

59一般不用来触发事件的对象是（）。

60如果将文本框的Locked属性设置为True,则以下说法（）是正确的。

61单击命令按钮Commandl必将调用的事件（）。

62能够改变复选框中背景颜色的属性是（）。

63以下不属于同类的是（）。

64列表框中列表项的数目可通过（）属性的值获得。

65组合框控件是将（）组合成一个控件。

66要在图片框P1中打印字符串HowAreYou,应使用语句（）。

67在窗体上画一个名称为Timer1的计时器控件,要求每隔01秒发生一次计时器事件,则以下正确的属性设置语句是（）。

68以下控件中不属于容器的是（）。

69刚建立一个新的标准EXE工程后,不在工具箱中出现的控件是（）。

70将通用对话框类型,设置为字体对话框,可修改该控件的（）属性。

71下列属性属于颜色对话框的是（）。

72在窗体上建立通用对话框必须先将（）添加到工具箱中。

73将通用对话框CommandDialog1的类型设置成另存为对话框,可调用该控件的（）方法。

74下列事件过程可以将打开对话框的标题改为刑事案件卷宗的是（）。

75窗体上有一公共对话框Commondialog1,和一个命令按钮Command1,当单击按钮时程序的功能是（）。PrivateSubCommand1_Click（）Commondialog1ShowColorEndSub

76在窗体上建立一个通用对话框，名称为CommonDialog1，用下面的语句可以建立一个对话框，CommonDialog1Action=2与该语句等价的语句是（）：

77在窗体上画一个通用对话框，其名称为CommonDialog1，然后添加一个命令按钮，并编写如下事件过程：PrivateSubCommand1_Click（）CommonDialog1Filter=allfiles()||textfiles|txt|batfiles(bat)|batCommonDialog1filterIndex=2CommonDialog1ShowOpenMsgBoxCommonDialog1FileNameEndSub程序运行后，单击命令按钮，将显示一个打开对

78下列选项中不正确的是（）。

79在用菜单编辑器设计菜单时,必须输入的项是（）。

80假定有一个菜单项,名称为MenuItem,为了运行时使该菜单项失效(变灰),应使用的语句为（）。

81一个菜单项是不是一个分隔条,由（）属性决定。

82要使用菜单项MentOne在程序运行时失效,使用的语句是（）。

83菜单控件仅支持下面哪一事件（）。

84用键盘的光标键选中某一菜单项,并按回车将触发菜单的（）的事件。

85设菜单中有一个菜单项为Open若要为该菜单命令设置访问键,即按下ALT及字母O时,能够执行Open命令,则在菜单编辑器中设置Open命令的方式是（）。

86下列不能打开菜单编辑器的操作是（）。

87建立弹出式菜单使用的命令是（）。

88使用Circle(1000,1000),650语句在窗体上绘制一个圆，则圆的线条颜色由窗体的（）属性决定。

89执行指令Line(1200,1200)-Step(1000,500),,B后,CurrentX=（）。

90运行以下程序后,输出的图形是（）。Forr=0To150Circle(320,240),rFori=1Tol000NextiNextr

91以下的属性和方法中,可重定义坐标系的是（）。

92Line(100,100)-Step(400,400)将在窗体（）画一直线。

93vb中的坐标圆点位于（）。

94可用来改变坐标度量单位的是（）。

95在VB的图形方法中,要绘制矩形,需要使用（）。

96如果在图片框上使用绘图方法绘制一个实心圆,则图片框的（）属性决定了该圆填充的颜色。

97当用户按键时，KeyPress、KeyDown、KeyUp事件的执行顺序为（）。

98文本框Textl的KeyDown事件过程中参数KeyCode值表示（）。

99编写如下两个事件过程：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)PrintChr(KeyAscii)EndSub一般情况下(即不按住Shift和锁定大写)运行程序，如按A键则输出（）。

100在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview设置为True（在激活对象上的控件键盘事件之前，优先激活键盘事件,即Form优先）然后编写如下代码：DimSaveAllAsStringPrivateSubCommand1_Click（）Text1Text=Ucase(SaveAll)EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序运行后，在键盘上输入abcdefg

‹12 3 ›