【练习5】设计一个用计算机给出三位整数加法练习程序。程序界面如图所示,单击一次,则在文本框中产生一题。
提示:
(1)将文本框的Multiline属性设置为true,并设置垂直滚动(ScrollBars=2)
(2)用Rnd 函数产生100~999之间的随机整数
(3)回车换行符用函数chr(13)+chr(10)表示
研究下面的代码段,考虑应填入什么内容?
Private Sub Form_Load()
Text1.text= (1) ‘清除文本框内容
End Sub
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = (2) '产生三位随机数
y = (3) '产生三位随机数
Text1.Text = (4) & Chr(13) & Chr(10)
End Sub
窗体 就一个文本框和一个按纽 急需~!~谢谢~!~
求助:一道VB题,请大家帮忙,谢谢
准确的说fun返回的是a除以n所得值的整数部分,就是 fun=int(a\/n)原因是当a>=n时。进行循环(while a>=n)第一次,a值减掉一个N,M为1(M初始为0),你可以这样理解:当a\/n时,为了使=号成立,可以写成这样,a\/n=m 余(a-n) 照这样看来第一次就是这样:a\/n=1 余a-n,同理,如...
vb题目 请大家帮忙
鼠标事件主要有以下几种:Click:单击事件,即单击鼠标时发生的事件。DblClick:双击事件,即双击鼠标时发生的事件。MouseDown:鼠标按下时发生的事件。MouseUp:鼠标抬起时发生的事件。MouseMove:鼠标移动时发生的事件,对某控件的此事件进行编程,则当鼠标移过此控件时就会触发此事件,执行其相应代码。鼠标事...
鸡兔同笼问题 vb 请大家帮帮忙啊~!
Private Sub Form_Activate()F = InputBox("输入鸡与兔的头总数:")H = InputBox("输入鸡与兔的脚总数:")Y = H \/ 2 - F X = F - Y MsgBox ("鸡有:" & X & "只")MsgBox ("兔有: " & Y & "只")End Sub
VB问题,麻烦大家帮我看看怎么改这个下载路径的代码?
第5行改成 .SaveFilePath = App.Path & "\\"第24行改成 LogItem "Íê³É" & SizeString(Bytes) & "ÏÂÔز¢±£´æµ½" & DL.SaveFilePath ...
一道VB编程题
a=inputbox("输入学生生日-年")b=inputbox("输入学生生日-月")c=inputbox("输入学生生日-日")x=year(now)-a 'x即为学生年龄,如果想算仔细一些的话,就要进行月,日的比较 if b<month(now) then print "该学生已经过了";x;"岁生日了"elseif b=month(now) and c<day(now) then...
关于一个VB的问题,麻烦大家帮一个忙,谢谢,本人是初学者?
这个是把所有的驱动器的卷标显示出来的程序 至于你的问题,这个是叠加的方法,不加不行,如果不加,代码只会显示最后一个驱动器的卷标了.
又是VB阿~~~大家救救我。。。
Private Sub Command1_Click()Dim Sn As Double, k As Double Dim a As Integer, n As Integer, i As Integer Randomize a = 1 + Int(9 * Rnd)n = 5 + Int(6 * Rnd)For i = 1 To n Sn = Sn + a * 10 ^ (i - 1) + k k = a * 10 ^ (i - 1) + k Next Prin...
一道VB题,谢谢大家 实验5.5 百元买百鸡问题。假定小鸡1元三只,公鸡...
Dim x, y, z Private Sub Command1_Click()ClsPrint "小鸡", "公鸡", "母鸡"For x = 0 To 20 Step 1For y = 0 To 34 Step 1If (100 - x - y) \/ 3 + 3 * y + 5 * x = 100 Thenz = 100 - x - yPrint z, y, xEnd IfNext yNext xEnd Sub 望采纳。。。
几个VB的小题目,我考试卷子,大家帮忙看一下!
chint()或者是int()函数,手头没有资料,由msdn98或者vb的话你自己查一下,利用返回的错误或者是直接转换来判断 差不多可以这样写:dim intT as integer on error goto errhandle x=text2.text intT=int(x)exit sub errhandle:text2.text=""exit sub 让你同学帮你改一下 dim f(x as integer...
100分高分求助vb问题,x=sum\/m总是溢出, 哪错了啊?
下面是根据你的程序改起来的,改动的地方就是把Form_load函数中的40个双引号去掉 Option Explicit Option Base 1 Const num = 10 Dim a(num) As Single, b(num) As Single, c(num) As Single Dim x As Single, m As Single Dim sum As Single, i As Integer Private Sub Command1_Click(...