VB的简单编程
a = "Text1.Text"
b = "Text2.Text"
c = "Text3.Text"
应改成
a = val(Text1.Text)
b = val(Text2.Text)
c = val(Text3.Text)
不过整体思路很新颖诶……
赞一个
用一commandbutton和textbox演示,在立即窗口输出
Private Sub Command1_Click()
Dim str As String
Dim dstr As String
str = Text1
length = Len(str)
Dim i As Integer
For i = 0 To length - 1
dstr = dstr & Mid(str, length - i, 1)
Next i
Debug.Print dstr
End Sub
用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)
根据换底公式 以十为底的对数可以用 Log(10)/Log(5)表示。此题可简化为:/Log(5)。
通用的:logA B =Log(A)/Log(B)
========================================
您的问题==我的课题 奉献知识==辉煌生命
黑龙江省 张志晨
========================================
去饭客网络看下vb视频教程吧。很简单的。。
Log(10);
log5(10)用换底公式解决就ok啦,log(10)/log(5)
c语言编程:计算 a \/ b
include <stdio.h>int main(){ int a,b,c; do{ scanf("%d%d", &a,&b); fflush(stdin); }while(a<-10000||b<-10000||a>10000||b>10000); if(b==0)printf("Division by zero.\\n"); else { c = a\/b; printf("%d\\n", c); } return...
C语言和B语言都是什么东西,我只知道和编程有关,学编程有什么用吗?
C和B既是用来编程的一种软件,也是编程所采用的一种语言。至于学编程有没有用那得看你学的静不精通了,学的强悍你可以从事软件开发行业,工资也是很高的。
简单matlab编程
6) 【Ctrl+B】――括号配对检查(对版本6.5有效,但版本7.0无效,不知道是取消了还是换了另外的快捷键,请大牛们指点,其他版本没有测试过)7) 【F12】――设置或取消断点 8) 【F5】――运行程序 其余的例如在Debug状态下的快捷键就不多说了,自己看菜单Debug吧!累了, 有时间再写吧。希望...
c语言 将变量A和B的值进行互换 的程序
代码如下:#include<stdio.h> include <stdlib.h>void swap1(int& a,int& b) \/\/使用中间变量交换两个值 { int temp = a;a = b;b = temp;}void swap2(int& a, int& b) \/\/只用加法、减法、乘法也可以交换两个值 { a = a + b;b = a - b;a = a - b;}void swap3(...
求一个vb的求一个数平方的编程
楼主您好!什么也不用画,直接复制粘贴代码。简单就一句:MsgBox "这个数的平方为:" & Val(InputBox("请输入要求平方的数!", "提示窗口") ^ 2), 64 + vbOKCancel + vbDefaultButton1, "提示窗口"多写点就这样:Dim Number1 As DoubleDim Number2 As DoubleNumber1 = Val(InputBox("请输入...
两道简单的C语言编程题 1.设给定三个整数a.b.c,试写出寻找其中数的一...
先回答第一个问题:include <stdio.h>#include <conio.h>int main(){ int a,b,c,d; printf("Input a,b,c:"); scanf("%d,%d,%d",&a,&b,&c); if(a>=b){ if(b>=c)d=b; \/\/a >= b >= c ,比较2次 else if(a>=c)d=c; \/\/a >= c > b ,比较3次 else d...
哪种编程语言最好学?
C是学习高级语言的基础;C++主要用于编写大型软件核心代码和汇编一样,比较难学,不过学好了后,很有前途;C#主要用于编写一些系统软件,比如游戏引擎核心代码,编写比较简单,界面比较友好;ASP.NET主要是用C#语言编写开发网站(B\/S架构)。 J2EE是用很广泛,主要偏向于企业应用软件和一些桌面系统(C\/S架构),计算机平台;第二...
编程实现GPIOB0-GPIOB3分别输出数字量“1010”?
要实现GPIOB0-GPIOB3分别输出数字量"1010",需要用到嵌入式系统的编程语言,如C语言。以下是一段使用STM32微控制器的程序代码示例,用于将GPIOB0-GPIOB3分别设置为输出,并将数字量"1010"输出到这四个引脚上:```include "stm32f10x.h"int main(void){ GPIO_InitTypeDef GPIO_InitStructure;\/\/ ...
编写程序,从键盘输入一个3位的正整数,输出它的百位数,十位数和个位数...
他使用过Simula和ALGOL,接触过C。他对Simula的类体系感受颇深,对ALGOL的结构也很有研究,深知运行效率的意义。既要编程简单、正确可靠,又要运行高效、可移植,是BjarneStroustrup的初衷。以C为背景,以Simula思想为基础,正好符合他的设想。1979年,BjameSgoustrup到了Bell实验室,开始从事将C改良为带类...
bs开发平台用什么做比较简单?
你好,我是只说代码的大饼,很高兴回答你的问题。我觉得题目缺乏严谨性,也有可能我理解偏了您的问题。问题应该是:bs平台使用什么(方式或者编程语言)开发比较简单?进入正题,我做如下分析。一.B\/S是什么?B\/S架构——浏览器和服务器架构模式。二.B\/S开发语言现在有哪些?Java适合开发企业级的web应用...
袁星卡地: Private Sub Command1_Click() If Combo1.Text = "生活用水" Then Text2 = Val(Text1) * 1 & "元" ElseIf Combo1.Text = "工业用水" Then Text2 = Val(Text1) * 5 & "元" End If End Sub Private Sub Form_Load() Combo1.AddItem "生活用...
桃源县18494101769: 超级简单的VB编程?
袁星卡地: Private Sub Form_Load() Show Dim a As Single, b As Single, c As Single a = Val(InputBox("输入三角形三边的长")) b = Val(InputBox("输入三角形三边的长")) c = Val(InputBox("输入三角形三边的长")) If a + b > c And a + c > b And b + c > a Then MsgBox "能构成三角形" Print "周长是:" & a + b + c Else MsgBox "不能构成三角形" End If End Sub
桃源县18494101769: vb的最简单代码 - ?
袁星卡地: 插入三个文本框a1、a2、a3来接收输入的三个数,插入一个按钮a4来执行操作,最后用三个文本框来显示结果.Private Sub a4_Click()Dim v1, v2, v3, t As Singlev1 = a1.Valuev2 = a2.Valuev3 = a3.Value...
桃源县18494101769: 用vb做一个简单的编程 - ?
袁星卡地: Private Sub Form_click() Dim x$, y% x = InputBox("输入小写字母:") Do While x >= "a" And x <= "z" y = y + Val(Asc(x)) - 96 x = InputBox("输入小写字母:") Loop Print y End Sub
桃源县18494101769: 告诉我一些简单的vb编程代码 - ?
袁星卡地: uEnd是用户定义捕捉VB输出框(MsgBox)按下按钮事件一个变量.即你的原代码 MsgBox "您确定要离开吗?", vbYesNo + vbQuestion, "离开程序"执行按vbYes或vbNo按钮的结果...
桃源县18494101769: VB简单编程?
袁星卡地: 在一个窗体里面复制以下代码就可以了.在VB6.0精简版环境下测试通过. Dim a(9) As Integer Private Sub Form_Load() Me.Show Dim b As Integer For b = 0 To 9 a(b) = GetRnd(20, 30) Print a(b) Next b Print "最小值是:" & ProcMin(a) End ...
桃源县18494101769: VB简单编程 - ?
袁星卡地: Private Sub Command1_Click() Dim a(10) As Integer Me.Cls For i = 1 To 10 a(i) = Rnd() * 100 Next For i = 1 To 10 Print a(i) Next Print "排序后:" For i = 1 To 10 For j = 1 To 10 If a(i) < a(j) Then a(i) = a(i) + a(j) a(j) = a(i) - a(j) a(i) = a(i) - a(j) End If Next Next For i = 1 To 10 Print a(i) Next End Sub
桃源县18494101769: 用VB画圆、正方形、长方形、球、正方体、长方体要编程的内容过程最好编程简单点否则以我的程度 怕看不懂 - ?
袁星卡地:[答案] 画圆 VERSION 5.00 Begin VB.Form FMain BorderStyle = 1 'Fixed Single Caption = "Form1" ClientHeight = 5205 ClientLeft = 45 ClientTop = 330 ClientWidth = 7035 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = ...
桃源县18494101769: VB 简单编程?
袁星卡地: 你说的那个是Sgn 函数 sgn(x)>0 则x是大于0的整数,sgn(x)<0则x是小于0的整数.sgn(x)=0则x=0. Private Sub Command1_Click() Dim num, sign As Integer num = InputBox("请输入一个数") If num > 0 Then sign = 1 Else If num < 0 Then sign =...
桃源县18494101769: 怎么用vb做一个简单的程序?
袁星卡地: 加入标签Label1,Caption设置为“你好,请输入你的姓名” 加入文本框Text1,用来输入姓名的 加入标签Label2,按照你的要求设置字体属性,autosize属性设成true 分别加入确定,继续,结束按钮 以下是代码: Private Sub Form_Load() Me.结...