【例】单击某命令按钮输出3~100之间的所有奇数、奇数之和。将奇数显示于带垂直滚动条的文本框中,奇数之和显示于另一个文本框中。   分析:带垂直滚动条的文本框Text1的属性设置如下   MultiLine: True   ScrollBars: 2-Vertical   程序运行效果如下图所示:    程序源码: Option Explicit Private Sub Comma ......
【例一】用文本框输入n值,单击命令按钮求S=4×(1-1/3+1/5-1/7+1/9-…+(-1)n+1×(1/(2n-1))),结果显示于标签中。 程序运行效果如下图所示: 程序源码: Option Explicit Private Sub Command1_Click()    Dim S As Single, n As Inte ......
【例一】求11+22+33+…NN小于100000的最大值。 程序源码: Option Explicit Private Sub Form_Click()    Dim Sum As Long, N As Integer    Sum = 0: N = 0    Do While Sum < 100 ......
【例】设计界面如下图a所示,单击各按钮时输入行数,按此行数在窗体上显示不同的图形,如下图b所示。        a) 设计界面             b) 各种结果              图 打印各种图形 程序源码: Option Explicit Dim HangShu As Integer, I As Integer, J As Integer ' 平行四边形 Private S ......
Vb 累加 阶乘
评论(0) 浏览量(7908)
【例一】求,即求1!+2!+3!+4!+…+20!。 程序源码: Option Explicit Private Sub Form_Click()    Dim N As Integer, I As Integer, Sum As Double, ChengJi As Double    Sum = 0   &nb ......
【例】“水仙花数”是指一个3位数,其各位数的立方和等于该数,如153=13+53+33,编写程序,打印出100~1000之间的所有水仙花数。 程序源码: Option Explicit Private Sub Form_Click()    Dim I As Integer, GeWei As Integer, ShiWei As Integer, BaiWei ......
【例】分别按以下要求求ex≈1+(x/1!)+(x2/2!)+(x3/3!)+…+(xn/n!) 1)直到第20项。 2)直到最后一项小于10-6。 X的值由输入框输入。 程序源码一(计算分数序列的前20项累加和): Option Explicit Private Sub Form_Click()    Dim I As Integer, IJC As Do ......
VB sin(x)近似值
评论(0) 浏览量(1267)
【例】用以下公式求sin(x)的近似值,当最后一项小于10-7时停止计算,X的值由键盘输入。 分析:用FuHao表示(-1)n-1    用JieCheng表示(2n-1)!    用FeiZi表示x2n-1    用Term表示每一项的值,则Term=FuHao*(FeiZi/JieCheng)    SinX表示sin(x)的近似值    循环初始条件:SinX = 0,N = ......
【例】设计如下图所示的界面,在窗体上画两个框架(Frame),分别在其中放置两组选项按钮(注意,移动框架时其中的选项按钮应能与框架一起移动),中间为一红色长方形。运行时,单击颜色按钮用于改变中间的图形的颜色(FillColor属性),单击形状按钮用于改变中间的图形的形状(Shape属性),shape1的backStyle炫耀选择1。         图 改变图形的颜色与形状 程序源码: ' ......
【例】在窗体上先画两个图片框Picture1和Picture2,在Picture1中放四个选项按钮Option1(0)、Option1(1)、Option1(2)和Option1(3)(注意,移动图片框时选项按钮应能与图片框一起移动);设置各个选项按钮的Style属性为1-Graphical,使它们成为按钮的形状;修改各个选项按钮的Caption属性,使它们分别为“宋体”、“楷体”、“黑体”和“隶 ......
VB listBox学习
评论(0) 浏览量(2885)
例】在窗体上先画两个图片框Picture1和Picture2,在Picture1中放四个选项按钮Option1(0)、Option1(1)、Option1(2)和Option1(3)(注意,移动图片框时选项按钮应能与图片框一起移动);设置各个选项按钮的Style属性为1-Graphical,使它们成为按钮的形状;修改各个选项按钮的Caption属性,使它们分别为“宋体”、“楷体”、“黑体”和“隶书 ......
【例】在窗体上放一个文本框,四个组合框,如下图a所示。按以下要求设计应用程序。              a) 设计界面                b) 运行界面                   图 组合框的使用 1)将用于设置文本框文字颜色的组合框(命名为:ComboTextC)的Style属性设置为2(下拉列表框),列表包括白、黑、红、绿、蓝、黄。 2)将用于设置文本框背景颜 ......
VB timer学习
评论(0) 浏览量(4580)
【例一】每隔2min在文本框新的一行上输出当前的系统时间及生成的10个(0,100)之间的随机整数,文本框带双向滚动条。 分析:由于定时器(Timer)的Interval属性的最大值为65535ms,要使程序能够间隔2min执行相关操作,就只能借用对系统时间的判断。本例中我们将Interval属性设置为1000,也就是说每隔一秒对系统时间进行一次判断,如果当前时间与起始时间的间隔达到了2min ......
【例一】在窗体上放置一滚动条,设置其Max属性值为100,Min属性值为0,LargeChange属性为10,SmallChange属性为5,当滚动条滚动时可以在标签上显示当前滚动条的值。   运行效果如下图所示:      分析:假设窗体上用于显示滚动条当前值的标签为Label1。 程序代码: Private Sub Form_Load()    Labe ......