求助VB高手
pro = 1
Do While True
x = Val(InputBox("请输入数据(-1表示停止)"))
If x = -1 Then Exit Do
pro = pro * x
Loop
Print pro
每个print都会换行的，要不你就先定义一个变量，最后print
放上三个按钮名字默认,command1放大,command2缩小,command3恢复两个textbox默认就可以,text1是用来看效果的,text2是用来看缩放的历史记录
Dim iFontSize As Double
Private Sub Command1_Click() '放大
setFontSize 1
End Sub
Private Sub Command2_Click()'缩小
setFontSize 2
End Sub
Private Sub Command3_Click()'恢复
setFontSize 3
End Sub
Private Sub Form_Load()
iFontSize = 10
Text1.Text = "字体Test"
Text1.FontSize = iFontSize
End Sub
Private Sub setFontSize(size As Integer)
Dim iRnd As Double
Randomize
'***********************************
'缩放倍数是1-3之间不包括3
'iRnd = Rnd * 2 + 1
'***********************************
'缩放倍数是1-3之间的实数包括3
iRnd = Rnd * 3 + 1
iRnd = IIf(iRnd > 3 + 1, 3, iRnd)
'***********************************
'缩放倍数是1-3之间的正整数
'iRnd = Int(Rnd * 3 + 1)
'***********************************
Select Case size
Case 1 '放大
iFontSize = Int(iFontSize * iRnd)
If iFontSize >= 2160 Then
MsgBox "不能再放大了"
Exit Sub
End If
Case 2 '缩小
iFontSize = Int(iFontSize / iRnd)
If iFontSize <= 0 Then
MsgBox "不能再小了"
Exit Sub
End If
Case 3 '恢复
iFontSize = 10
End Select
Text1.FontSize = iFontSize
Text2.Text = Text2 & " | " & iFontSize
End Sub
这个不是应该很简单的，只要修改一下文本框的字体就可以了。随机函数的话就用rnd来乘，取整的话就用int一类的函数。
text1.Font.Size 设置字号
放大：
text1.Font.Size = text1.Font.Size + 1
缩小：
text1.Font.Size = text1.Font.Size - 1
恢复：
text1.Font.Size = 9'默认值
好像是不太难,在相应的按钮里修改一下字体大小就可以了
Dim Intfont As Integer
Private Sub Command1_Click() '放大
Dim a As Integer
a = 3 * Intfont
Randomize
Text1.FontSize = Intfont + a * Rnd
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = True
End Sub
Private Sub Command2_Click() '缩小
Dim a As Integer
Dim Inttemp As Integer
Inttemp = Text1.FontSize
Randomize
a = Int((1 / 3) * Inttemp)
Text1.FontSize = Inttemp - a
Command2.Enabled = False
Command1.Enabled = True
Command3.Enabled = True
End Sub
Private Sub Command3_Click() '还原
Text1.FontSize = Intfont
Command3.Enabled = False
End Sub
vb tooltiptext怎么用啊
ToolTipText可以直接在属性面板中输入内容，或在代码中给其赋值。ToolTipText就是鼠标移动到控件上时显示的内容，通常用作控件的解释说明。比如要给Label1控件添加ToolTipText，内容为“郁闷”。可以在IDE模式，点击选中Label1控件，然后在属性面板找到ToolTipText，输入“郁闷”运行程序，鼠标移到Label1上，...
如何用VB发电子邮件,请各位高手指教!
使用VB收发电子邮件 一、准备工作 在VB中编写电子邮件程序需要通过调用微软公司的MAPI（Messaging Application Programming Interface，消息应用程序编程接口），这需要借助两个实现电子邮件收发功能的核心控件：MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话，MAPI消息控件用于创建和...
vb编程:汉诺塔
这个程序难度不小，估计是个课程设计或是毕业设计之类的，我建议你还是自己先动手做，当遇到问题再提出来大家帮忙。不是一个人一两天能做出来的，只要开始去做，好的开始是成功的一半。
软件开发难学吗
上google,baidu和英文网站搜解决方案在等着你，那可不是什么只有加加减减，你解决不了问题随时会被公司开除，公司老板不懂开发不了解开发难度，他们只想要什么问题都能瞬间秒解的高手，所以软件开发需要智商的。同时更需要坚持，没有圣斗士星矢的执著是坚持不下去的。
工作路 迷茫 不知道怎么走 想学计算机 求高手
后来,慢慢摸索出来的招数渐多,在办公室几乎成了电脑高手,自己想来也好笑。真的,用电脑不难,只要你“活学活用、学用结合、急用先学”,在“用”字上...不过,我以前自学vb现在学计算机专业的别的编程语言,都容易的多。vb 是最适合初学者和非计算机专业人员的语言只要有悟性,就算没有人引导一样会成为天才的!
VB,在特定范围内截图
先取DC：GETDC（0）得到屏幕的DC 再把指定处的图象用API函数BITBLT画到你的图象控件或者窗体上去。再调用SAVETOFILE方法保存就好了。
到底是VB简单,还是C语言简单,还有java是什么东东?
一:C语言语法结构很简洁精妙，写出的程序也很高效，很便于描 述算法，大多数的程序员愿意使用C语言去描述算法本身，所以， 如果你想在程序设计方面有所建树，就必须去学它。 第二：C语言能够让你深入系统底层，你知道的操作系统，哪一个 不是C语言写的？所有的windows,Unix,Linux,Mac,os\/...
批处理FOR命令,高手进……
某些范例可能有助:FOR\/F"eol=;tokens=2,3*delims=,"%iin(myfile.txt)do@echo%i%j%k 会分析myfile.txt中的每一行，忽略以分号打头的那些行，将每行中的第二个和第三个符号传递给for程序体；用逗号和\/或空格定界符号。请注意，这个for程序体的语句引用%i来取得第二个符号，引用%j来取得第三...
VB 如何获取屏幕图片数据保存在一个二进制数组里面?
VB 如何获取屏幕图片数据保存在一个二进制数组里面? VB程序中我会用BITBLT把flash动画抓到内存中,可是如何把这个图片数据保存在一个二进制数组里面?中间不...我不想先生成BMP图片文件以后再用Open语句读取,请高手不吝赐教!数组中只存放颜色数据,不需要别的数据,如文件头就不要。我再把颜色数据转换成别的数据,不...
在VB6中,如何实现MSHFlexGrid控件表格的缩放(类似EXCEL中的缩放)?请...
在窗体的resize事件写入以下代码 MSHFlexGrid1.width=me.width-100 MSHFlexGrid1.height=me.height-100 你可以改变后面的100的值，这里只是举例，表格控件便可根据你的窗体大小，自由缩放了！
掌命确复： 我做了一个小程序,是以文本形式打开那个dat文件,然后把读出的字符放在D盘的DatToDoc.doc文件里面,也就是一个word文件. 虽然是VBS,但是你可以把他放在vb里运行: Dim objDialog,objStr,fso,Word,Doc Set fso=CreateObject(＂...
厦门市15295031834： 求助!VB代码 高手帮帮忙？
掌命确复： Private Sub add_Click(Index As Integer) 当add按钮(或菜单或其他什么可以单击的控件)被单击时触发的子函数(以下皆同) addfrm.Show 窗口addfrm显示出来(以下皆同) End Sub 子函数结束(以下皆同) 这是VB中最基本的子函数了,作...
厦门市15295031834： 求助VB高手编一个程序,急! - ？
掌命确复： Dim x(14) As Single, g(14, 14) As Single x(0) = 0 For i = 1 To 14 x(i) = x(i - 1) + 1 / 2 * (50 + 50) Print x(i) Next i For i = 1 To 14 For j = 1 To 14If x(i) > x(j) Then g(i, j) = 1400 ^ 3 / (6 * 206000 * 11984224.91) * ((x(j) / 1400) ^ 2 * ((3 * x(i) - x(j)) / 1400) + (...
厦门市15295031834： 求助vb高手 - ？
掌命确复： 1,D(C中控件不可以接受焦点,而题目要求可以接受焦点)2,D3,C(结果为6.573,但b是整形,取整为6)4,D5,A6,D7,B8,C9,D10,C
厦门市15295031834： 急求vb高手帮忙？
掌命确复： 兄弟: 即然刚开始接触;还得先把这些基本的语句;函数;方法;;属性;常数;运算符弄懂. 只有搞懂这些才有编程的基础.
厦门市15295031834： VB请高手帮忙啊!!!？
掌命确复： x = Shell(＂explorer.exe 路径＂, vbNormalFocus) '正常打开 例如 x = Shell(＂explorer.exe C:\文件夹＂, vbNormalFocus) '打开C盘里＂文件夹＂这个目录.
厦门市15295031834： 求VB高手帮忙 - ？
掌命确复： 实验一: Private Sub Command1_Click() Dim a(1) As String a(1) = ＂-＂: a(0) = ＂+＂ For i = 1 To 10 Label2(i - 1).Caption = Int(Rnd * 10) '随机选择10个10<>1的数作为第1个运算数. Label2(i + 9).Caption = Int(Rnd * 2) '随机选择“+”“-”号如...
厦门市15295031834： vb高手求助~~ - ？
掌命确复： Matrix是二维数组,Preserve是重定义时保留数据,Redim是重定义数组大小,Ubound是获取数组某...
厦门市15295031834： 求VB高手帮设计一个“自动出题”程序! - ？
掌命确复： '写完了,新鲜出炉……'先添加6个label,然后一个command1(按钮),然后一个timer,最后在command1的index项填上0,就可以运行了.PS:控件随便放,位置已经定好了.6个...
厦门市15295031834： 求助vb高手!怎么用vb编写一个能够向cs一样达到全屏效果的程序 - ？
掌命确复： 按你的要求呢..ARTERIOSCLEROS的就已经做到了 要是要用direct的呢 也可以不过比较麻烦...就是要先引用个directx8 的..也可以7的..不过用8的把...然后你可以新建个窗体,写入以下代码..ok..direct编程的我也不太会..只是照着别人的程序弄了一...
