Visual Basic程序设计实验解析志勇用窗体变化随机
作者&投稿：长裴 （若有异议请与网页底部的电邮联系）
不是.
在窗体单击事件里就可以实现啊，你要实现什么+150？
Private Sub Command1_Click()
Dim i As Integer, n As Byte, x As Integer, y As Integer
Dim r As Integer, g As Integer, b As Integer
For i = 1 To 1000
Randomize
n = Int(Rnd * 4 + 1)
x = Rnd * Form1.Width
y = Rnd * Form1.Height
r = Int(Rnd * 256)
g = Int(Rnd * 256)
b = Int(Rnd * 256)
Form1.DrawStyle = n
Form1.PSet (x, y), RGB(r, g, b)
Next i
End Sub
江霭穿龙： 先学习下Line方法:Line方法 在对象上画直线和矩形. 语法 object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F] Line 方法的语法有以下对象限定符和部分: 部分描述 object 可选的.对象表达式,其值为“应用于”列表中的对象.如果object ...
阳春市13144103528： Visual Basic程序设计实验解析志勇水仙花数 - ？
江霭穿龙： Private Sub Command2_Click() '水仙花数 153=1*1*1+5*5*5+3*3*3 For i = 10 To 999 If ige = i Mod 10 shi = i \ 10 If ge ^ 3 + shi ^ 3 = i Then Print ,Else ge = i Mod 10 shi = i \ 10 Mod 10 bai = i \ 100 If ge * ge * ge + shi ^ 3 + bai ^ 3 = i Then Print i,...
阳春市13144103528： Visual Basic 程序设计(VB)求一道简单题目的代码,急!!! - ？
江霭穿龙： 在窗体上g放一i个h命令按钮,程序运行单击按钮,要求输入e成绩.单击确定输出等级.代码如下l: Private Sub Command8_Click() Dim cj As String cj = InputBox(＂请输入m成绩:＂) Do While Not IsNumeric(cj) MsgBox ＂请输入w数字!＂, ...
阳春市13144103528： VisualBasic学完之后可以做什么? - ？
江霭穿龙： VB是比较基础的语言.如果想在职场上发展,仅仅会VB是不够的,几乎找不到工作.但是VB也可以做很多东西,比如一些小型软件、OCX插件等等,VB还是可以胜任的.
阳春市13144103528： Visual Basic程序设计实验解析志勇P103数组for循环有if - ？
江霭穿龙： i=0时,a(0)=1,t=1,因为t不等于3,执行a(t)=a(1)=a(i)=a(0)=1,打印a(0)=1i=1时,a(1)=2,t=2,因为t不等于3,执行a(t)=a(2)=a(i)=a(1)=2,打印a(1)=2i=2时,a(2)=3...
阳春市13144103528： Visual Basic 程序设计 - ？
江霭穿龙： dim h,m,s,ss h=inputbox(＂输入小时＂) m=inputbox(＂输入分钟 ＂) s=inputbox(＂输入秒＂) ss=h*3600+m*60+s msgbox (＂总计＂& ss) 这个可以输到vbs脚本 vb也可以
阳春市13144103528： Visual Basic语言程序设计 - ？
江霭穿龙： 系统软件 Microsoft Visual Basic 提供了开发 Microsoft Windows 应用程序的最迅速、最简捷的方法.不论是 Microsoft Windows 应用程序的资深专业开发人员还是初学者,Visual Basic 都为他们提供了整套工具,以方便开发应用程序. Visual ...
阳春市13144103528： Visual Basic程序设计 - ？
江霭穿龙： O1、将一个一维数组反序放置.例如: a=(67,89,76,98,66), 反序放置后,a=(66,98,76,89,67).ption Base 1Private Sub Form_Click()Const n = 5 '这里N可以是任意的 Dim a(n) As Integer, t% For i = 1 To n a(i) = Val(InputBox(＂输入任意数值＂)) ...
阳春市13144103528： VB程序设计的主要功能 ？
江霭穿龙： Visual Basic 最大的特点就是＂编程又容易,功能又强大＂. 学习VB难度并不大,精通需实践加上勤问,请先找本VB方面的参考消书如＂VISUAL STUDIO 6.0 入门和提...
阳春市13144103528： VB程序设计 - ？
江霭穿龙： 大哥你这个问题很简单,只不过在这里不能把代码全给你,你的问题描述的不清楚,我吧几个关键的技术点告诉你:字体变化有font属性来实现 按钮始终在窗体又下放可以再窗体的form_Resize中设置 按钮的top和left属性让他们分别=me.whith-50,me.heght-50 (4)4个按钮每单击一次都在窗体上显示“欢迎使用VB”.这个用print ＂欢迎使用VB＂ (2)文本框控件随窗体的大小而调整大小的代码 这个text1.whith=me.whith/2,text2.hethg=me.heght/2 (3)结束程序运行的代码(命令按钮).me.end 就可以了
