跪求2份简单的vb程序
跪求2个简单的vb程序问题 要完整的程序 有追加!! 3U3U -
1代码：Private Sub Command5_Click()Dim i As Integer Dim tmP As Integer Dim tmpE As String Dim tmpJ As String For i = 1 To 20 Randomize '初始化随机数生成器tmP = (Int(100 - 1 + 1) * Rnd) + 1 '返回[1,100]内的整数If (tmP Mod 2) Then tmpE = tmpE & CStr(希望你能满意。
Private Sub Command1_Click()'素数大于1，唯一的偶数是2 Dim i As Integer, j As Integer, blnsushu As Boolean Dim sushu() As Integer, sushuNUM As Integer, jishu() As Integer, oushu() As Integer Dim sushuNUM1 As Integer, sushuNUM2 As Integer ReDim sushu(0 To 0)ReDim jishu等会说。
1代码：Private Sub Command5_Click()Dim i As Integer Dim tmP As Integer Dim tmpE As String Dim tmpJ As String For i = 1 To 20 Randomize '初始化随机数生成器tmP = (Int(100 - 1 + 1) * Rnd) + 1 '返回[1,100]内的整数If (tmP Mod 2) Then tmpE = tmpE & CStr(希望你能满意。
Private Sub Command1_Click()'素数大于1，唯一的偶数是2 Dim i As Integer, j As Integer, blnsushu As Boolean Dim sushu() As Integer, sushuNUM As Integer, jishu() As Integer, oushu() As Integer Dim sushuNUM1 As Integer, sushuNUM2 As Integer ReDim sushu(0 To 0)ReDim jishu等会说。
1.用VB编程序设计一个简易的计算器代码：Dim num_1, num2, flagPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 Label1.Caption = Label1.Caption + CStr(Command1(Index).Caption) Case 10 Label1.Caption = Label1.Caption + "." Case 1等我继续说。
2009-08-21 求一个vb小程序，很简单的时间小程序1 2008-01-20 求10个VB简单小程序73 2011-04-29 用VB程序设计，帮忙设计个小程序---编写简易计算器程序，求有帮助请点赞。 2011-02-13 求vb非常简单的默写单词小程序代码，要求见内！ 2017-01-20 初学编程，如何设计模拟一个蚂蚁群体的小程序？求帮助 2018-01-24有帮助请点赞。
求简单的VB程序 -
dim i as integer i = int(rnd * 99)+1 if i >= 50 then msgbox 3*i-5 if i < 50 then msgbox 2*i+6
主要代码Private Sub Command1_Click()D = InputBox("请输入圆的直径")S = 3.1415926 / 4 * D ^ 2 L = 3.1415926 * D MsgBox ("圆的面积" & S & vbCrLf & "圆的周长" & L)End Sub Private Sub Command2_Click()R = InputBox("请输入圆的半径")S = 3.1415926 * (R ^ 还有呢？
两个VB的小程序 ,帮忙做一下,谢谢哦! -
第一问：Private Sub Form_Load()Dim bigist As Integer, a As Variant Form1.AutoRedraw = True a = InputBox("Please input a number:")bigist = 0 While IsNumeric(a)If a > bigist Then bigist = a a = InputBox("Please input a number:")Wend Print bigist,End Sub 第二问：..
第2题：Option Explicit Dim n Dim x!Private Sub Command1_Click()x! = InputBox("Input x:", , 1)n% = InputBox("Input n:", , 2)Print fs(n%, x!)End Sub Function fs(n%, x!) As Single 's=x/2!+x3/4!+…x(2n-1)/(2n!)'n=2 s=0.625 Dim S As Single Dim还有呢？
如何使用VB编写一个简单的小程序? -
在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属有帮助请点赞。
第一个如下：Option Explicit Dim I As Long Dim N As Long Private Sub Command1_Click()If Text1.Text = "" Then Label1.Caption = "请输入一个数！quot;: Exit Sub N = Text1.Text If N < 2 Then Label1.Caption = "请输入不小于2的数！quot;: Exit Sub If N Mod 2 = 0 Then Labe希望你能满意。