a(1)=”231”:a(2)=”44”:a(3)=”23”:a(4)=”244”:a(5)=”124”
For i=5 To 4 step-1
k=i
For j=i-1 To 1 Step-1
If a(j) >a(k) Then k=j
Next j
If k<>i Then
t=a(k):a(k)=a(i):a(i)=t
End If
Next i
图1
图2
图3
图4
图5
Private Sub Command1_Click()
Dim x As Long
Dim y As Integer
x = Val(Text1.Text)
y =
Text3.Text =
End Sub
Function trans(n As Long, b As Integer) As String
Dim hex As String
hex = "0123456789ABCDEF"
Do while n<>0
r = n Mod b
n = n \ b
trans = + trans
Loop
End Function
Private Sub Command2_Click()
End Sub
Private Sub Command1_Click()
a=Val(Text1.text)
b=Val(Text2.text)
Do While a Mod b<>0
r=a Mod b
a=b
b=r
Loop
Text3.text=str(b)
End Sub
在Text1、Text2中分别输入30、6,则Text3中的值为( )
实现上述功能的VB程序如下,但加框处代码有错,请改正。
Function f(x As Double)As Double
Dim Y As Double
y=x^3-4*x^2+x+5: ‘(1)
End Function
Private Sub Command1_Click()
Dim a As Double,b As Double,m As Double,x As Double
a=Val(Text1.Text):b=Val(Text2.Text)
If f(a)*f(b)<0 And a<b Then
Do While a<=b
m=(a+b)/2
If Abs(f(m))<0.00001 Then Exit Do
If <0 Then ‘(2)
b=m
Else
a=m
EndIf
Loop
x=Format(m,“0.00000”) ‘Format函数用于定义输出的小数位数
List1.AddItem"["&Text1.Text&","&Text2.Text&"]" & "解为:"&x
Else
List1.AddItem"["&a&","&b&"]" & "重新输入区间"
EndIf
End Sub
以下说法正确的是( )
①选择设标按钮 ;
②在设置标记窗口中,把开始时间设为,结束时间设为,确定。
③点击(填编号:① 、②
)按钮完成删除。