Max=y
Else
Max=x
EndIf
EndFunction
如果：
Dima,b,cAsInteger
a=10
b=23
c=Max（a,b）
则a,b,c的值依次是：
10,23，23
92、VisualBasic的特点不包括下面的（不需编程）
93、在设计状态，列表框中的选项可以通过（Items）属性设置
94、下列赋值语句正确的是（A=B+C）
95、下面叙述不正确的是：
一个控件只能有一个事件处理过程
96、阅读程序：
###Private Sub Calculate （）###Dim S As Integer=0###For k As Integer=1 To 15###S+=k Mod 3### Next###MessageBox.Show（“S的值为：
”&S,”输出结果”）###End sub###程序运行后，弹出的消息框显示S的值（是15）
97、下列程序段不能分别正确显示1！
、2！
、3！
、4！
的值的是（）。
n=1
Forj=1to4
n=n*j
Nextj
MessageBox.show（n,i&"!
"）
98、在代码窗口，代码下有蓝色波浪线表示语法错误
99、不论任何控件，共同具有的属性是（Name）。
100、在VB.NET的集成开发环境中，下面不属于该环境编程语言的是（Pascal）
101、关于算法的描述正确的是：
?
算法执行的目的是通过对相关数据的处理，得到一个或多个结果输出内容
102、以下四个算术运算符中，优先级别最低的是mod
103、Dimx,yasInteger###x=2###Ifx<-1Then###y=x###Elsey=x*x###则y的值为
（是4）
104、语句“ifx=1then###y=1###endif”，下列说法正确的是x=1是关系，y=1是赋值
105、下面关于注释语句的叙述正确的是：
注释语句可以包含多行
106、以下有关VisualBasic语言描述中错误的是（用";"分隔一行中的多个语句）
107、使用哪个关键字声明形参，可以使形参具有选择性。
Optional
108、VB中可以通过icon属性设置应用程序的图标，下列选项中哪个是其支持的图像格式
ICO
109、关于定时器的说法中正确的是（当Enabled属性为False时，不产生Tick事件）
110、当窗体被加载时运行，发生的事件是（ Load ）
111、对建立良好的程序设计风格，下面描述正确的是（程序应简单、清晰、可读性好）
112、关于循环叙述正确的是：
For循环过程可以使用ContinueFor跳过一下语句的执行
113、下面过程运行后显示的结果是（234）。
PublicSubF1（ByRefnasInteger,ByValmasInteger）
n=nmod10
m=m\10
EndSub
SubButton1_Click（……）HandlesButton1_Click
Dimx,yasInteger
x=12
y=34
CallF1（x,y）
MessageBox.Show（x&""&y）
EndSub
114、dima（3）asshort，则以下语句正确的是redimpreservea（5）
115、下列说法不正确的是某些属性的值可以跳过不设置，系统自动设为空值
116、在块结构条件语句If-Then/Endif中（可以有任意多个ElseIf-Then语句）
117、Cint（198.555*100+0.5）/100的值是（是198.56）
118、要求从文本框中输入密码时在文本框中只显示#号，则应用在此文本框的属性窗口中设置Passwordchar属性值为#
119、在VisualBasic中，程序的执行顺序是（由事件驱动）
120、下列表达式中不能判断x是否是偶数的是x\2=0
121、逻辑表达式的Not"a">"b"and9<3or9>3的值为Fasle
122、为把圆周率的近似值3.14159存放在变量PI中，应该把变量PI定义为（Dim PI As Single）
123、对于整数intX∈[0,100]，在VisualBasic中正确的写法是：
intX>=0AndintX<=100
124、以下（forx=3to-3step-3……Next）是正确的for…Next结构
125、Dimstr1,str2AsString###str1="北京奥运2008"###str2=str1.Substring（0,4）###那么str2的值为（北京奥运）
126、要使当前Form1窗体的标题栏显示“欢迎使用”，以下（Me.Text="欢迎使用"）是正确的。
127、按照匈牙利表示法，前缀为lbl表示哪一个控件。
Label
128、以下选项中，不合法的Visual Basic变量名（是For）
129、下列数组声明语句中正确的是（Dima（3,4）AsInteger）。
130、退出For循环可使用的语句为（ExitFor）
131、关于数据类型转换，错误的说法：
使用转换函数转换不同类型的数据值时，不会造成有效数据位的丢失。
132、现有语句：
y=IIf（x>0, x Mod 3, 0） ，设x=10，则y的值（是1）
133、Dimstr,str1AsString###str="ABCABBABA"###str1="AB"###那么str.Indexof（str1，2）的值为（是3）
134、以下变量名是正确的（是_a1）
135、引用列表框ListBox1最后一个数据项应使用（ListBox1.Items（ListBox1.Items.Count-1））。
136、当窗体上有多个控件时，最多只有
（1）个控件是活动的
137、当对被选择的控件进行对齐、调整大小等操作时，将以（基准控件）为准
138、定义枚举类型的变量用的关键字是（Enum ）
139、按照匈牙利表示法，TextBox控件的前缀是（txt）
140、下面4个选项中属于字符型数据的是（"Hello"）
141、调用子过程后可以通过形参来改变两个实参值的语句是（Subf3（ByRefnasinteger,ByRefmasInteger））。
142、下面叙述不正确的是对象和类有时也指同一概念
143、数学关系式x>10或者x<0表示成正确的表达式为x<0orx>10
144、由单精度浮点型的数据组成的字节数是（4）
145、下列符号常量的声明中，不合法的是（ConstaAsDouble=Sin
（1） ）
146、DimxAsinteger=3-x=x/2x的值为（是2）
操作题
1、请编写函数f（a），其功能是：
计算一个长度为5的一维整形数组a中最大值与最小值的差，并作为函数的返回值。
###例如：
从文本框中输入15892，差为8。
###数组中的值需要自己在文本框中输入。
###注意：
不得改动程序已有的任何代码。
编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）。
DimmaxAsInteger=a（0）
DimminAsInteger=a（0）
ForiAsInteger=0To4
Ifmaxmax=a（i）
EndIf
Ifmin>a（i）Then
min=a（i）
EndIf
Next
Return（max-min）
2、请编写函数f（x），其功能是：
根据下面的公式，计算通过文本框输入的x的值对应的y值。
###计算公式为x<-1时，y＝x；－1≤x＜0时，y=2x;x≥0时，y＝5x+1。
###注意：
不得改动程序已有的任何代码。
编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）。
Ifx<-1Then
Returnx
ElseIfx<0Then
Return（2*x）
Else
Return（5*x+1）
EndIf
3、请编写函数f（x），其功能是：
判断一个大于或等于3的正整数是否是素数，###如果是素数函数返回1，否则返回0。
例如：
输入37，函数返回1；输入40，函数返回0。
###注意：
不得改动程序已有的任何代码。
编写完成后至少执行一次你的程序以验证正确性（运行后点击“判断”按钮）。
DimiAsInteger
Fori=2Tox
IfxModi=0Then
ExitFor
EndIf
Next
Ifx=iThen
Return1
Else
Return0
EndIf
4、请编写函数fun（），其功能是：
计算2-500之间（包括2，500）素数的个数,并将其作为返回值。
###注意：
不得改动程序已有的任何代码。
编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）。
Dimm,n,pAsInteger
p=1
Form=3To500
Forn=2Tom
IfmModn=0Then
ExitFor
EndIf
Next
Ifm=nThen
p=p+1
EndIf
Next
Returnp
5、请编写函数fun（），其功能是：
计算a到b之间“个位数与十位数相等”的数的个数（包括a,b），并返回该值。
###注意：
不得改动程序已有的任何代码。
编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）
ForxAsInteger=aTob
If（xMod10）=（xMod100）\10Then
fun=fun+1
EndIf
Next
Returnfun
6、请编写函数fun（a），其函数功能是：
计算a的阶乘，并返回结果。
###注意：
不得改动程序已有的任何代码。
编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）
Ifa=0Then
fun=1
Else
fun=a*fun（a-1）
EndIf
Returnfun
7、请编写函数fun（a，b），其函数功能是：
计算a到b区间内（包括a、b）所有不能整除3的整数之和，并返回结果。
窗体上已经给出a,b的值。
###例如：
a=1,b=4。
处理后，结果为7。
###注意：
不得改动程序已有的任何代码。
编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）
ForiAsInteger=aTob
IfiMod3<>0Then
fun=fun+i
EndIf
Next
Returnfun
8、请编写函数fun（a，b），其函数功能是：
计算a到b区间内（包括a、b）所有除3余数为2的整数之和，并返回结果。
窗体上已经给出a,b的值。
###例如：
a=1,b=4。
处理后，结果为2。
###注意：
不得改动程序已有的任何代码。
编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）
ForiAsInteger=aTob
IfiMod3=2Then
fun=fun+i
EndIf
Next
Returnfun
9、完成fun（a,b）函数，要求实现a到b的累加,并返回结果。
启动调试后，点击"累加"按钮就会调用fun函数，a和b会被自动赋值1和100（即a和b不需要再声明和赋值，直接使用即可），在窗体控件textbox1中会显示调用fun（）函数的结果！
###注意：
不要改动fun以外的任何代码！
代码编写完成后一定要启动调试，并点击"累加"按钮执行！
ForiAsInteger=
升级会员 