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 就可以了