一道VB试题，求解很急！！
题目：编写函数fun，函数的功能是：当x的初值为10，
'每年增长率为百分之一，计算多少年以后x的值能达到y，
'并显示所需年数的值（变量名必须为n）。
'要求使用Do ... Loop Until语句来实现。
Dim x As Single, y As Single
x = 10
y = 1000
MsgBox fun(x, y)
End Sub
Function fun(x As Single, y As Single) As Long
Do
x = x * 1.01
c = c + 1
Loop Until x >= y
fun = c
End Function
一个VB问题 很急
VB我不懂怎么写，但可以肯定的告诉你，Adodc1.RecordSource = "select * from member where no ='00300002'"这一句下面的操作需要你的数据库不为空才可以操作，你试着在member里加入一条no ='00300002'的记录试试 要彻底的解决问题，需要在 Adodc1.RecordSource = "select * from member where no ...
VB高手请进,真的很急啊!谢谢了!
mod后少a没?a(3) = 8 a(7) = 4 a(3)\\a(7) = 2 （整除）2 mod 8 = 2 '取余 a（2）= 9 打印 9
一道Vb基础题选择题
基础05年9月试题 一、选择题 （1）下列叙述中正确的是 A）程序设计就是编制程序 B）程序的测试必须由程序员自己去完成 C）程序经调试改错后还应进行再测试 D）程序经调试改错后不必进行再测试 （2）下列数据结构中，能用二分法进行查找的是 A）顺序存储的有序线性表 B）线性链表 C）二叉链表 D）...
能问你个vb问题吗 下标越界问题 很急 在线等啊
dim a(1 to 3) as string 数组a元素范围在1-3之间 如果你引用a(4) 就会出现下标越界的错误 好好检查你代码出错位置上对数组的引用 就能解决问题
VB6.0问题···很急··在线等
因为宏命令的脚本语言是vbscript，我们不必做所有改动就能将上面的语句在vb中使用。这样，我们就能编写出如下vb代码，实现我们所需求的功能。代码如下:wdapp.selection.font.bold = wdtoggle 加粗显示 wdapp.selection.font.size = 14 14号字 wdapp.selection.typetext ("报表标题") 报表标题 wdapp....
VB下标越界问题,很急!!!
一般下表越界，都是因为你对初始化的问题 他超出了你所限定的数量。你可以修改一下初始化的参数。qq：123847748
VB很急,请求指导,报错”事实错误‘3219’,在此环境中不允许操作“_百度...
在这句 MsgBox "添加学生信息成功!", vbOKOnly + vbExclamation, "提示"前面插入一行 rs_addbook.Update
vb下标越界。急啊···
For i = 1 To UBound(a) 在这里显示下标越界 If judge(a(i)) Then List1.AddItem a(i)Next i 你在这里调a(1)铁定出错啦 加条件判断下 if UBound(a) >0 then For i = 1 To UBound(a) 在这里显示下标越界 If judge(a(i)) Then List1.AddItem a(i)Next i End if ...
vb adodc控件的问题,很急。速度
查找出所需要的控件和链接库文件，拷贝到一个目录，并把MSVBVM60.DLL文件放到你的程序目录中，编辑一个批处理文件（*.bat）使用拷贝命令和注册令即可。MSVBVM60.DLL是相当于VB虚拟机的文件。另外VB的VB5DB.DLL文件也很重要
求Vb编写一个简单的倒计时,VB作业很急
效果这样：代码：Private down_time As Integer Private set_time As Integer Private Sub Command1_Click()'set the time If IsNumeric(Me.Text1.Text) And CInt(Me.Text1.Text) > 0 Then down_time = CInt(Me.Text1.Text)set_time = down_time Else Call MsgBox("please input a positive...
