vb小程序vb有趣小程序
vb小程序 时间:2022-02-23 阅读:()
vb有趣小程序
Private WithEvents Timer1 As Timer Dim r&, r1&, t&, a1!, a2!, xb!, yb!, s!, b# Private Sub Form_Load() Me.Width = 4500: Me.Height = 4500 Me.Move (Screen.Width - Me.Width) 2, (Screen.Height - Me.Height) 2 Me.AutoRedraw = True Me.Caption = "CBM666的万花筒" Set Timer1 = Controls.Add("vb.timer", "Timer1") Timer1.Interval = 10 End Sub Private Sub Timer1_Timer() Randomize r = 340 * Rnd If r <> 0 Then r1 = 500 s = r * Rnd b = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) For t = 1 To 10000 a1 = t * 3.1415926 / 180 a2 = (r1 / r) * a1 xb = 500 + (-(r1 - r) * Cos(a1) - s * Cos(a2 - a1) + 420) * 4 yb = 500 + ((r1 - r) * Sin(a1) - s * Sin(a2 - a1) + 380) * 4 Me.PSet (xb, yb), b Next t End If End Sub
- vb小程序vb有趣小程序相关文档
- vb小程序我就想用VB做一个小程序
- vb小程序怎样用 VB 制作个简单的小程序
- vb小程序用vb做个简单的小程序
Ftech：越南vps,2核/2G/20G SSD/1Gbps不限流量/可安装Windows系统,$12.5月
ftech怎么样?ftech是一家越南本土的主机商，成立于2011年，比较低调，国内知道的人比较少。FTECH.VN以极低的成本提供高质量服务的领先提供商之一。主营虚拟主机、VPS、独立服务器、域名等传统的IDC业务，数据中心分布在河内和胡志明市。其中，VPS提供1G的共享带宽，且不限流量，还可以安装Windows server2003/2008的系统。Ftech支持信用卡、Paypal等付款，但...
Megalayer美国独立服务器配置及性能速度综合评测
Megalayer 商家在之前也有记录过，商家开始只有提供香港站群服务器和独立服务器，后来也有增加到美国独立服务器，以及前几天也有介绍到有增加香港VPS主机。对于香港服务器之前有过评测（Megalayer香港服务器配置一览及E3-1230 8GB服务器评测记录），这里申请到一台美国独立服务器，所以也准备简单的评测记录。目前市场上我们看到很多商家提供VPS或者云服务器基本上没有什么特别的，但是独立服...
DiyVM：50元/月起-双核,2G内存,50G硬盘,香港/日本/洛杉矶机房
DiyVM是一家比较低调的国人主机商，成立于2009年，提供VPS主机和独立服务器租用等产品，其中VPS基于XEN(HVM)架构，数据中心包括香港沙田、美国洛杉矶和日本大阪等，CN2或者直连线路，支持异地备份与自定义镜像，可提供内网IP。本月商家最高提供5折优惠码，优惠后香港沙田CN2线路VPS最低2GB内存套餐每月仅50元起。香港(CN2)VPSCPU：2cores内存：2GB硬盘：50GB/R...
vb小程序为你推荐
-
大学生就业形势分析求大学生就业社会环境分析存储区域网络什么是存储局域网？组建它需要哪些内容？ico监管ICO为什么被叫停listviewitemListView具有多种item布局pat是什么格式pat是什么格式的文件啊webservice框架用JAVA作APP后端，一般用什么web service？用什么restful框架broadcast播播……拼音netbios协议现在怎么还有用NetBios协议的，这个协议和TCP/IP协议有什么关系，为什么获取网卡的信息还要gas是什么意思GC什么意思医院排队系统医院门诊排队叫号系统