vb 2Word格式.docx
《vb 2Word格式.docx》由会员分享,可在线阅读,更多相关《vb 2Word格式.docx(13页珍藏版)》请在冰豆网上搜索。
是回车键):
a=8<
b=9<
printa>
b<
则输出结果是___False___。
设置复选框中或单选按钮的标题对齐方式的属性是______。
Alignment
用Dim(1,3to7,10)声明的是一个__3____维数组。
通过以下______窗口可以在设计时直观的调整窗体在屏幕上的位置。
窗体布局窗口
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Fori=1To4
Ifi=1Thenx=i
Ifi<
=4Thenx=x+1
Printx;
程序运行后,单击命令按钮,其输出结果为:
____2345__。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
x=InputBox("
Input"
)
SelectCasex
Case1,3
Print"
分支1"
CaseIs>
4
分支2"
CaseElse
Else分支"
EndSelect
程序运行后,如果在输入对话框中输入2,则窗体上显示的是______。
Else分支
以下关系表达式中,其值为假的是:
__"
VisualBasic"
="
visualbasic"
____。
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Dimarray1(10,10)AsInteger
Dimi,jAsInteger
Fori=1To3
Forj=2To4
array1(i,j)=i+j
Nextj
Text1.Text=array1(2,3)+array1(3,4)
程序运行后,单击命令按钮,在文本框中显示的值是__12____
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
OptionBase1
Dima(4,4)
Forj=1To4
a(i,j)=(i-1)*3+j
Fori=3To4
Forj=3To4
Printa(j,i);
Print
程序运行后,单击命令按钮,其输出结果为__912
1013
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:
n=Val(Text1.Text)
Fori=2Ton
Forj=2ToSqr(i)
IfiModj=0ThenExitFor
Ifj>
sqr(i)ThenPrinti
这事件过程的功能是_____输出n以内的素数_。
可以同时删除字符前导和尾部空白的函数是__Trim____。
以下定义数组或给数组元素赋值的语句中,正确的是______。
DimaAsVariant
a=Array(1,2,3,4,5)
a=12345
PrintFormat$(a,"
000.00"
程序运行后,单击命令按钮,窗体上显示的是__12345.00____。
设A="
12345678"
,则表达式Val(Left(A,4)+Mid(A,4,2))的值为___123445
在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
DimxAsInteger,nAsInteger
x=1
n=0
DoWhilex<
20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
程序运行后,单击命令按钮,在两个文本框中显示的值分别是______27和3
以下可以作为VisualBasic变量名的是__counstA____。
下列程序段的执行结果为__1504____。
N=0
ForI=1To3
ForJ=5To1Step-1
N=N+1
NextJ,I
PrintN;
J;
I
下列程序段的执行结果为___235___。
Y=1
F=x+Y
x=Y
Y=F
PrintF;
NextI
当我们输入代码时,VisualBasic可以自动检测___语法错误___错误。
设x=4,y=8,z=7,以下表达式的值是__False____。
x<
yAnd(Noty>
z)Orz<
x
在VisualBasic中,下列运算符中优先级最高的是:
_*_____。
设a=5,b=6,c=7,d=8,执行下列语句后,x的值为____20__。
x=IIf((a>
b)And(c>
d),10,20)
在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1),然后编写如下事件过程:
PrivateSubCommand1_Click()
x=Val(Text1.Text)
Case1,3
y=x*x
CaseIs>
=10,Is<
=-10
y=x
Case-10To10
y=-x
EndSub
程序运行后,在文本框中输入3,然后单击命令按扭,则以下叙述中正确的是_执行y=x*x_____。
下列程序段的执行结果为_bcdcde____。
A="
abcd"
B="
bcde"
E=Right(A,3)
F=Mid(B,2,3)
IfE<
FThenPrintE+FElsePrintF+E
函数UCase(Mid("
visualbasic"
8,8))的值为______。
BASIC
在设计应用程序时,通过__工程资源管理器窗口____窗口可以查看到应用程序工程中的所有组成部分。
编写如下事件过程:
PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
If(ButtonAnd3)=3Then
AAAA"
EndIf
程序运行后,为了在窗体上输出"
,应按下的鼠标键为__按什么键都不显示____。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个文本框,其名称为Text1,然后通过属性窗
口设置窗体和文本框的属性,实现如下功能:
1)在文本框中可以显示多行文本
2)在文本框中显示垂直滚动条
3)文本框中显示的初始信息为“程序设计”
4)文本框中显示的字体为三号规则黑体
5)窗体的标题为“设置文本框属性”
完成设置后的窗体如图所示。
要求:
不编写任何代码。
*注意:
存盘时必须存放在考生文件夹下,工程文件名为sj29.vbp,窗体文件
名为sj29.frm。
**********************************************************************
(2)在名称为Form1的窗体上画两个命令按钮(见图1),其名称分别为Cmd1
和Cmd2,编写适当的事件过程。
程序运行后,如果单击命令按钮Cmd1,则
可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现);
如果
单击命令按钮Cmd2,则可使该按钮在长度和宽度上各扩大到原来的2倍。
程序的运行情况如图2所示。
不得使用任何变量。
存盘时必须存放在考生文件夹下,工程文件名为sj30.vbp,窗体文件
名为sj30.frm。
第1小题:
新建一个工程,在窗体上添加一个文本框Text1,并将其MultiLine属性设置为True,ScrollBars属性设置为2-Vertical,Text属性设置为“程序设计”,FontName设置为“黑体”,FontSize设置为“三号”。
再选中窗体,设置其Caption属性为“设置文本框属性”。
最后按照题目要求保存文件即可。
第2小题:
新建一个工程,在窗体上添加两个命令按钮Cmd1和Cmd2,它们的Caption属性为“Cmd1”和“Cmd2”。
打开代码窗口,在其中添加如下代码:
PrivateSubCmd1_Click()
Cmd1.Left=0
Cmd1.Top=0
PrivateSubCmd2_Click()
Cmd2.Height=Cmd2.Height*2
Cmd2.Width=Cmd2.Width*2
在考生文件夹下有一个工程文件sj80.vbp,窗体文件中已给出所有控件和部分程序,如图所示。
要求:
1)利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐;
2)请编写适当的程序完成以下功能:
在Text1中输入40(度数),选择一个单选按钮,单击"
计算"
按钮,则根据所选择的单选按钮,计算出相应的正弦、余弦值(保留3位小数,第4位截去,π取3.14159),并显示在Text2中。
注意:
考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须进行一种计算,在Text1中输入的必须是40,必须用窗体右上角的关闭按钮结束程序,否则无成绩。
最后,程序按原文件名存盘。
**********************************************************************
考查考生对Text控件的Alignment属性的使用。
单选按钮的Value属性:
Value属性用来表示单选按钮的状态,可以取True和False两种值,取值为True时,单选按钮是"
打开"
的,按钮中心有一个圆点;
取值为False时,单选按钮是"
关闭"
的,按钮是一个圆圈。
设置单选按钮Value属性的语法是:
单选按钮名.Value=True或False
由于Value属性是单选按钮的缺省属性,因此在设置该属性的值的时候,可以省略属性名。
控件数组:
控件数组是一组具有共同名称和类型的控件。
它们的事件过程也相同。
一个控件数组至少应有一个元素,元素数目可在系统资源和内存允许的范围内增加;
数组的大小也取决于每个控件所需的内存和Windows资源。
控件数组中的每一个控件都有唯一的索引号(Index),即下标,根据这个下标,可以调用控件数组中任意控件的事件,设置控件数组中任意控件的相关属性。
Round函数:
Round函数的格式为:
Round(数值,保留的小数位数),它的作用就是对指定数值进行四舍五入的操作并保留指定小数位数。
表达式Fix(-32.68)+Int(-23.02)的值为-56_____。
阅读程序:
num=0
s=0
DoWhilenum<
=2
num=num+1
s=s+1
Prints
程序运行后,单击窗体,输出结果是_3____。
在窗体上画一个名称为Command1的命令按钮,编写如下事件过程
PrivateSubCommand1_Click
DimaAsString
a=______
Fori=1To5
PrintSpace(6-i);
Mid$(a,6-i,2*i-1)
Next
程序运行后,单击命令按钮,要求在窗体上显示的输出结果为
5
456
34567
2345678
123456789
请填空。
“1234567889“
以下程序段执行后y的值是_9_____。
x=8.6
y=int(x+0.5)
printy
以下程序在文本框Text1中输入任一字符串,并按相反的次序显示在文本框Text2中。
DimNAsString,DAsString
N=Text1.Text
M=__len(text1)____
Fori=MTo1Step-1
c=Mid(N,i,1)
D=D&
__c____
___text2___=D
阅读下面的程序:
DimCheckAsBoolean,CounterAsInteger
Check=True
Counter=5
Do
DoWhileCounter<
Counter=Counter+1
IfCounter=10Then
Check=False
ExitDo
LoopUntilCheck=False
PrintCounter
程序运行后,单击窗体,输出结果为____10___。
在窗体上画一个命令按钮,然后编写如下事件过程:
x=4
Forj=1To3
x=3
Fork=1To2
x=x+6
Nextk
Printx
程序运行后,单击命令按钮,输出结果是_15_____。
在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程:
x=0
50
x=(x+2)*(x+3)
Text1.Text=Str(N)
Text2.Text=Str(x)
程序运行后,单击命令按钮,Text1中显示的值是__2____;
Text2中显示的值是__72____。
在窗体上画一个名称为"
Command1"
的命令按钮。
然后编写如下事件过程
a="
123456789"
Mid$(a,__6-i____,2*i-1)
程序运行后,单击命令按钮,窗体上的输出结果是
描述"
X是小于100的非负整数"
的VisualBasic表达式是x<
100andx>
__=0____。