输入法继续写之：2字词条全拼编码~~~

最新推荐文章于 2025-06-12 14:52:11 发布

happybasic

最新推荐文章于 2025-06-12 14:52:11 发布

阅读量651

点赞数

分类专栏：学习笔记文章标签：输入法 string input timer c

本文链接：https://blog.youkuaiyun.com/happybasic/article/details/6274406

版权

学习笔记专栏收录该内容

42 篇文章

订阅专栏

本文提供了一个简单的VB程序代码，用于将输入的2字词条转换为全拼形式，并通过定时器实现代码执行过程中的交互效果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

将2字词条转成全拼的程序代码... 用完就要被抛弃了。。。突然发现好残忍。。。可怜的code

   Dim B As String, NewB As String
   Dim c As String
            
    Open App.Path & "/2ma.txt" For Input As #1
    Open App.Path & "/2ma_new.txt" For Append As #2
               
         Do
            Input #1, B, c
                  
            NewB = ZiToPY(Left$(c, 1)) & ZiToPY(Right$(c, 1))
            
            Print #2, NewB; ","; c
                  
            If Int(Timer) Mod 2 = 0 Then
               Label_ABC.Caption = "-"
            Else
               Label_ABC.Caption = "|"
            End If
            
            DoEvents
            
         Loop Until EOF(1) = True
                
    Close #2
    Close #1