求大佬帮忙看看题 - vb吧

level 1

弥生楼主

我这个**点心又来了，还是求大佬帮忙看看题

2022年04月15日 15点04分 1

吧务

level 14

马云爱逛京东

第二道题比较容易，可以用单选按钮的value进行判断

2022年04月16日 02点04分 2

弥生

好的好的，我试试

2022年04月16日 05点04分

弥生

请问我汇率已经做出来了，但是怎么能让Text2显示出是美元还是韩币啊？

2022年04月16日 06点04分

level 1

弥生楼主

dd

2022年04月16日 07点04分 3

level 15

初音✨七奈

先说图二，你说你已经做出汇率来了，其实汇率跟币种是绑定的，比如你第一句是按照选定的汇率计算，第二句马上就是显示结果并且后面加上币种即可（比如：& "美元"）
再说图一，性别的部分与图二的币种显示类似，至于爱好，每个复选框对应的代码都像这样写：
If Check1.Value Then Text2.Text = Text2.Text & "音乐 "
（注意引号里面在最后留个空格，把每种爱好间隔开来）

2022年04月16日 08点04分 4

弥生

好的！！！谢谢大佬！！！！谢谢谢谢谢谢

2022年04月16日 08点04分

弥生

对不起大佬我是笨蛋，我不知道怎么让他点击Option美元的时候后面出现的是美元，点击日元的时候后面出现的是日元

2022年04月16日 09点04分

弥生

大佬那个…就是…我能不能再麻烦您一下，就是图一我现在出现的问题是点击commend姓名性别爱好不能同时出现，他只出现爱好，而且不管点击几个爱好的他都只出现一个，再点他才会出现下一个

2022年04月16日 14点04分

弥生

就是大佬，这个世界智障真的挺多的，您忍一下，真的特别特别特别感谢

2022年04月16日 14点04分

level 15

初音✨七奈

If Option1.Value Then
s = Val(Text1.Text) * 100 / 663.36
Text2.Text = s & "美元"
ElseIf Option2.Value Then
s = Val(Text1.Text) * 100 / 6.6
Text2.Text = s & "日元"
Else
s = Val(Text1.Text) * 100 / 0.6
Text2.Text = s & "韩币"
End If
你现在的问题就是：这个代码框架也会写，每个分支的第一句你也会写，就是不会写第二句

2022年04月16日 10点04分 5

弥生

谢谢大佬！对，但是我们老师只讲了这是什么那是什么，然后书上什么也没有，就给我们留作业了

2022年04月16日 10点04分

level 15

初音✨七奈

Text2.Text = "姓名：" & Text1.Text & vbCrLf & "性别："
If Option1.Value Then Text2.Text = Text2.Text & "男" Else Text2.Text = Text2.Text & "女"
Text2.Text = Text2.Text & vbCrLf & "爱好："
If Check1.Value Then Text2.Text = Text2.Text & "音乐 "
If Check2.Value Then Text2.Text = Text2.Text & "旅游 "
If Check3.Value Then Text2.Text = Text2.Text & "健身 "
If Check4.Value Then Text2.Text = Text2.Text & "美术"

2022年04月16日 15点04分 7

弥生

大佬，无以为报，我给你磕一个吧

2022年04月17日 04点04分