vb 谁可以帮忙修正一下？

帮我修正下VB代码

Dim A, B As Integer Private Sub Command1_Click()Dim r, t As Stringr = Text1.Textt = Text2.TextA = RndB = RndShowIf A > B ThenPrint r & ＂打败＂ & tElseIf A = B ThenPrint ＂平手＂ElsePrint t & ＂打败＂ & rEnd IfEnd Sub

.可就是运行不了.... 哪位大侠帮忙修正一下

if then end if 是vb用的,C语言里不是这么写

vb if和elseif的用法,代码修正

不要使用elseif,因为这是并列关系,只要有一个成立就会执行,然后退出的.把每个if拆开,写成多个if的顺序结构

vb中byref参数类型不符,帮我看看如何修正,不会写函数

Dim all As String, b As String, c As String abc = Split(con, dq) 这个你拿函数名来当数组,到下面袭语句时候是把他知当函数处理的.换个变量. If InStr(abc(i), dh) > 0 Then MsgBox .

access中一个简单的查询数据库出错了(窗体vba),帮忙修正下

这么多等于也要用逗号分隔一下啊 刚才随便打了下,想想不太对,应该用or、and、not等关键字进行分隔. Sql = ＂select * From 客户 where id =＂ & w_id & ＂ and yhm = ＂ & w_yhm & ＂ and je =＂ & w_ye

谁能帮我弄个VB学生成绩管理系统源程序啊,重谢.

http://www.5156bs/include/ShowProduct.aspx?ProdID=80088中文摘要:学生. 关键词:管理信息系统;数据库;vb6.0;access2000

求会写VB语言程序的高手,帮我写一个程序.高分

以下代码已测试,求采纳,求加分. Option Explicit Private Sub Command1_Click() . 这是修改后的,完成了排序,修正了随机数的取值: Option Explicit Private Sub .

.小球以大小VO的初速度由A端向右运动,到B端时的速度大小减小为

根据动能定理,VA=VB更正一下 从左往右时,经过A处,V更大 ∴在A处VB>VA 而在B处,左往右消耗速度大于右往左 ∴在B处F从左往右>F从右往左 ∵Fn相等 ∴在A、B处均有F从右往左>从左往右 综上,从左往右消耗速度更大 ∴VB>VA

帮忙检查段vb代码

在MsgBox ＂获取成功＂, vbOKOnly, ＂提示＂后加 Exit subPrivate Sub cmdhq_Click() On Error GoTo Cmd Print ＂读取中~~~＂ Open ＂C:\Program Files\ghost\用户名..

十万火急!!!急求VB高手帮我做一下这倒程序改错题,每个FOUND

Private Sub Form_Click()Dim n As Integer, k As Integer, i As Integer, swit As IntegerFor n = 101 To 300 Step 2 k = Int(Sqr(n)) i = 2'**********FOUND********** swit = 0'**********.