跪求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希望你能满意。