VB程序代码求指教

1. VB程序代码求指教

我说说思路：
一，解决输入并保存信息的功能：
因为，要有输入信息的功能，所以要解决输入并保存信息的功能，有两种方法；
1，采用VBA，在WORD或者EXCEL里。
2，你自己编写文本编辑器。
二，按照你的要求：
1，程序要有设置时间的功能。
2，每次输入信息完毕，进行文件保存。
3，文件格式分为上下两大块，中间用设置的时间突出显示作为分隔；
4，保存的时候，首先判断当天是否已经有保存的文件，如果有就打开现有文件，如果没有，保存为当日新文件。
     如果已经有文件，打开文件，并判断时间，按照你说的时间节点，如果时间在规定时间前，那么新的内容输入在原内容后；如果过了规定时间，那么打开文件后，自动在文件结束处，增加一行用规定的时间作为内容的分隔行，并另起一行，编辑输入新的数据。

2. VB的简单编程

用Log 函数 + 换底公式
Log(number)：返回数值 number 的自然对数。
nnumber 参数是任意大于 0 的有效数值表达式。
说明
自然对数是以 e 为底的对数。常数 e 的值约为 2.718282。
用 n 的自然对数除 x 的自然对数，可以得到以 n 为底的 x 的对数。如下所示：
Log n(x) = Log(x) / Log(n)
以下示例为一个自定义的 Log10(X) 函数过程，该过程计算以 10 为底的对数：
Function Log10(X)
    Log10 = Log(X) / Log(10)
End Function
你要求的 log5 10 是：Log(10) / Log(5)

3. vb 编程序

Private Sub Command1_Click()Dim x(50) As IntegerDim max As IntegerDim min As IntegerLabel1 = "产生的随机数"max = 0min = 20For i = 1 To 50x(i) = (Int(Rnd() * 50 + 1))Label1 = Label1 + " " + Str(x(i))If x(i) > max Then max = x(i)If x(i) < min Then min = x(i)Next iLabel2 = "最大值" + Str(max) + " " + "最小值" + Str(min)End Sub为了结果能生明显的变动，我把20以内改成50了，x(i) = (Int(Rnd() * 50 + 1))改成x(i) = (Int(Rnd() * 20 + 1))就是20以内了。

4. VB编程可以用来做什么

从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
主要优点：
1，简单易学。
2，开发速度快。
3，可读性很好。
学习起来很快，比用C好多了（C需要比较扎实的英文功底，而且类的库很大，比较难以学习）

5. vb编程例题

题目好像不全。以下的程序是实现这样的功能：
用随机函数产生10个50以内(包括50)的随机整数存入一维数组，从键盘上输入一个数，在数组中查找这样的数，最后返回查找结果：在数组的第几个元素中找到，或是未找到这样的数。
Private Sub Command1_Click()  Dim a(10) As Integer, x As Integer  Randomize  For i = 1 To 10    a(i) = Int(Rnd() * 51)    Print a(i);  Next i  Print  x = InputBox("请输入一个数：")  For i = 1 To 10    If a(i) = x Then Exit For  Next i  If i < 11 Then    Print "a("; i; ")="; x  Else    Print "未找到"; x  End IfEnd Sub

6. VB编程小题目

五角硬币： 264个/公斤 = 3.787879克/个
一元硬币： 165个/公斤 = 6.060606克/个
Private Sub Command1_Click()Dim i As Integer, j As Integer, w As SingleFor i = 0 To 528 '五角硬币数量，两公斤最多528个硬币For j = 0 To 330 '一元硬币数量，两公斤最多330个硬币w = i * 3.787879 + j * 6.060606 '总重量If Int(w) = 2000 And i + j = 462 ThenPrint "一元的硬币有：" & j & "个"Print "五角的硬币有：" & i & "个"End IfNextNextEnd Sub
最终结果：
一元的硬币有：110个
五角的硬币有：352个

7. VB适合编什么程序？

VB 的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI 系统，但是又可以开发相当复杂的程序。VB 的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面 VB 程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。
窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。
VB 的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。VB 的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。
VB 使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB 对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。
VB 使得大量的外界控件有了自己的生存空间。大量的第三方控件针对 VB 提供。VB 也提供了建立、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另外一个并不简单。

8. VB编程这题怎么写？

vb2010写的程序运行两百次速度还可以，如果要运行再多的次数可以开个多线程去运算就不会卡了
运行前

运行后

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim 计数器 = 0
        TextBox4.Text = "0."
        Do While 计数器 < TextBox3.Text
            TextBox1.Text = TextBox1.Text * 10
            TextBox4.Text = TextBox4.Text & TextBox1.Text \ TextBox2.Text
            TextBox1.Text = TextBox1.Text Mod TextBox2.Text
            If (计数器 + 3) Mod 20 = 0 Then TextBox4.Text &= vbCrLf
            计数器 += 1
            If TextBox1.Text = 0 Then Exit Do
        Loop
        Label1.Text = "运算结束，共运算了" & 计数器 & "次"
    End Sub