Private Sub Command1_Click()
Dim x as '定义 x 为整型
x = Val(Text1.Text)
Then '条件语句
Text2.Text=
Else
Text2.Text = Str(0.2 + 0.1 * (x - 3))
End If
End Sub
Dim a(1 To 9) As Integer, m As Integer, k As Integer, i As Integer
a(1)=2 : a(2)=8 : a(3)=3 : a(4)=4 : a(5)=5 : a(6)=6 : a(7)=1 : a(8)=7 : a(9)=9
m = 1: k = 1
For i = 2 To 9
If a(i) > a(i - 1) Then
k = k + 1
If k > m Then m = k
Else
k = 1
End If
Next i
Text1.Text = Str(m)
该程序段运行后,文本框Text1中显示的内容是( )
具体方法为:(1)若身份证号为15位,则根据第15位数字来判断,若为偶数则性别“女”,否则为“男”;(2)若身份证号为18位,则根据第17位数字来判断,若为偶数时则性别为“女”,否则为“男”。
图1
Dim x As String, n As Integer, s As String
x = Text1.Text
n = Len(x)
If n = 15 Then
s = Mid(, Len(x), 1)
If Val(s) Mod 2 = 0 Then
Text2.Text = "女"
Else
Text2.Text = "男"
End If
Else
s=Mid(x, 17, 1)
If Then
Text2.Text = "男"
Else
Text2.Text = "女"
End If
End If
Private Sub Form_Click( )
Dim x as Integer, n as Integer
x=1
n=0
Do While x < 20
n=n+1
x=x * 3
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
max=10 000
For i=1 To 10
s=0
For j=i To 10
s=s+a(j)
If s>max Then max=s
Next j
Next i
已知数组a(1)到a(10)的原始数据为6,-6,8,-7,7,2,-2,-1,-2,4。程序执行后,变量max的值为( )
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next i
End Sub
该程序计算了一个表达式的值,这个表达式是( )
(单选,填字母: A .求所有子串/ B.Forml / C .子串 .frm / D .工程 l . vbp )
Private Sub Command 3_ Click ()
Dim s As String , sum As Integer
Dim i As Integer , t As Integer , j as Integer
s = Text1. Text
t = Len ( s ) : sum = 0
For i = 1 To t
For j = i To t
List1.Addltem
sum=sum + 1
Next j
Next i
List1. Addltem "总共有"+ + "个子串"
End Sub
Dim a(1 To 5) As Integer
a(1) = 1
For i = 2 To 5
a(i) = Int(Rnd() * 3) + 3
Next i
For i = 2 To 5
If a(i) Mod 2 = 1 Then
a(i) = a(i) + a(i - 1)
Else
a(i) = a(i) / 2
End If
Next i
执行程序后,a数组各元素可能是( )
Dim Sum As Long
Dim i As Long
Sum=0
i=0
Do While Sum<10
i=i+1
Sum=Sum+i*i
Loop
Print Sum