计算机班网络协议编程复习资料.doc

计算机班网络协议编程复习资料选择题1在安装Visual Studio.NET2003时，下面哪个软件必不可少(C)AWindows 2000 Professional BVB6.0CIIS DApach2下面哪个不是面向对象编程的优点(B)A维护简单B支持嵌入式编程C可扩充性D代码重用1设置窗体标题栏上显示内容的属性是（D）ANameBEnableCVisibleDText1. 设置窗体图标的属性是（D）ABackColorBTextCBackgroundImageDIcon1. 设置窗体透明度的属性是（A）AOpacityBBackColorCVisibleDEnable1. 设置窗体背景颜色的属性是（）AEnableBVisibleCBackColorDOpacity1. 设置窗体可见性的属性是（C）AOpacityBBackColorCVisibleDEnable2.单击窗体时发生什么事件（B）AClosedBClick CActivateDLoad2.关闭窗体时发生什么事件（A）AClosedBClick CActivateDLoad2.第一次显示窗体时发生什么事件（D）AClosedBClick CActivateDLoad2.窗体获得焦点时发生什么事件（C）AClosedBClick CActivateDLoad2.鼠标指针离开窗体时发生什么事件（B）AClosedBMouseLeave CActivateDLoad3.激活窗体并给于它输入焦点的方法是（B）AHideBFocusCShowDActivate3.显示窗体并使它可见的方法是（C）AHideBFocusCShowDActivate3.把输入焦点设置到窗体的方法是（D）AHideBFocusCShowDActivate3.隐藏窗体的方法是（A）AHideBFocusCShowDActivate3.关闭窗体的方法是（C）AHideBFocusCCloseDActivate4.设置标签根据字体大小自动调整显示内容的属性是（D）ATextBAnchorCTextAlignDAutoSize4.设置标签中文本对齐方式的属性是（C）ATextBAnchorCTextAlignDAutoSize4.设置标签图像的属性是（A）AImageBAnchorCTextAlignDAutoSize4.设置标签外观的属性是（C）AImageBAnchorCBorderStyleDAutoSize4.设置标签显示文本的属性是（D）AImageBAnchorCBorderStyleDText5.设置文本框只读的属性是（B）APasswordCharBReadOnlyCBorderStyleDText5.创建密码文本框的属性是（A）APasswordCharBReadOnlyCBorderStyleDText5.当文本框获得焦点时触发的事件是（D）ATextChangedBKeyPressCLostFocusDGotFocus5.当文本框失去焦点时触发的事件是（C）ATextChangedBKeyPressCLostFocusDGotFocus5.当文本框中文本内容发生改变时触发的事件是（A）ATextChangedBKeyPressCLostFocusDGotFocus6.下面哪种形式为按钮创建快捷方式是正确的（D）A#PrinterB￥PrinterC PrinterD& Printer6.设置按钮显示方式的属性是（B）ATextBFlatStyleCImageDEnable6.设置按钮显示图片的属性是（C）ATextBFlatStyleCImageDEnable6.设置单选按钮选中状态的属性是（D）AEnableBTextCVisibleDCheck6.当单选按钮值改变时触发的事件时（C）ALoadBCloseCCheckedDText7.设置图形框背景图片的属性是（B）AImageBBackgroundImageCSizeDSizeMode7.设置图形框要显示图片的属性是（A）AImageBBackgroundImageCSizeDSizeMode7.设置图形框大小的属性是（C）AImageBBackgroundImageCSizeDSizeMode7.设置图形框显示格式的属性是（D）AImageBBackgroundImageCSizeDSizeMode7.设置图形框位置的属性是（B）AImageBLocationCSizeDSizeMode8.设置启动Timer控件的属性是（B）AStartBEnableCLoadDClick8.设置Timer控件触发事件的时间间隔的属性是（D）AStartBEnableCLoadDInterval8. Timer控件能触发的事件是（B）AclickBTickCLoadDchanged8.设置停止Timer控件的属性是（B）AStartBEnableCLoadDClick8.Timer控件触发事件的时间间隔单位是（D）AsBusCksDms9.用于统计列表框中列表项总个数的属性是（B）AColumnBCountCItemsDSelected9.用于设置列表框列表项的属性是（C）AColumnBCountCItemsDSelected9.用于设置列表框是否允许多列显示的属性是（D）AColumnBCountCItemsDMultiColumn9.用于设置列表框中被选取列表项索引值的属性是（B）AColumnBSelectedIndexCItemsDMultiColumn9.用于获取列表框中被选中列表项的属性是（D）AColumnBSelectedIndexCItemsDSelectedItem10. 用于设置列表框每一列宽度值的属性是（D）AColumnBCountCItemsDColumnWidth10.用于设置列表框中允许选择列表项数目的属性是（A）ASelectionModeBCountCItemsDColumnWidth10.用于设置列表框中列表项排列顺序的属性是（C）ASelectionModeBCountCSortedDColumnWidth10.用于设置选择列表框是否在选取列表项同时选中复选框的属性是（B）ASelectionModeBCheckOnClickCSortedDColumnWidth10.用于获取选择列表框中复选列表中第i个项是否选中的属性是（C）ASelectionModeBCheckOnClickCGetItemCheckedDColumnWidth11.用于设置组合框样式的属性是（C）AStyleBDropCDropDownStyleDImage11.用于设置组合框中文本框内输入最大宽度的属性是（B）AStyleBMaxLengthCDropDownStyleDImage11.用于取消列表框中当前所有选中项的方法是（D）AFindStringBItems.AddCItems.ClearDClearSelected11.添加一个列表项到列表框中的方法是（B）AFindStringBItems.AddCItems.ClearDClearSelected11.清除列表框中所有列表项的方法是（C）AFindStringBItems.AddCItems.ClearDClearSelected12. 向列表框指定索引值位置处添加列表项的方法是（D）AFindStringBItems.AddCItems.ClearDItems.Insert12. 用于删除列表框中指定列表项的方法是（A）AItems.RemoveBItems.AddCItems.ClearDItems.Insert12.获取选择列表项是否处于选中状态的方法是（C）ASetItemCheckedBCheckedCGetItemCheckedDGetItem12.用于设置选择列表项选中状态的方法是（A）ASetItemCheckedBCheckedCGetItemCheckedDGetItem12.用于设置状态栏在窗体上显示位置的属性是（C）ALockedBShowPanelsCDockDPanels13. 用于设置是否锁定状态栏位置的属性是（A）ALockedBShowPanelsCDockDPanels13. 用于设置状态栏面板框架的属性是（D）ALockedBShowPanelsCDockDPanels13. 用于设置是否按照状态栏面设置值显示的属性是（B）ALockedBShowPanelsCDockDPanels13.用于设置是否允许在列表查看控件中选择多项的属性是（C）AItemsBMultiSelectionCHideSelectionDView13.用于设置列表查看控件中选项不同视图显示方式的属性是（D）AItemsBMultiSelectionCHideSelectionDView14.以下合法的Visual Basic.NET标识符是（A）AountB4abcC?a5Da.c15.对DoLoop Where来说，以下说法错误的是（A）A如果条件表达式为False，则一次也不执行循环体B条件表达式可以是关系表达式、逻辑表达式或常数C循环体中可以使用Exit Do语句D如果条件表达式总是为True，则不停地执行循环体填空题1.表达式7Mod2+37*2的值是 1 1.表达式(91Mod2)And(845)的值是 true 1.表达式Not(Not(“b”z”)的值是 false 1.表达式(“b”z”)Or(6=6)的值是 true 1.表达式(“b”z”)Xor(6=6)的值是 true 2.若a=8，b=3，c=0，执行语句MsgBox(abc)后，显示的值是 false 2.设x=16,y=28,z=17,则表达式xz) Or zx的值是 false 2.设a=22,b=75,则表达式ab And ba) And (b100)的值是 false 2.设a=1,b=7,则表达式(ab) Or (b0)的值是 true 3.字符串连接运算符包括&和 + 3.在默认情况下，一维数组a第1个项目表示的方式是 a(0) 3. VB.NET变量的命名规则要求，变量不能超过 16383 个字符3.Integer数据类型在内存中占用 4 字节空间3.Double数据类型在内存中占用 8 字节空间4. 以下程序的执行后，TextBox1.Text结果为 16 Dim a As Integer=0，j As IntegerFor j=1 TO 20 Step 2 a=a+j5Next jTextBox1.Text=Str(a)4. 以下程序的执行后，TextBox1.Text结果为 This 5 25 Dim x As Integer = 1, a As Integer = 4, b As Integer = 9Dim Str1, Str2 As StringStr1 = This & 5Str2 = 125TextBox1.Text = Str1 + Str(Val(Str2) / 5)4. 以下程序的执行后，TextBox1.Text结果为 5050 Dim i,sum As IntegerFor i=100 To 1 Step -1Sum=sum+iNext iTextBox1.Text =Sum4. 以下程序的执行后，TextBox1.Text结果为 8 dim x,y,z as integerx=2y=3z=Math.pow(x,y)TextBox1.Text =z4. 以下程序的执行后，TextBox1.Text结果为 5 dim str1,lenstr1 as integerstr1=”Basic”lenstr1=Len(str1)TextBox1.Text =z5.执行下面程序段，c的输出结果是 BBABBA dim i as integerdim str,a,b,c as stringstr=”abbacddcba”for i=6 to 2 step-2a=Mid(str,i,i)b=Microsoft.VisualBasic.Left(str,i)c=Microsoft.VisualBasic.Right(str,i)c=UCase(a & b & c)next编程题1.编写一个程序，输入3种商品的单价和购买数量，计算并输出总金额。如果总金额超过200.01，则系统出现“超过限额”提示。1.编写一个程序，计算累加和1+3+5+29。1.编写一个程序，通过键盘输入3个数，单击按钮，选出其中最大的数。1.编写程序输入一个正整数，判断该数是不是素数。2. 某数组有20个元素，其值为120范围内的随机整数，实现该数组进行升序和降序的排序。运行结果如下图所示：（3个标签控件其各自的Name属性为label1、label2、label3）Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = Label2.Text = Label3.Text = Dim a(9), i, j, myswitch As Integer Randomize() For i = 0 To 9 a(i) = Int(20 * Rnd() + 1) Label1.Text = Label1.Text & Space(2) & a(i) Next Label1.Text = Label1.Text & 原始序列 1 使用冒泡法实现升序排序 2 3 4 5 6 7 8 9 保存排序后的数字序列到字符型变量 10 Label2.Text = Label2.Text & 升序序列End Class2. 设计一个计算行李托运费的程序。设运费计算规定为：行李重量在50Kg以内按0.5元Kg计算；超过50Kg在100Kg以内超出部分按0.8元Kg计算；100Kg以上超出部分按1元Kg计算。要求计算结果保留2位小数，如下图所示。（文本框的Name属性为txtWeight，标签Label2的Name属性为lblCost，按钮Button1的Name属性为btnOK，按钮Button2的Name属性为btnClear） Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click Dim sngWeight As Single Dim sngCost As Single sngWeight=txtWeight.Text Select Case sngWeight Case 1 sngCost = sngWeight * 0.5 Case 2 3 Case Is 100 4 End Select 5 lblCost.Left = (Me.Width - lblCost.Width) / 2End Sub Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click txtWeight.Text = txtWeight.Focus() lblCost.Text = End Sub2. 使用DoLoop语句设计一个循环程序，要求程序产生一组6080的随机整数并显示到屏幕上，但在产生的随机数中只能有一个66。（按钮Button1和Button2的 Name属性分别为btnOK和btnQuit）Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = Me.Text = Do循环应用示例End SubPrivate Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click Label1.Text = Dim intNum As Integer Do 1 2 3 产生一个6080的随机整数 4 5 Label1.Text = Label1.Text & Chr(10) & Chr(10) & 程序结束End SubPrivate Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click EndEnd Sub2. VB.NET为用户提供了Math.Sqrt函数用于计算平方根值，但被开方值若为负数则无法得出正确的结果（如，-4的平方根应等于2i）。要求设计一个Function过程解决这一问题。（两个按钮的Name属性分别为Button1和Button2，文本框的Name的属性为Textbox1，两个标签的属性为Label1，label2）程序运行结果如下图所示： Public Class Form1 Sub myclear() TextBox1.Text = TextBox1.Focus() Label2.Text = End Sub Function mysqr(ByVal num) If num = 0 Then 1 Else 2 End If End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load myclear() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label2.Text = 3 4 居中显示 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 5 End SubEnd Class3.编写一个程序，通过VB.NET连接到Access数据库并操作数据库，单击下图中的按钮进行相应的数据库操作。Public Class Form19 Inherits System.Windows.Forms.Form Dim cn As Data.OleDb.OleDbConnection Dim ds As New Data.DataSet Dim dp As New OleDb.OleDbDataAdapter Dim k As Integer Dim dt As DataTable Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click cn = New OleDb.OleDbConnection(Provider=Microsoft.Jet.OLEDB.4.0;data source=D:db1.mdb) cn.Open() Dim cm1 As New OleDb.OleDbCommand(select * from a, cn) dp.SelectCommand = cm1 ds.Clear() dp.Fill(ds, biao1) cn.Close() TextBox1.Text = dt.Rows(0)(0) TextBox2.Text = dt.Rows(0)(1) k = 0 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click k = k + 1 If k = dt.Rows.Count - 1 Then TextBox1.Text = dt.Rows(k)(0) TextBox2.Text = dt.Rows(k)(1) Else End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click k = k - 1 End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim a1 As String Dim a2 As String a1 = Trim(TextBox1.Text) a2 = Trim(TextBox2.Text) cn.Open() Dim cm2 As New OleDb.OleDbCommand( a set nam= & a2 & where id= & a1 & , cn) cm2.ExecuteNonQuery() cn.Close() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim a1 As String Dim a2 As String a1 = Trim(TextBox1.Text) a2 = Trim(TextBox2.Text) cn.Open() Dim cm3 As New OleDb.OleDbCommand( from a where id= & a1 & , cn) cm3.ExecuteNonQuery() cn.Close() End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click TextBox1.Text = TextBox2.Text = End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Dim a1 As String Dim a2 As String a1 = Trim(TextBox1.Text) a2 = Trim(TextBox2.Text) cn.Open() Dim cm2 As New OleDb.OleDbCommand( a Values ( & a1 & , & a2 & ), cn) cm2.ExecuteNonQuery() cn.Close() End SubEnd Class第3题答案在这中间Public Class Form19 Inherits System.Windows.Forms.Form Dim cn As Data.OleDb.OleDbConnection Dim ds As New Data.DataSet Dim dp As New OleDb.OleDbDataAdapter Dim k As Integer Dim dt As DataTable Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click cn = New OleDb.OleDbConnection(Provider=Microsoft.Jet.OLEDB.4.0;data source=D:db1.mdb) cn.Open() Dim cm1 As New OleDb.OleDbCommand(select * from a, cn) dp.SelectCommand = cm1 ds.Clear() dp.Fill(ds, biao1) cn.Close() dt = ds.Tables(biao1) TextBox1.Text = dt.Rows(0)(0) TextBox2.Text = dt.Rows(0)(1) k = 0 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click k = k + 1 If k = 0 Then TextBox1.Text = dt