怎么写vb代码

1. vb代码怎么写

首先在Combo1的List属性中加入"a","b","c"

Combo1.click事件中加入代码:

ID = Combo1.List(Combo1.ListIndex())

Select Case ID

Case "a"

Text1.Text = "111"

Case "b"

Text1.Text = "222"

Case "c"

Text1.Text = "333"

Case Else

End Select

2. VB添加代码怎么写

insert into card_user(字段1,字段2,。..)value('"& text1.text &"','"& text2.text &"')

这句代码是把text1内容作为字段1添加到表card_user

不知道你用的什么库和数据库表的结构. 如果Private Sub XPButton3_Click()作为添加事件的话. 结构应该是这样,具体代码你自己加 Private Sub XPButton3_Click() 打开数据库连接 打开数据库表 数据库表添加(insert into card_user(字段1,字段2,。..)value('"& text1.text &"','"& text2.text &"',。..)) 关闭数据库表 关闭数据库连接 End Sub

3. 这个vb代码怎样写

楼上2位,题目要求是直到前后两项之差小于10^(-5)为止,而不是输入n的值来求。

Private Sub Command1_Click()

Dim i As Integer

Dim f As Double

Dim e As Double

i = 1

f = 1

e = 2

Do

i = i + 1

f = f / i

e = e + f

Loop While (f * i - f) >= 10 ^ -5

Print e

End Sub

4. 关于vb的程序代码怎么写

'能产生霓虹灯效果的代码'在窗体上添加控件 Picture1、Timer1'在窗体上添加控件 Shape1,并在属性窗口设置 Shape1 的属性 Name=Sha , Index=0'在窗体上添加控件 Combo1,并在属性窗口设置 Combo1 的属性 Name=Comb , Index=0'将以下代码添加到窗体代码中 Dim ctP As Single, ctLei As Long, ctX0 As Single, ctY0 As Single, ctSize As Single Dim ctRefresh As Boolean, ctA As Single, ctB As Single, ctX1 As Single, ctY1 As Single Private Sub Form_Load() Dim I As Long, K As Long Me.Caption = "闪光函数" Set Sha(0).Container = Picture1 Sha(0).Visible = False: Timer1.Enabled = False Picture1.AutoRedraw = True For I = 1 To 3 Load Comb(I): Comb(I).Visible = True Next K = 0 For I = 0 To 19 If I < 10 Then Comb(K).AddItem I & " 个光点" Else Comb(K).AddItem (I - 9) * 10 & " 个光点" Next Comb(K).ListIndex = 10 K = 1 Comb(K).List(0) = "圆" Comb(K).List(1) = "椭圆" Comb(K).List(2) = "正弦" Comb(K).ListIndex = 1 K = 2 For I = 0 To 29 If I < 10 Then Comb(K).AddItem I & " 变速" Else Comb(K).AddItem (I - 9) * 10 & " 变速" Next Comb(K).ListIndex = 15 K = 3 For I = 0 To 9 Comb(K).AddItem I & " 线宽" Next Comb(K).ListIndex = 1 ctRefresh = True Call StartFlash End Sub Private Sub Form_Resize() Dim I As Long, L As Single, T As Single, W As Long, H As Long, Jg As Single Jg = Comb(0).Height * 0.2 T = Jg L = Jg For I = 0 To Comb.Count - 1 Comb(I).Move L, T L = L + Comb(I).Width + Jg Next T = Comb(0).Top + Comb(0).Height + Jg W = Me.ScaleWidth: H = Me.ScaleHeight - T Picture1.Move 0, T, W, H Call SetXY0 End Sub Private Sub SetXY0() ctA = Picture1.ScaleHeight * 0.4 '短轴 ctB = Picture1.ScaleWidth * 0.4 '长轴 Select Case ctLei Case 0, 1 '圆,椭圆 ctX0 = Picture1.ScaleWidth * 0.5 - ctSize: ctY0 = Picture1.ScaleHeight * 0.5 - ctSize Case 2 '正弦 ctX0 = Picture1.ScaleWidth * 0.05 - ctSize: ctY0 = Picture1.ScaleHeight * 0.5 - ctSize ctB = ctB * 1.1 End Select End Sub Private Sub Comb_Change(Index As Integer) Call StartFlash End Sub Private Sub Comb_Click(Index As Integer) Call StartFlash End Sub Private Sub StartFlash() Dim I As Long If Not ctRefresh Then Exit Sub ctLei = Comb(1).ListIndex '函数类型 ctP = 3.1415926 '圆周率 ctY1 = Val(Comb(2).Text) '短轴变换率(半径,位置等) ctX1 = ctY1 I = Val(Comb(3).Text) If I < 1 Then I = 1 If I > 9 Then I = 9 Picture1.DrawWidth = I If I < 5 Then I = 5 ctSize = I * 15 '60 '光点大小 Sha(0).FillColor = 255 '&HFFFFFF Call SetXY0 Timer1.Tag = "1" Timer1.Interval = 25 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Static n As Single, Ci As Long Dim X As Single, Y As Single, S As Single If Timer1.Tag <> "" Then Call LoadSha ctA = ctA + ctY1 If ctA > ctY0 Then ctY1 = -Abs(ctY1) If ctA <= 0 Then ctY1 = Abs(ctY1) ctB = ctB + ctX1 If ctLei = 2 Then '正弦 If ctB > Picture1.ScaleWidth * 0.45 Then ctX1 = -Abs(ctX1) Else If ctB > ctX0 Then ctX1 = -Abs(ctX1) End If If ctB <= 0 Then ctX1 = Abs(ctX1) Picture1.Cls If Val(Comb(3).Text) > 0 Then Call GetXY(0, X, Y) Picture1.PSet (X, Y) For S = 0 To ctP * 2 Step ctP / 270 Call GetXY(S, X, Y) Picture1.Line -(X, Y) Next End If n = n + ctP / 90 '180 If n > ctP * 2 Then n = 0 For I = 0 To Sha.Count - 1 S = n + I * ctP * 2 / Sha.Count If S > ctP * 2 Then S = S - ctP * 2 Call GetXY(S, X, Y) Sha(I).Move X - ctSize, Y - ctSize, ctSize * 2, ctSize * 2 Next' Timer1.Tag = "" End Sub Private Sub GetXY(n As Single, X As Single, Y As Single) Select Case ctLei Case 0 '圆 X = ctX0 + ctA * Sin(n) Y = ctY0 + ctA * Cos(n) Case 1 '椭圆 X = ctX0 + ctB * Sin(n) Y = ctY0 + ctA * Cos(n) Case 2 '正弦 X = ctX0 + n * ctB / ctP Y = ctY0 - ctA * Sin(n) End Select End Sub Private Sub LoadSha() Dim I As Long, S As Long Timer1.Tag = "" S = Val(Comb(0).Text) Sha(0).Shape = 3: Sha(0).Move 0, 0, ctSize, ctSize Sha(0).FillStyle = 0 If S > 0 Then Sha(0).Visible = True Else Sha(0).Visible = False For I = Sha.Count - 1 To 1 Step -1 Unload Sha(I) Next For I = 1 To S - 1 '光点数 Load Sha(I): Sha(I).Visible = True Next End Sub。

转载请注明出处育才学习网 » 怎么写vb代码

知识

电视剧的怎么写

阅读(163)

本文主要为您介绍电视剧的怎么写,内容包括一部电视剧的作文怎么写,写电视剧的作文怎么写,电视剧剧本怎么写。开头写现在有比较著名的电视剧,然后写其中我最喜欢看的然后写电视剧所发生的故事然后通过发生的故事联想到自己的,比如说主人公在处

知识

电视剧怎么写

阅读(150)

本文主要为您介绍电视剧怎么写,内容包括怎样写电视剧,写电视剧的作文怎么写,“mou”那个字怎么写就是港台电视剧里“没有,不要”的意思.。剧本写作基础:剧本的格式 首先明确一点,剧本区别于任何一种文体形式,我经常看到有的朋友把剧本写成了

知识

怎么写合伙合同

阅读(163)

本文主要为您介绍怎么写合伙合同,内容包括怎么写合伙合同,合伙合同怎么写,个人合伙协议怎么写。合伙合同 订立协议各合伙人: 姓 名________,性 别________,年 龄_______, 住 址 _____________

知识

请假的假怎么写

阅读(163)

本文主要为您介绍请假的假怎么写,内容包括请假的假怎么写,请假的假怎么写,请假条怎么写。原发布者:flower1231235单位事假请假条范文 事假请假条 XXX(主管领导的名字或者主管部门.等): 我因家中有事,于XX年X

知识

在的繁体怎么写

阅读(173)

本文主要为您介绍在的繁体怎么写,内容包括一直都在的繁体字怎么写,的的繁体字怎么写,的繁体字怎么写。在Windows XP中预置了“微软拼音输入法3.0”,使用它可以进行繁体字输入。请按以下步骤操作: (一)如果在输入法里没有“微软

知识

作文的味道怎么写

阅读(169)

本文主要为您介绍作文的味道怎么写,内容包括关于味道的作文怎样写,有谁知道作文《的味道》怎么写啊,家的味道作文怎么写。过年的味道有时,人们三五一群、七八一伙围坐在八仙桌旁,打“斗地主”或者下象棋,赢的拿来纸,让输的一方撕下一块儿贴在脸

知识

果汁的汁怎么写

阅读(205)

本文主要为您介绍果汁的汁怎么写,内容包括果汁用英文怎么写,寻求描写果汁的词语,果汁的声调怎么写。英文:juice [dʒuːs]作名词有果汁,菜汁,果汁(或菜汁)饮料,肉汁,胃液,消化液的意思。作动词有榨出(水果或蔬菜的)汁液,榨汁

知识

怎么写毛笔横

阅读(160)

本文主要为您介绍怎么写毛笔横,内容包括怎么写好毛笔字里的“横”,怎么写好毛笔字里的“横”,毛笔字写法横竖撇捺点怎么写毛笔啊(基本笔画:|丿\·)基本笔。这里所说的[毛笔字".是指按传统法度书写的毛笔字.而不是用毛笔随意写出的字.[怎样写好

知识

昨天怎么写

阅读(138)

本文主要为您介绍昨天怎么写,内容包括《昨天·今天·明天》怎么写好写什么好,昨天今天明天的作文怎么写啊,今天明天昨天(作文)如果明天不努力会怎样再结尾怎么写字数越。例文:昨天的我已经是一个过去的我,昨天已经是过去时,已经是历史。昨天我们

知识

一切怎么写

阅读(363)

本文主要为您介绍一切怎么写,内容包括“一切”的繁体字怎么写,一切繁体字怎么写,一切都会过去与一切都不会过去高考作文怎么写。“一切”的繁体字形为:一切

知识

在遇见作文怎么写

阅读(181)

本文主要为您介绍在遇见作文怎么写,内容包括用“遇见”写作文怎么写,关于《遇见》的作文怎么写800字,作文《遇见》怎么写。这个冬季,很冷,往年这个时候我还未披上大衣,而我却在这个冬季的这个时候提早披上了大衣,即使是如此冷的天气,也都因为此

知识

植物的字怎么写

阅读(205)

本文主要为您介绍植物的字怎么写,内容包括植物的字怎么写,植物的字怎么写,植物的特点50字怎么写。不知道你是要哪一级植物的特点?有界、门、纲、目、科、属、种你的问题我们不知道怎么回答苔藓植物门具茎、叶分化的颈卵器植物。配子体占优势

知识

只了的拼音怎么写

阅读(335)

本文主要为您介绍只了的拼音怎么写,内容包括油炸知了的拼音怎么写,我只的拼音是怎么写,只为你拼音怎么写。油炸知了拼音:yóu zhà zhī liǎo知了,蝉的俗称。其中,“了”是一个多音字,这里读作:liǎo。了[ le ]1.放在动词或

知识

协议是怎么写的

阅读(170)

本文主要为您介绍协议是怎么写的,内容包括协议格式怎么写,协议如何写,协议怎么写。合作协议书范本 甲方:_____________ 乙方:_____________ 甲、乙双方本着自愿、平等、公平、诚实、信用的原则,经

知识

在的在怎么写代码

阅读(154)

本文主要为您介绍在的在怎么写代码,内容包括怎么编程写代码,代码怎么写,图片放在任何位置的代码怎么写来的。代码codeA.一组有序的数字或字母的排列,是代表客观实体及其属性的符号。 B.记录计算机程序的符号。代码设计的原则包括惟一确定性

知识

java怎么写代码

阅读(153)

本文主要为您介绍java怎么写代码,内容包括java代码怎么写,java代码怎么写,Java编写程序代码写在哪。import java.util.Calendar;//这是问题(1)的函数 public static Boolean isLegal

知识

html怎么写代码

阅读(240)

本文主要为您介绍html怎么写代码,内容包括HTML代码怎么写,html代码怎么写,HTML代码怎么写。<P align=center><B&gt;市场价<FONT id=aa face=宋体 color=#00ff00 size=4>29

知识

html代码怎么写的

阅读(201)

本文主要为您介绍html代码怎么写的,内容包括HTML代码怎么写,写html代码谢谢,html代码怎么写。辛辛苦苦敲出来的,希望采纳哦! <!doctype html><html><head><meta charset="utf-8"><ti

知识

it怎么写代码

阅读(175)

本文主要为您介绍it怎么写代码,内容包括IT行业的说写代码是怎么写的,要想搞IT写代码,必需得懂英文吗,做it的一定要会写代码嘛。1.打好基础很重要。学习的过程就像是盖高楼大厦的过程,只有地基打得越牢固,大楼才能盖得越高、越好。程序员更是

知识

vb题怎么写

阅读(137)

本文主要为您介绍vb题怎么写,内容包括VB这道题怎么写语句谢谢帮忙~,请问这个VB题怎么写呀,这道VB题的代码怎么写呢。t1,t2是变量,用于存储临时信息2、InputBox("请输入身高", , Int(Rnd * 70 + 100)) 是弹出一个输入对

知识

阶乘代码怎么写

阅读(174)

本文主要为您介绍阶乘代码怎么写,内容包括怎么写vb的阶乘代码,5的阶乘用代码怎么写啊,1到100的阶乘代码。For语句实现Private Sub Command1_Click()Dim s As Long, n As Integer, i As

知识

华为锁屏代码怎么写

阅读(202)

本文主要为您介绍华为锁屏代码怎么写,内容包括华为手机怎么锁屏,华为EMUI的锁屏怎么写,华为手机怎么设置锁屏文字签名。不同系统版本步骤略有不同,详细如下:EMUI 3.0 平台:进入设置&gt;(全部设置)&gt;安全&gt;解锁样式,输入当前密码,点击

[/e:loop]