山东省日照青山学校教科版高一信息技术选修一课件:2.2.4常用语句与函数
5、常转换函数 Str( )函数和Val( )函数是一对反函数,前者将数字转化为字符串,后者将字符串转化为数字。Val( )函数从前向后截取出参数的数字部分,如前无数字,则返回0。 上机测试:P32实践 Private Sub Form_Click() Dim x As String, y As Integer Dim a As String, b As String, c As Integer x = 1 y = 123 a = Chr(Asc(x) + 5) b = Str(Val(x) + 5) c = Val(Str(y) + 5) Print a, b, c End Sub Private Sub Command1_Click() a = InputBox(输入人数, 请输入本班人数) If a 0 Or a 50 Then b = MsgBox(你输入的数值超出范围(1-50), vbOKCancel, 错误提示) Else Randomize c = Int((Rnd * a) + 1) Print 中奖编号为:; c End If End Sub 四种语句 1、赋值语句 2、print 语句 3、注释语句 4、结束语句 五种函数 1、与用户交互函数 2、数学函数 3、字符串函数 4、日期函数 5、常用转换函数 VB中的赋值语句用“=”来实现
您可能关注的文档
- 山东省微山县第二中学2018-2019学年高二下学期第三学段检测化学试题.doc
- 山东省微山县第二中学2018-2019学年高二下学期第三学段检测历史试题.doc
- 山东省德州市临邑县洛北中学2018届九年级下学期第二次练兵考试化学试题原卷版.doc
- 山东省德州市临邑县洛北中学2018-2019学年八年级下学期练兵考试生物试题原卷版.doc
- 山东省德州市临邑县洛北中学2018届九年级下学期第二次练兵考试化学试题解析版.doc
- 山东省德州市临邑县洛北中学2018-2019学年八年级下学期练兵考试生物试题解析版.doc
- 山东省德州市六校2018-2019学年七年级下学期第二次月考语文试题解析版.doc
- 山东省德州市六校2018-2019学年七年级下学期第二次月考语文试题原卷版.doc
- 山东省德州市陵县2018届九年级中考数学一模试题原卷版.doc
- 山东省惠民县2018-2019学年第二学期教学质量抽测八年级语文模拟试题二.docx
原创力文档

文档评论(0)