相关试卷
-
1、在Word中，选择一个矩形块（垂直的一个文字块）时，应按住键并拖动鼠标左键
-
2、在Word中，调整图片大小可以用鼠标拖动图片四周任意控制点，但只有拖动的控制点，才能使图片等比例缩放。
-
3、在Word中，对选中的文字进行复制，复制的快捷键是。
-
4、在Word中，要统计文档中的字符数，通过选择“审阅”功能选项卡，单击“”功能组中的“字数统计”按钮来实现。
-
5、在Word中，对插入的图片有浮动式和嵌入式两种显示形式，默认插入的图片是
-
6、在Word编辑状态下，可以利用“页面布局”选项卡中的“”功能组来设置每页的行数和每行的字符数
-
7、按网络传输方式不同，将网络分为和。
-
8、根据光在光线中传播方式光线有两种和。
-
9、RJ-45接口采用塑料材料制作。由于其外观坚硬剔透，常被成为。
-
10、同轴电缆由四层组成，它的绝缘层用于和间的绝缘。
-
11、压线钳通常用xPyC的方式表示，P表示接口的数量，C表示接口引脚的数量。
-
12、模拟信号数字化有三个基本过程：、、。
-
13、无线局域网在室内的有效传输距离 ， 在室外为。
-
14、WEB服务器的主机名一般为：。
-
15、通常双绞线有两对或更多对这样缠绕在一起的导线组成，依靠相互缠绕（双绞）作用，来减少或消除和。
-
16、利用通信设备和线路，将处在不同地理位置、操作相对独立的多台连接起来，再配置一定的 ， 实现计算机软、硬件及信息传递的计算机系统，可称为计算机网络。
-
17、在窗体上有两个标签（Label1和Label2）一个命令按钮(Command1)，单击命令按纽Command1，从键盘中输入学生姓名和成绩，统计并在标答中输出最高学生姓名和成绩及最低学生姓名和成绩。当从键盘中输入-1时，结束输人。程序代码如下，请补充完善程序。
Private Sub Commaadl Click()
Dim xm As String，xmmax as String ，xmmin as String
Dim cj As Single，cjmax As Single，cjmin As Single
xm=InputBox("请输人学生姓名")
cj=InputBox("请输人学生成绩")
xmmax=xm
cjmax=cj
xmmin=xm
cjmin=cj
Do While
If Then
cjmax=cj
xmmax=xm
End if
If Then
cjmin = cj
xmmin=xm
End if
xm=InputBox("请输人学生姓名")
cj=InputBox("请输人学生成绩")
Label1.Caption ="学生"&xmmax&"成绩最高”&cjmax
Label2.Caption ="学生"&xmmin &“成绩最低"& ejmin
End Sub
-
18、在窗体上有两个列表框(List1和List2)、一个命令按钮(Command1)和一个标签
(Label1)，其中列表项中已通过属性窗口添加了十个列表项。标签用于显示List1中的列表项个数。程序运行后，在任何一个列表框中选择一个项目，然后单击命令按钮Command1，即可将选中的列表项移动到另一个列表框中，若没有选择列表项，则系统提示“请选择一个列表项”。程序代码如下。请补充代码完成程序。
Private Sub Command1 Click( )
If Listl.ListIndex >=Then
List2.AddItem
List1.Removeltem
Labell.Caption=
Elself List2. ListIndex >=Then
List1.Additem
List2.Removeltem
Else
MsgBox"请选择一个列表项"
End If
End Sub
-
19、窗体上有一命令按钮(Command1)，单击此按钮，程序运行后使用“冒泡”法将数组x中的十个数从小到大进行排列，将排序前后的数据输出到窗体上。程序代码如下。请将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim x
x=Array(123，23.45.5.9.53.78、99，295.654)
Print "排序前数组数据"
For i=1 To 10
Print x(i);
Next i
Print
For i = 1 To
For j = i+1 To
If x(i) x(j) Then
a = x(i)
x(i)= x(j)
x(j)= a
End lf
Next
Next
Print "排序后数组数据";
For i = 1 To 10
Print x(i);
Next i
Print
End Sub
-
20、在窗体上有一个命令按钮(Command1)，单击Command1产生50个10到100的随机数统计其中能被6整除的个数，并将结果在窗体上打印出来。代码如下，请补充完善。
Private Sub Command1_Click()
Dim n As Integer，i As Integer, count As Integer
Randomize
Print"本次随机产生10到100且能被6整除的数是:";
For i = 1 To 50
n=
IfThen
Print n;
count =
End If
Next i
Print“共”;count; "个"
End Sub