在天平盘上加10mg的砝码,天平偏转8.0格,此天平的分度值是()。
A.1.25mg
B.0.8mg
C.0.08mg
D.0.1mg
E.0.25mg
参考答案:A
执行下面程序,在文本框Text1中输入"21 23 2 3 5 17 54#"后,单击命令按钮Cmdl,数组元素A(1)的值是(),A(3)的值是(),A(5)的值是().
Option Explicit
Private Sub Cmd1_Click()
Dim A() As Integer,K As Integer
Dim L As Integer,S As String
S=Text1
Do
K=K+1
ReDim Preserve A(K)
L=InStr(S," ")
If L<>0 Then
A(K)=Val(Left(S,L-1))
S=Right(S,Len(S)-L)
Else
A(K)=Val(S)
End If
Loop Until L=0
Call Exchang(A)
For K=1 To 7
Text2=Text2 &A(K) & " "
Next K
End Sub
Private Sub Exchang(A() As Integer)
Dim i As Integer,Tem As Integer
Dim Point1 As Integer
Point1=1
For i=1 To UBound(A)
If A(i) Mod 3 =0Then
Tem=A(i)
A(i)=A(Point1)
A(Point1)=Tem
Point1=Point1+1
Next i
黏液水肿(myxedema)