1. VB 这道题怎么写语句
1、t1,t2是变量,用于存储临时信息
2、InputBox("请输入身高", , Int(Rnd * 70 + 100)) 是弹出一个输入对话框,"请输入身高",是该对话框显示的提示内容 接着的两个逗号之间的内容本来是该输入对话框的标题 没有就是默认 Int(Rnd * 70 + 100)就是默认值, 这里表示随机出现一个 int 数据 这里他的意思就是 一个人的默认身高为 170-179 cm 可以换成其他的数字
这样也行,只是 输入非数字的话 会出现错误
Private Sub Command1_Click() t1 = InputBox("请输入身高", , ) Text1.Text = int(t1); t2 = InputBox("请输入体重", , ) Text2.Text = int(t2);//忘记VB中 这里要不要加分号了 End Sub
2. 请问这个VB题怎么写呀
hiphotos.baidu.com/zhidao/wh%3D450%2C600/sign=2761f8c95d4e9258a6618eeaa9b2fd6e/b7003af33a87e9501b68e3c11b385343fbf2b41b!
Private Sub Command1_Click()
Dim t As String
t = List1.List(List1.hiphotos.baidu.com/zhidao/wh%3D600%2C800/sign=1aea7b4286b1cb133e3c3415ed647a76/b7003af33a87e9501b68e3c11b385343fbf2b41b.Caption = ".AddItem "
If InStr(Text2;确定"
3. 这道VB题的代码怎么写呢
Private Sub Form_Click()
Dim A(1 To 4, 1 To 4) As Integer
Dim s
As String
' 如果需要以“输入”数据的形式,可以用 InputBox 输入
's = InputBox("输入第一行数据(用空格分格): "): GetIn A, 1, s
's = InputBox("输入第二行数据(用空格分格): "): GetIn A, 2, s
's = InputBox("输入第三行数据(用空格分格): "): GetIn A, 3, s
's = InputBox("输入第四行数据(用空格分格): "): GetIn A, 4, s
s = "25 36 78 13": GetIn A, 1, s
s = "12 26 88 93": GetIn A, 2, s
s = "75 18 22 32": GetIn A, 3, s
s = "56 44 36 58": GetIn A, 4, s
Dim i
As Integer
Dim j
As Integer
'1 输出数组对角线上的数:
Cls
Print "第一条对条线"
For i = 1 To 4
Print A(i, i);
Next
Print "第二条对条线"
For i = 1 To 4
Print A(i, 5 - i);
Next
'2 交换第一和第三行
For i = 1 To 4
t = A(1, i)
A(1, i) = A(3, i)
A(3, i) = t
Next
'3 交换第二列和第四列
For i = 1 To 4
t = A(i, 2)
A(i, 2) = A(i, 4)
A(i, 4) = t
Next
'4 输出处理后数组
Print "4 输出处理后数组"
For i = 1 To 4
For j = 1 To 4
Print A(i, j);
Next
Next
End Sub
Private Sub Do1(A() As Integer)
Dim i
As Integer
Cls
Print "第一条对条线"
For i = 1 To 4
Print A(i, i);
Next
Print "第二条对条线"
For i = 1 To 4
Print A(i, 4 - i);
Next
End Sub
Private Sub GetIn(A() As Integer, iRow As Integer, s As String)
On Error Resume Next
Dim i
As Integer
Dim arr
arr = Split(s, " ")
For i = 0 To 3
A(iRow, i + 1) = arr(i)
Next
End Sub
4. VB题怎么做
dim a(8) as integer,i as integer,j as ingeter
for i = 1 to 7 '输入分数
a(i)=inputbox("请输入分数",,0)
next i
for i = 1 to 6 '以下是排序,从小到大
for j = i+1 to 7
if a(i)> a(j) then a(8)= a(j):a(j)=a(i):a(i)=a(8)
next j
next i
a(0)=0
for i = 2 to 6 '以下是从第二个开始到第六个求和,去掉了一个最大值和最小值
a(0) = a(0)+a(i)
next i
text2=a(0) '把结果输入到对话框中
5. 编程,vb,这道题怎么写
Private Sub Command1_Click()Dim a(10) As IntegerDim sum As IntegerDim avg As DoubleDim n As Integern = 0sum = 0For i = 1 To 10 Randomize a(i) = Int(Rnd * 90) + 10 sum = sum + a(i)Next iavg = sum / 10For i = 1 To 10 If a(i) > avg Then n = n + 1 End IfNext iMsgBox ("平均数是" & avg & ",比平均数大的数字有" & n & "个")End Sub。
6. vb编程题代码如何写
Public Function jiecheng(i As Integer) As Double
a = 1
For j = 2 To i
a = a * j
Next j
jiecheng = a
End Function
Private Sub Command1_Click()
Dim i As Integer
Dim e As Double
i = 1: e = 1
While jiecheng(i) < 10000000
e = e + 1 / jiecheng(i)
i = i + 1
Wend
Label1.Caption = e
End Sub
Private Sub Command2_Click()
End
End Sub
7. (此题的VB编程怎么写)
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, x1 As Single, x2 As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If b ^ 2 - 4 * a * c < 0 Then
v = MsgBox("此方程没有实根")
End If
If b ^ 2 - 4 * a * c >= 0 Then
x1 = (-b + S(b ^ 2 - 4 * a * c < 0) / (2 * a))
x2 = (-b - S(b ^ 2 - 4 * a * c < 0) / (2 * a))
Text4.Text = x1
Text5.Text = x2
End If
End Sub
8. 问大家一个关于VB的超简单题
代码:
Private Sub Command1_Click()
Dim s As String
s = InputBox("请输入2个字符")
Print "反向后的结果是:"
Print Right(s, 1) + Left(s, 1)
End Sub
图: