相关试卷
-
1、根据光在光线中传播方式光线有两种和。
-
2、RJ-45接口采用塑料材料制作。由于其外观坚硬剔透，常被成为。
-
3、同轴电缆由四层组成，它的绝缘层用于和间的绝缘。
-
4、压线钳通常用xPyC的方式表示，P表示接口的数量，C表示接口引脚的数量。
-
5、模拟信号数字化有三个基本过程：、、。
-
6、无线局域网在室内的有效传输距离 ， 在室外为。
-
7、WEB服务器的主机名一般为：。
-
8、通常双绞线有两对或更多对这样缠绕在一起的导线组成，依靠相互缠绕（双绞）作用，来减少或消除和。
-
9、利用通信设备和线路，将处在不同地理位置、操作相对独立的多台连接起来，再配置一定的 ， 实现计算机软、硬件及信息传递的计算机系统，可称为计算机网络。
-
10、在窗体上有两个标签（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
-
11、在窗体上有两个列表框(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
-
12、窗体上有一命令按钮(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
-
13、在窗体上有一个命令按钮(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
-
14、设计一个计时小程序。窗体上有一个文本框(Text1)、三个命令按钮(Command1.Command2和Command3)，一个定时器(Timer1)、程序运行后单击按钮Command1开始计时，文本框中显示计时数据(秒数)单击按钮Command2停止计时.单击按钮Command3退出程序。请将下面代码补充完善。程序代码:
Option Explicit
Dim n
Private Sub Command1_Click()
N=0
Timer1.=1000
Timer1.Enabled=
End Sub
Private Sub Commend2 Click()
Timer1.Enabled =
End Sub
Private Sub Command3_Click()
Me
End Sub
Private Sub Form_Load()
Timer1.Enabled =
Text1.Text =0
Text1.Locked=True
End Sub
Private Sub Timer1_Timer()
N=n+1
Text1.Text =
End Sub
-
15、通过属性设置，可以在窗体、图片框或图像框中装入图片。
-
16、设计模式下击工具箱中的图标，可以完成在窗体上添加相应的控件。
-
17、在“do while<条件>loop"语句中，若条件为0，则循环次数是_次，若条件是1，则循环次数是次。
-
18、实现大写字母转换为小写字母的函数是实现小写字母转换为大写字母的函数是
-
19、如果将定时器时间间隔设置为0.5秒，那么它的Interval属性为。
-
20、在Visual Basic工程中标准模块的扩展名是一个工程可以有个标准模块。