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)素数的个数,并将其作为返回值。
注