vb实验合肥学校

1、vb实验4-1-3

贴问题，不要写标题。
不是所有人都知道你这个标题下是什么问题，

他们会你的问题，只看这个标题也无法回答。

2、vb实验不会

创建三个TextBox 分别为TextBox1,TextBox2,TextBox3.其中 TextBox1和TextBox2用来输出最小值和最大值.TextBox3用来显示产生的中奖号码
创建一个Button名称为Button1
复制以下代码 其中GetWinningNumber是获取中奖号码的函数 LowerLimit, UpperLimit为最小值与最大值(如果参数不是整数 将会报错 并不产生中奖号码.如果最小值比最大值大 那么会互换两者的值),AddData为返回中奖号码的参数.
Private Sub Command1_Click()
Dim WinningNumber As Integer
If GetWinningNumber(Text1.Text, Text2.Text, WinningNumber) Then Text3.Text = WinningNumber
End Sub
Private Function GetWinningNumber(LowerLimit, UpperLimit, AddData As Integer) As Boolean
Dim ll As Integer, ul As Integer
If IsNumeric(LowerLimit) = False Or IsNumeric(UpperLimit) = False Then
MsgBox "请输入有效整数!", vbExclamation + vbOKOnly, "错误"
GetWinningNumber = False
Exit Function
End If
If InStr(LowerLimit, ".") > 0 Or InStr(UpperLimit, ".") Then
'这里的代码是当输入的数据是小数时候的处理方案
'本例中如果输入的是小数 就报出错
MsgBox "请输入有效整数!", vbExclamation + vbOKOnly, "错误"
GetWinningNumber = False
Exit Function
End If
ll = CInt(LowerLimit)
ul = CInt(UpperLimit)
Dim tmp As Integer
If ll > ul Then
'当最小值比最大值大的时候 互转两者的值
tmp = ll
ll = ul
ul = tmp
End If
'下面的代码将在最小值与最大值中产生一个随机数
Randomize
AddData = Int(Rnd * (ul - ll + 1) + ll)
GetWinningNumber = True
End Function

3、vb实验操作

VB真的是很简单的了，吧书本上的知识全部仔细看一遍，然后就是上机多操作，至少要做几套，很多题目都是原题，即便不是原题，也大多相似，反正我当时考的时候觉得不难，不过你要我现在写我也写不好了，这个就是判断，用if then else，考前突击一下就过了，另外，机试比笔试重要，一定要多做题，多做题，多做题。把自己会的题目写完就OK了。

4、VB实验作业，急，马上要交

a(0)=text1(0),,,,,,a(9)=text1(9)
b=a(0) c=a(0)
for i=0 to 8
if a(i+1)>a(i) then b=a(i+1)
if a(i+1)<a(i) then c=a(i+1)
end for
df=(a(0)+,,,+a(9)-b-c)/8
text2=df

5、各位哥哥姐姐 帮忙写下VB实验报告 写1程序代码和实验过程 2结果分析 谢谢拉

.....入门ABC级的习题自己做做呗
打开VB，建立一个工程，在窗体上添加一个文本框textbox1，将文本框的backcolor设置为绿色；添加3个按钮，分别命名为MsgShow,MsgClear,MsgEnd
然后写入如下代码：
Private Sub Form_Load()
Me.Caption = "练习一习题"
End Sub

Private Sub MsgClear_Click()
Text1.Text = ""
End Sub

Private Sub MsgEnd_Click()
Unload Me
End Sub

Private Sub MsgShow_Click()
Text1.Text = "欢迎使用Visual Basic 6.0"
End Sub

6、VB综合实验

Dim x As Integer
Private Sub Command1_Click()
x = x + 1
End Sub
Private Sub Command2_Click()
Print x
End Sub

7、vb实验指导书实验5-5怎么做

Private Sub Command1_Click()
Dim delt!, a#, b#, c#
a = InputBox("输入系数a", , 1)
b = InputBox("输入系数b", , 3)
c = InputBox("输入系数c", , 2)
Label2.Caption = "a=" & a & ",b=" & ",c=" & c
delt = b * b - 4 * a * c
If delt >= 0 Then
delt = Sqr(delt)
Label1.Caption = "X1=" & (-b + delt) / 2 / a & vbCrLf & "X2=" & (-b - delt) / 2 / a
Else
Label1.Caption = "无实根"
End If
End Sub

8、合肥小学计算机老师考编，编程语言类主要看什么书。是VB、C语言？？？

VB简单一点，C语言稍难，建议看VB，考试应该都是题库，买本资料看看就会了

9、求助 vb实验

1.
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim z As String, zz As String

j = 1
zz = ""
For i = 1000 To 5000
z = Trim(Str(i))
If z = StrReverse(z) Then
zz = zz & " " & z
j = j + 1
If j = 10 Then
Print zz
zz = ""
j = 1
End If
End If
Next
If j <> 10 Then Print zz
End Sub

2.
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim z As String, zz As String

For i = 65 To 70
z = Chr(i)
zz = ""
For j = 1 To 2 * (i - 65) + 1
zz = zz & " " & z
Next
Print zz
Next
End Sub

10、VB实验一具体怎么做

Private Sub Command1_Click()
    For i = 1 To 9 Step 2
        sm = sm + f(i)
    Next
    Print sm
End Sub
Function f(n)
    If n <= 1 Then
        f = 1
    Else
        f = n * f(n - 1)
    End If
End Function
Private Sub Command2_Click()
    For i = 1 To 9 Step 2
        s sm, i
    Next
    Print sm
End Sub
Sub s(ByRef sm, ByVal n)
    p = 1
    For i = 1 To n
        p = p * i
    Next
    sm = sm + p
End Sub