高职考技能提升教程005期 字母菱形案例 VB语言 刘金玉编程 高考必备信息技术

视频讲解

文字讲解：

高职考技能提升教程 字母菱形案例

字符菱形

Chr函数

功能：将ASCII码与字符之间进行转换

Spc函数

空格占位符，spc(N) 中的N代表有几个空格

总结

1、要有星号菱形基础

2、要学会chr函数转换字符

3、下断点调试

软件设计界面：

源代码分享：

代码语言：javascript复制

Private Sub Form_Load()
Show
FontSize = 18
Dim i&, j&, n&

n = 4
'上半部分
For i = 0 To n Step 1

    '输出空格
    For j = 1 To n - i Step 1
        Print "   ";
    Next j
    
    '输出文字字符
    For j = 1 To 2 * i   1 Step 1
        Print Chr(i   65);
    Next j
    
    Print

Next i
'下半部分
For i = 0 To n - 1 Step 1

    '输出空格
    For j = 0 To i Step 1
        Print "   ";
    Next j
    
    '输出文字字符
    For j = 1 To 2 * (n - i) - 1 Step 1
        Print Chr(n - 1 - i   65);
    Next j
    
    Print

Next i

End Sub

更多视频教程，可以到“西瓜视频”搜索“ 刘金玉 ”。

教程 视频 调试

0 人点赞