本文目录
VB程序设计题,求开发流程图+总结.
四个标签lab1(0),lab1(1),lab1(2),lab1(3)，caption 为1-3月，4-6月，7-9月，10-12月四个文本框text1(0),text1(1),text1(2),text1(3)，text为10%,20%,15%,5%两个命令按钮comm1,comm2，caption为"确定"，"重置"再添加三个文本框和三个标签，lab2(0).caption="月份"lab2(1).caption="票数"lab2(2).caption="优惠价格"text2(0).text=""text2(1).text=""text2(2).text="“接下来是代码，重置按钮我就不写了，只写确定按钮吧private sub comm1_click() if text2(0).text 《4 then text2.text(2) = 10% * text2(1).text end if if ……then end if if……then end ifend sub
vb程序设计题
其实你这个程序很麻烦的：首先，建立控件：text2, multiline属性为true，scrollbars属性为2，text属性为空（用于输入成绩信息）text3, multiline属性为true，scrollbars属性为2，text属性为空（用于显示查找结果信息）text4,text属性为空（用于输入查找姓名）command1，caption为"储存“command2，caption为”检索“command3，caption为”结束“ （用于结束程序）注：在text2里输入成绩信息的格式如下：(每一行的末尾要有一个回车） 姓名 分数 分数 (间隔一个空格) 姓名 分数 分数 姓名 分数 分数然后，写代码，把我的代码粘贴过去，已经检验过了！Dim number%Dim a() As String, b() As String, c() As StringDim i%, j%, str1$, r%Private Sub Command2_Click() ’输入并存储信息a = Split(Text1, vbCrLf)number = UBound(a)ReDim b(number, 2)For i = 0 To number c = Split(a(i), " ") For j = 0 To 2 b(i, j) = c(j) Next jNext iEnd SubPrivate Sub Command1_Click() ’查找line1:Text4.SetFocusIf Text4 《》 "" Then ’如果你输入了姓名，那么按次姓名查找str1 = Text4Dim str2 As StringCall chazhao(str2, str1) ’调用查找子过程查找符合条件的信息Text3 = Text3 & str2 ’把查找信息显示在text3里r = MsgBox("是否仅需检索", 4 + 64)Text4 = ""If r = 6 Then GoTo line1 ’用于继续查找End IfEnd SubSub chazhao(str2 As String, str3 As String) ’一个子过程，用于查找给定姓名的成绩信息Dim n%For i = 0 To number If b(i, 0) = str3 Then str2 = b(i, 0) & b(i, 1) & b(i, 2) + vbCrLf n = 1 End IfNext iIf n 《》 1 Then MsgBox "没有该姓名的成绩信息"End SubPrivate Sub Command3_Click()EndEnd Sub
VB编程 题目如下 求大神解答！！！！
所要求的程序贴上，请采纳：Private Sub Command1_Click() Dim x As Double x = Val(Text1.Text) Text2.Text = mysin(x) Text3.Text = Sin(x)End SubFunction mysin(ByVal x As Double) As Double Dim y As Double, t As Double y = x t = y i = 1 Do t = -t * x * x / ((i + 1) * (i + 2)) y = y + t i = i + 2 Loop Until Abs(t) 《 0.00001 mysin = yEnd Function
vb编程过程操作题求教
Private Sub Command1_Click() Dim i As Integer For i = 1 To 1000 If WS(i) Then Text1.Text = Text1.Text & i & vbCrLf End If Next iEnd SubFunction WS(m As Integer) As Boolean WS = False Dim num As Integer ’记录m的因数和 num = 0 For i = 1 To m \ 2 If m Mod i = 0 Then num = num + i If num 》 m Then ’如果因数相加大于本身了就直接退出循环 Exit For End If End If Next i If num = m Then WS = True End IfEnd Function
效果图
VB程序设计里的题目，求详细编程谢谢了
你只要在窗口中放一个frame，再在frame中放两个label1和label2。再在frame外面放一个label3，一个command1，一个text1。其他由程序完成，程序如下：Private Sub Command1_Click()Dim Sum As StringDim N As IntegerDim I As Integer, J As Integer, K As IntegerDim S As IntegerN = Val(Text1)For I = 1 To NIf I = 1 And (N Mod 2 = 0) Then K = -1 Else K = 1S = 0For J = 1 To IS = S + KK = -KNextSum = Sum & SNextIf Right(Sum, 1) = "1" Then Sum = Sum & ".1"For I = 1 To Len(Sum)If Mid(Sum, I, 1) = "1" Then Mid(Sum, I, 1) = "3"NextLabel2.Caption = SumEnd SubPrivate Sub Form_Load()With Form1.Caption = "求和计算".Width = 7000.Height = 4000End WithWith Frame1.Caption = "求数列前N项和".Width = 6000.Height = 1000.Top = 500.Left = 500End WithWith Label1.Width = 2500.Height = 500.Caption = "3.3-33.3+333.3-3333.3+...=".Top = 400.Left = 100End WithWith Label2.Width = Frame1.Width - (Label1.Left + Label1.Width) - 100.Height = Label1.Height.Caption = "".Top = 400.Left = Label1.Left + Label1.WidthEnd WithWith Text1.Width = 1000.Height = 300.Text = "".Top = 2500.Left = 4000End WithWith Command1.Caption = "计算".Width = 1000.Height = 300.Top = 2500.Left = 1000End WithWith Label3.Width = 2000.Height = Label1.Height.Caption = "输入N的值，N=".Top = Command1.Top.Left = Command1.Left + Command1.Width + 500End WithEnd Sub已经运行过。
