Max=y
Else
Max=x
EndIf
EndFunction
如果：
Dima,b,cAsInteger
a=10
b=23
c=Max（a,b）
则a,b,c的值依次是：
A.23,10,23B.10,23,23，C.23,23,10D.23,10,23
20.引用列表框ListBox1最后一个数据项应使用（）。
A．listbox1.items（listbox1.items.count）
B.listbox1.items（listbox1.items.count-1）
C.listbox1.text
D.listbox1.items（listbox1.selectedindex）
主观题
1、请编写函数fun（a，b），其函数功能是：
计算a到b区间内（包括a、b）所有不能整除3的整数之和，并返回结果。
窗体上已经给出a,b的值。
例如：
a=1,b=4。
处理后，结果为7。
注意：
不得改动程序已有的任何代码。
编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）
A=100,b=999
不能整除3的数的和：
文本框
计算
PublicClassForm1
PrivateFunctionfun（ByValaAsInteger,ByValbAsInteger）AsLong
'#############请在此区间填写你的代码#############
'###############################################
EndFunction
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
Dima,bAsInteger
DimcAsLong
a=100
b=999
c=fun（a,b）
TextBox3.Text=CStr（c）
DimmystreamwriterAsNewStreamWriter（"data.vbout"）
mystreamwriter.Write（c）
mystreamwriter.Close（）
EndSub
EndClass
2、请编写函数fun（a，b），其函数功能是：
计算a到b区间内（包括a、b）所有除3余数为2的整数之和，并返回结果。
窗体上已经给出a,b的值。
例如：
a=1,b=4。
处理后，结果为2。
注意：
不得改动程序已有的任何代码。
编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）
A=100,B=500
除3余2的数之和：
文本框
计算
PublicClassForm1
PrivateFunctionfun（ByValaAsInteger,ByValbAsInteger）AsLong
'#############请在此区间填写你的代码#############
'###############################################
EndFunction
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
Dima,bAsInteger
DimcAsLong
a=100
b=500
c=fun（a,b）
TextBox3.Text=CStr（c）
DimmystreamwriterAsNewStreamWriter（"data.vbout"）
mystreamwriter.Write（c）
mystreamwriter.Close（）
EndSub
EndClass
3、在窗体中添加一个Button控件，更改Name属性为“my_button”，更改Text属性为“ok”。
#再添加一个Label控件，更改Text属性为“mylabel”，更改BackColor属性为“ButtonHighlight”。
4在窗体中添加一个Label控件，Enabled属性值改为“False”，Name属性值改为“myLabel”，Text属性改为“Label”。
套题三
1、若要使命令按钮不可操作，要对（）属性进行设置。
A.EnabledB.visiableC.backcolorD.text
2、表达式2*3^2+2*8Mod4+2^3的值（）
A.64B.31C.26D.27
3、文本框的（）属性用于设置或返回文本框中的文本内容
A.TextB.（名称）C.captionD.name
4、要使TextBox控件能够显示多行，应设置（）属性为True
A.VisibleB.enabledC.multilineD.text
5、复选框或单选钮的当前状态可通过（ ）属性来返回或设置
A．checkedB、valueC.selectedD.caption
6、在VB.net中，在窗体上显示控件的文本，用（）属性设置
A.TextB.nameC.captionD.image
7、对建立良好的程序设计风格，下面描述正确的是（）
A.变量的明明只要符合语法规定即可
B.充分考虑程序的执行效率
C.程序的注释可有可无
D.程序应简单、清晰、可读性好
10.要求从文本框中输入密码时在文本框中只显示#号，则应用在此文本框的属性窗口中设置
A.Text属性值为#
B.caption属性值为#
C.passwordchar属性值为#
D.passwordchar属性值为真
11.以下的控件或方法具有输入和输出双重功能的为（）。
A.printB.textboxC.optionbuttonD.checkbox
12.为了使文本框txtOutput的内容运行时不被用户修改，应该将它的（）属性设置成True
A.readonlyB.textC.enabledD.visiable
13、初学者、业余爱好者在开发基于windows的应用程序时适宜使用的开发工具是（）。
A.visualstudio2005expressedition
B.visualstudio2005teamtestedition
C.visualstudio2005teamdeveloperedition
D.visualstudio2005teamarchitectedition
14、在Visual Basic中，可以被称为对象的是（ ）
A.窗体B.控件、窗体和属性C.空间和窗体D.窗体、空间和方法
15、要使当前窗体的标签控件lblshow显示“欢迎使用VB.NET”，以下（）语句是正确的
A.form1.text=”欢迎使用VB。
Net”
B.lblshow.text=”欢迎使用VB。
Net”
C.lblshow.name=”欢迎使用VB。
Net”
D.lblshow.caption”欢迎使用VB。
Net”
主观题
1、请编写函数fun（a），其函数功能是：
计算a的阶乘，并返回结果。
注意：
不得改动程序已有的任何代码。
编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）
A为：
文本框
阶乘结果为：
文本框
计算
PublicClassForm1
PrivateFunctionfun（ByValaAsInteger）AsLong
'#############请在此区间填写你的代码#############
'###############################################
EndFunction
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimaAsInteger
IfIsNumeric（TextBox1.Text）=0OrTextBox1.Text=""Then
MessageBox.Show（"请确定输入了a的值,并且只能为数字"）
ExitSub
EndIf
a=CInt（TextBox1.Text）
TextBox2.Text=fun（a）
Dimfn_inputAsInteger
DimmystrAsString
fn_input=FreeFile（）
FileOpen（fn_input,"analysis.vbin",OpenMode.Input）
mystr=LineInput（fn_input）
a=CInt（mystr）
FileClose（fn_input）
DimmystreamwriterAsNewStreamWriter（"data.vbout"）
mystreamwriter.Write（fun（a））
mystreamwriter.Close（）
EndSub
EndClass
2、在窗体中添加一个Panel控件，Name属性值改为“my_panel”，BorderStyle属性值改为“Fixed3D”。
3、在窗体中添加一个Timer控件，Enabled属性值改为“True”，Interval属性值改为“500”。
、
套题四
1、下面4个选项中属于字符型数据的是（）
A.“hello”B.’hello’C.helloD.#hello
2、若dima（）asinteger={1,2,3,4,5},则a.length的值（）
A.4B.5C.nullD.6
3、定义字符串变量：
DimstrInputAsString=“VisualBasic2005”
DimstrSubStr1AsString
计算子串：
strSubStr1=strInput.Remove（2,4）
则strInput的值为：
A.visualbasicB.vibasic2005C.sualD.alba
5.要使TextBox控件能够显示多行，应设置（）属性为True
A.visiableB.enabledC.multilineD.text
6、下列赋值语句正确的是（）
A．A=B+CB.-B=AC.2=A+BD.B+C=A
7.当在文本框中输入“ABCD”时，标签上显示的是（）。
SubTextBox1_TextChanged（……）HandlesTextBox1.TextChanged
Label1.Text&=TextBox1.Text
EndSubAA
A.ABCDB.BC.AABABCABCDD.Ab
CABC
8.Sub过程与Function过程最根本的区别是（）
A.function过程可以有形参，sub过程不可以
B.sub过程可以直接使用过程名调用，而function过程不可以
C.sub过程不能返回值，而function过程能返回值
D.两种过程的参数传递方式不同
9.对下列程序段，说法正确的是（）
btnQuit.SetBounds（10,80,200,50）
A.btnquit对象的左边界距窗体的左边界是10像素，上边界距窗体的上边界为80像素
B.btnquit对象的左边界距窗体的左边界是200像素，上边界距窗体的上边界为50像素
C.btnquit对象的宽度为200像素，高度为80像素
D.btnquit对象的高度为80像素，宽度为200像素
10.Dimstr1,str2AsString
str1="北京奥运2008"
str2=str1.Substring（0,4）
那么str2的值为（）
A.北京B.北京奥运C.奥运D.是2008
11.按照匈牙利表示法，前缀为lbl表示哪一个控件。
A,ButtonB.labelC.listboxD.textbox
12、数学关系式3A.3<=X<=10
B.3C.x>3orx<10
D.314.按照匈牙利表示法，TextBox控件的前缀是（）
15、调用子过程后可以通过形参来改变两个实参值的语句是（）。
A.subf1（byvalnasinteger,byvalmasinteger）
B.subf2（byrefnasinteger,byvalmasinteger）
C.subf3（byrefnasinteger,byrefmasinteger）
D.subf4（byvalnasinteger,byrefmasinteger）
16.数学关系式x>10或者x<0表示成正确的表达式为
A.1010C.x<0orx>10D.010
17.可以同时删除字符串前导和尾部空白的函数是（）
A.LtrimB,rtrimC.trimD。
mid
18.以下变量名是正确的（）
A.是_alB.是123aC.是forD,是as
19.下面程序求两个数中的小数（）不正确
A.min1=iif（xBifxCmin1=iif（x>y,y,x）
Dify20.下列程序段的执行后，变量a,k的值分别为
Dima,kasinteger
a=5
Fork=1To0
a=a*k
Nextk
A,-16B.-116C.15D.1121
主观题
1、请编写函数fun（），其功能是：
计算2-500之间（包括2，500）素数的个数,并将其作为返回值。
注
升级会员 