1、Private Sub Command1_ClickDim x As Single， y As Single x = ValText1TextIf x lt 10 Then y = x 1 ElseIf x = 10 And x lt 20 Then y = 2 * x 1 ElseIf x = 20 Then y = 3；Private Sub Command2_Click #39粘贴 Dim i， s As String Text2SelText = quotquoti = Text2SelStart Text2Text = LeftText2Text， i ClipboardGetText MidText2Text， i + 1End Sub Private。
2、第一题Private Sub Form_ClickDim x As Double， Y As Double x = InputBoxquot请输入当前顾客购买鸡蛋的重量以公斤为单位quotIf x lt 3 Then Y = 76 * x Else Y = 76 * x * 08 End If Print；给几个写的模块给你看看 Public Function LoadDatastrSQL As StringDim rst As DAORecordset Dim ctl As Control Dim fld As Object Set rst = CurrentDbOpenRecordsetstrSQL， ， dbReadOnlyIf Not rstEOF Then；你试一下这段代码Private Sub Command1_ClickForm1Circle 2400， 1000， 800 Text1Text = quot在窗体上画圆quotEnd Sub #39你的代码这里少一个sub以后要细心哦 Private Sub Command2_ClickForm1Cls Text1Text。
3、Private Sub Command1_ClickDim strA9 As String Dim i， s As Long s = 0 For i = 0 To 9 strAi = InputBoxquot请输入第quot i + 1 quot位同学成绩！quot， quot提示成绩为大写ABCDEquotIf Asc；使用场景很多，自己对着程序按照上面这段文字理解 宏是预处理的一种 预处理是在编译之前对代码做的处理，包含1宏定义 2文件包含 3条件编译比如文件包含，编译器当判断本文件有使用到包含的库时，做个“将该库；1 注释语句 注释不仅仅是对程序的解释，有时它对于程序的调试也非常有用，譬如说可以利用注释屏蔽一条语句以观察变化，发现问题和错误注释语句是我们在编程里最经常用到的语句之一在VB里，注释语句有两种，一种是用“；先在程序中加一个Label，名字应该符合VB程序控件命名规范lbllt名称 再加一个Timer控件，名字也要符合命名规范 在窗体代码对话框中打入 Private Sub Form_LoadOn Error Resume Next MeFont = quotArialquotMeFontSize = 24。
4、附件中也有，可下载；Private Sub Command1_ClickDim x1 To 10 As Integer， i As Integer For i = 1 To 10 xi = IntRnd * 100Print xiNext i End Sub；现在都是信息化的时代，没有一门好的技术是难以在社会之中立足的，现在的电脑技术飞速增长，每家公司都需要电脑人才，你可以去学习电脑专业，在这个领域中还是有很大的发展空间的，只要自己好好学习，以后的前景不可限量；Private Sub Clear_ClickText1Text = quotquotText2Text = quotquotList1Clear Text1SetFocus End Sub Private Sub Lookup_ClickDim i As Integer， j As Integer， c As String， b50 As String， k As Integer。
5、将你的textbox控件定义成数组控 件，然后运行以下代码Private Sub command1_click这 个是保存Text1的内容到本身目录 下Open AppPath \123txt For Append As 1 Print 1，Text10Text Print 1，Text11；Private Sub Command1_ClickDim a， b， c， d As Integer For a = 0 To 10 For b = 0 To 20 For c = 0 To 50 For d = 0 To 100 If 10 * a + 5 * b + 2 * c + d = 100 And a + b；你可以先从编些简单的解析数学的程序 例如加减乘除方程，教你个简单的小程序！一单击“求解一元二次方程”的按钮后，输入方程的系数后abc，输出方程解的情况程序界面如下vb代码如下Private Sub Command1_Click。